Люблю Паскаль, пишу на Паскале, думаю на Паскале. Заметка 4.
Учим программу узнавать своего создателя. Условный оператор.
Сегодня настало время познакомиться с еще одним наиважнейшим оператором языка pascal. Оператором проверки условия или по-другому, оператором ветвления. Почему ветвления? Да потому что этот оператор заставляет программу выполняться по одной из двух веточек, в зависимости от выполнения/невыполнения некоторого условия.
Какие могут быть условия? Самое простое и наиболее часто встречающееся условие – это сравнение. К примеру, если переменная А равна переменной В то нужно сделать одно, а если нет, то другое. В условиях могут встречаться также проверки на неравенство: не равно, больше, меньше, больше или равно, меньше или равно. Еще одно условие – это проверка вхождения. Подробнее мы познакомимся с ним, когда будем изучать тип данных множество. А пока скажу, что это условие проверяет, к примеру, является ли Ваня Иванов учеником 5 «Б» класса.
По традиции сначала поставим задачу. Мы будем учить нашу программу по разному приветствовать своего создателя и всех остальных пользователей.
Сначала, как и в наших предыдущих программках мы должны спросить, как зовут пользователя.
Затем сравнить имя пользователя с именем автора программы. И если оно совпадает, то поприветствовать своего создателя, а если нет, то вывести стандартное приветствие.
Приступаем к программированию.
program Project4;
{$APPTYPE CONSOLE}
const
//выводимые тексты
TextYourName = 'What is your name?';//запрос имени
TextHello = 'Hello, ';//приветствие
TextHelloCreator ='Hello, my creator, ';//приветствие создателя
CreatorName = 'Alex';//имя создателя
var
UserName: string;
begin
writeln (TextYourName);
readln (UserName);
if UserName=CreatorName then
writeln (TextHelloCreator+UserName)
else
writeln (TextHello+UserName);
readln;
end.
Итак, сначала объявим все необходимые нам константы. Запрос имени – тот же самый, что и в предыдущей версии программы. Текста приветствия теперь у нас два – для автора программы (или его тезки?) и для всех остальных.
Ну и имя автора запишем тоже как константу. Если Вы подставите вместо Alex свое имя – программа станет «узнавать» Вас.
После ключевого слова if (переводится как «Если») указывается условие: UserName=CreatorName. То есть введенное и сохраненное в переменной UserName имя пользователя, должно совпадать с константой, в которой хранится имя автора программы.
Затем следует ключевое слово then («Тогда»). После чего следует вызов процедуры writeln с параметрами, выводящими текст приветствия автора. Далее следует ключевое слово else («Иначе») после чего вызов writeln для вывода общего текста приветствия. Завершается оператор if, как и любой другой оператор языка pascal точкой с запятой.
Два варианта работы программы приведены на скриншотах.
Прошу обратить внимание на отступы, с которыми записаны строчки программы. Среди программистов на pascal принято сдвигать «подчиненные» каким-либо операторам блоки кода на два пробела. Такое оформление программы облегчает ее понимание и упрощает отладку. |
