Составить Программу на Языке Паскаль
В языке Паскаль имеется оператор ветвления. Другое его название - условный оператор. Формат полного оператора ветвления следующий:
if then
else
Здесь if - "если", then - "то", else - "иначе".
Программирование полного и неполного ветвления
Сравните запись алгоритма БИД1 из предыдущего параграфа с соответствующей программой.
| алг БИД1
вещ А, В, С нач ввод А, В если А>В то С:=А иначе С:=В кв вывод С кон |
Program BID1;
var А, В, С : real; begin readln(А, В); if A>B then C:=A else C:=B; writeln(С) end. |
Очень похоже на перевод с русского языка на английский. Обратите внимание на следующее отличие: в программе нет специального служебного слова, обозначающего конец ветвления. Здесь признаком конца оператора ветвления является точка с запятой. (Разумеется, оставлять в программе пустую строку совсем не обязательно. Здесь это сделано только ради наглядности.)
Простой формой логического выражения является операция отношения. Как и в АЯ, в Паскале допускаются все виды отношений (ниже указаны их знаки):
| > (больше);
|
= (равно);
(не равно). |
А теперь запрограммируем на Паскале алгоритм БИД2, в котором использовано неполное ветвление.
| алг БИД2
вещ А, В, С нач ввод А, В С:=А если В > А то С:=B кв вывод С кон |
Program BID2;
var А, В, С : real; begin readln(А, В); С:=А; if B>A then C:=B; write(С) end. |
Опять все очень похоже. Ветвь else в операторе ветвления может отсутствовать.
Программирование вложенных ветвлений
Запишем на Паскале программу определения большего из трех чисел, блок-схема которой показана на рис. 3.10. Структура этого алгоритма - вложенные ветвления. Алгоритм на АЯ (БИТ2) приведен в предыдущем параграфе.
 |
| Рис. 3.10. Блок-схема алгоритма "БИТ" с вложенными ветвлениями |
Program BIT2;
var А, В, С, D: real;
begin readln(А, В, С);
if A>B
then if A>C then D:=A else D:=B
else if B>C then D:=B else D:=C;
writeln(D)
end.
Обратите внимание на то, что перед else точка с запятой не ставится. Вся ветвящаяся часть структуры алгоритма заканчивается на точке с запятой после оператора D:=C.