Writeln(’Распахнуть ворота!’);
Writeln(’Оркестр, музыку!’);
Writeln(’Проходите!’)
Writeln(’Тревога!’);
Writeln(’Задержать его!’)
Writeln(’Нажмите Enter’); Readln;
end.
Раз уж мы коснулись оформления, рассмотрим ещё одно средство Паскаля – комментарии, которые служат для пояснения программ. Комментарий – это произвольный текст, заключенный в фигурные скобки {…}, или в круглые скобки со звездочкой (*…*). Вот примеры комментариев.
{ Комментарий в одной строке }
{ Многострочный
комментарий
}
(* Комментарий в скобках со звездочками *)
А как воспринимает их компилятор? Да никак. Найдя начало комментария, компилятор ищет его окончание, а все, что оказалось внутри ограничителей, «пропускает мимо ушей». Поэтому комментарии не оказывают влияния на программу. Есть только одно исключение, о котором я скажу в своё время, повествуя о директивах компилятора. Последующие программы я буду сопровождать комментариями.
Программисты нередко используют комментарии как «шапку-невидимку». О чем я? Иногда – при поиске ошибок – требуется временно исключить часть операторов из программы. Вместо того чтобы удалять, а затем печатать их заново, лучше закомментировать эту часть текста. То есть, заключить ненужные операторы в фигурные скобки, превратив в комментарий. Такой кусок программы легко восстановить, удалив фигурные скобки.
A:= B; // Копирование переменой – это однострочный комментарий
• Операторные скобки BEGIN-END объединяют несколько операторов в один операторный блок. Операторный блок воспринимается как один оператор.
• Форматирование программы – это оформление её с помощью логических отступов. Форматирование не влияет на программу, но облегчает её чтение.
• Комментарии предназначены для включения в программу пояснений. Комментарии пропускаются компилятором и не влияют на программу.
• Комментарии удобны для временного исключения частей программы.
А) Сколько операторов можно поместить в операторном блоке?
Б) Найдите ошибку в этом кусочке программы, проверьте свое решение на компьютере.
Writeln(’Что дождь? Все ещё идет?’); Readln(S);
if S = ’ага’ then
begin
Writeln(’А зонтик ты так и не купил!’);
Writeln(’Сколько раз напоминать?’);
end;
else begin