Глава 4. Начала программирования
рхоокаля №11:
ча: а, Ь, с: геаі;
чат &: геаі:
ча: х, ›‹1‚ ›‹?1 [ед];
Ьеоіп
икіСеіп (‘Решение квадратного уравнения'):
игісе ('Введите коэффициенты а, Ь, с>>'):
хеасПп (а, Ь, с):
сі:=Ь*Ь*4'а*с:
іі с1<0 поел игісеіп ('Корней нет'):
іі ‹і=0 *:Ьеп
Ьееіп
х:=7Ь/2/аі
игіссіп ('Корень уравнения х='‚ х:9:3)
епа:
іі сі>0 Шен
Ьееіп
хі:= итачи (а) › /2/а:
х2: ('Ь—5ч1’с (‹і) ) /2/‹Эі
игісеіп ('Ксрни уравнения: ' ];
ЫГіСЭЗП ('х
игісе1п ('х
епс!
епа .
4.5.3. Многообразие способов записи ветвлений
В качестве оператора после \:Ьеп и еізе можно использовать
условный оператор. Например, возможна следующая конструкция:
іі <усповие1> шеи
іі <условие2> ЬЬеп <оператор1>
еізе <оператор2>
При использовании таких сложных конструкций (их ещё называ-
ют вложенными ветвлениями) следует иметь в виду, что еізе всегда
относится к ближвйшему оператору іі,
. Пример. Воспользуемся вложенным ветвлением для записи на
языке Паскаль рассмотренного в п. 3.4.2 (пример 10) алгоритма ре-
шения линейного уравнения.
_