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

END.

Else

End

Then

BEGIN

BEGIN

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

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

WriteLn ('Введите два числа');
ReadLn (a,b);
WriteLn ('Сумма равна ',a+b)

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

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

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

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

VAR Otvet: String;.....

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;

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

ReadLn (Otvet);

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

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

ReadLn (a,b);

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

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

ReadLn (a);

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

end;

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

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

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

Обратите внимание на то, на что не обращает внимания компьютер, а именно на отступы от левого края листа в записи строк программы из 5.3. Строки VAR, BEGIN и END записаны без отступа. Между словами BEGIN и END записаны четыре оператора: WriteLn, ReadLn, if и WriteLn. Все они выполняются по порядку, один за другим, поэтому каждый из них записан с одинаковым отступом. Если оператор сложный, то есть включает в себя другие операторы (мы знаем пока два таких оператора - if и составной), то составляющие его операторы записываются еще правее. Слова, составляющие пару (then и else, begin и end) записываются друг под другом.

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

Конечно, допустимы и некоторые отклонения от ступенчатого стиля. Например, несколько коротких похожих операторов вполне можно записать в одну строку:

a:=0; b:=0; c:=0; f:=4;

Этим мы экономим дефицитное место по вертикали экрана или листа бумаги.

Дата добавления: 2014-12-27