Составной оператор

Вот фрагмент программы, которая складывает два числа:

WriteLn ('Введите два числа');

ReadLn (a,b);

WriteLn ('Сумма равна ' ,a+b)

Вот фрагмент программы, которая возводит число в квадрат:

WriteLn ('Введите число');

ReadLn (a);

WriteLn ('Квадрат числа равен ' ,a*a)

Пусть мы хотим сделать программу, которая бы по желанию пользователя или складывала два числа, или возводила одно число в квадрат, то есть выполняла или первый или второй фрагмент.

Начинаться наша программа могла бы примерно так:

VAR Otvet : String; . . . . .

BEGIN

WriteLn ('Чем займемся – сложением или возведением в квадрат?');

ReadLn (Otvet);

if Otvet = 'сложением' then . . . . else . . . .

Здесь после then мы должны бы вставить первый фрагмент, а после else второй. Однако, тут возникает проблема. Каждый из фрагментов состоит из нескольких операторов, а синтаксис оператора if разрешает ставить после then и else только по одному оператору. Чтобы преодолеть эту трудность, в Паскале есть средство превратить последовательность записанных друг за другом операторов формально в один оператор. Для этого последовательность заключается между словами begin и end и получившаяся конструкция называется составным оператором.

Вот первый фрагмент в виде составного оператора:

begin

WriteLn ('Введите два числа');

ReadLn (a,b);

WriteLn ('Сумма равна ' ,a+b)

end

Компьютер выполняет составной оператор неотличимо от последовательности операторов, из которых он состоит, однако титул составного оператора позволяет ему считаться одним оператором и поэтому быть вхожим в те места программы, в которые разрешен вход только единичным операторам, а не их последовательностям, как, например, имеет место в нашем случае с оператором if.

Вот какая получится программа для нашей задачи:

VAR Otvet :String;

a,b :Integer;

BEGIN

WriteLn ('Чем займемся - сложением или возведением в квадрат?');

ReadLn (Otvet);

if Otvet = 'сложением'

then

begin WriteLn ('Введите два числа');

ReadLn (a,b);

WriteLn ('Сумма равна ' ,a+b)

end

else

begin WriteLn ('Введите число');

ReadLn (a);

WriteLn ('Квадрат числа равен ' ,a*a)

end;

WriteLn ('Счет завершен')

END.

У нашей программы есть недостаток. Если при ответе на вопрос компьютера мы чуть-чуть ошибемся, например, ответим не "сложением", а "сложение", компьютер будет выполнять возведение в квадрат, так как в условии оператора if сравниваемые строки должны совпадать полностью. Научившись выполнять операции над строками, вы научитесь избегать таких ситуаций.

Задание 24: Видоизменить диалог с компьютером, начатый в 4.15. Пусть компьютер, узнав возраст человека, дальнейшую беседу ведет по двум вариантам. Если возраст больше 17, то компьютер должен задать вопрос: "В каком институте ты учишься?" и получив ответ, глубокомысленно заметить "Хороший институт". Если же возраст меньше или равен 17, то соответственно - "В какой школе ты учишься?" и "Неплохая школа". После этого, каков бы ни был вариант, компьютер должен попрощаться: "До следующей встречи!".