Var b,y,z: real;
begin
writeln(‘введите данные’);
write(‘y=’);
readln(y);
write(‘b=’);
readln(b);
if b-y<=0 then write(‘b-y<=0’)
else
begin
z:=ln(b-y)/(b-y);
write(‘z=’,z);
end;
end.
При разветвлении в Паскале используют также оператор выбора вида
case c of
c1:a1;
c2:a2;
...
cn:an;
end;
Здесь с – выражение, с1, с2, …, сn – константы, а1, а2, …, an – операторы. Если значение выражения равно одной из констант, выполняется соответствующий ей оператор. Если значение выражения не совпадает ни с одной константой, управление передается за пределы оператора case.
Пример: составить программу для вывода на экран дня недели по введённому его номеру.
Текст программы на Паскале:
Var day: integer;
begin
write (‘введите номер дня ’);
readln (day);
case day of
1: writeln (‘понедельник’);
2: writeln (‘вторник’);
3: writeln (‘среда’);
4: writeln (‘четверг’);
5: writeln (‘пятница’);
6: writeln (‘суббота’);
7: writeln (‘воскресенье’);
end;
end.
10. Программирование циклов с известным числом поаторений
Циклы – это многократно повторяемые последовательности однотипных действий. Бывают циклы с известным числом повторений и с неизвестным числом повторений. Для организации цикла с известным числом повторений в Паскале служит оператор вида for i:=m1 tо m2 do s; Здесь i – параметр цикла, m1 и m2 – начальное и конечное значения параметра цикла, s – тело цикла из одного или нескольких операторов. Параметр автоматически увеличивается на 1 при каждом повторе. Возможна следующая запись оператора: for i:=m1 downto m2 do s; При этом параметр уменьшается на 1 при каждом повторе.
Пример: вычислить и вывести на экран в один столбец пятнадцать значений функции y = x2 - 2x + 2 при увеличении x от начального значения –4 с шагом 0,2. Алгоритм решения представлен на рисунке.
Текст программы на Паскале:
Var X,y: real; к: integer;
begin
x:=- 4; {начальное значение х}
for i: =1 to 15 do {начало цикла}
begin
y: = sqr(x)-2*x+2; {расчет значения y}
writeln (y); {вывод на экран значения y}
x:=x + 0.2; {увеличение значения x в цикле}
end {окончание цикла}
end.
11. Программирование циклов с неизвестным числом повторений
В Паскале циклы с неизвестным числом повторений бывают двух видов:с предусловитем и с постусловием.
Оператор цикла с предусловием в Паскале можно использовать в циклах с неизвестным или с известным числом повторений. Вид оператора:
While b do s;
Здесь b – логическое выражение, s – тело цикла. При выполнении оператора предварительно проверяется значение логического выражения. Пока оно истинно, выполняется тело цикла, т.е. операторы циклической части. Когда оно становится ложным, происходит выход из цикла. Если с самого начала значение логического выражения ложно, тело цикла не выполнится ни разу. Если тело цикла является составным оператором, его необходимо ограничить операторными скобками begin и end.
Пример: Вывести на экран в одну строку через один пробел десять значений целого типа, начиная с единицы, в возрастающем порядке. Алгоритм решения представлен на рисунке.
Текст программы на Паскале:
Const k = 10;