Давайте рассмотрим работу с условиями в psacal. Представьте что у Вас есть два числа, и Вам нужно сравнить их на равность, то есть равно ли первое число второму. Для решения этой проблемы воспользуемся оператором условия if.
Мы сначала пишем if(если), после этого пишем наше условие, потом пишем then(то), и выполняемый код если условие пройдёт успешно. Так и сделаем:
Program IF_ELSE;
uses crt;
var num1, num2: Integer;
begin
clrscr;
write('Введите два числа через пробел - ');
readln(num1, num2);
if (num1 = num2) then
writeln('Первое число равно второму!');
readln;
end.
А теперь давайте всё разберём построчно:
Название программы IF_ELSE;
подключённые модули CRT;
описание переменных: num1, num2: тип переменных Integer;
начало программы
очистка экрана от лишнего clrscr;
вывод на экран сообщения write(»);
считывание данных с клавиатуры, и запись их в переменные readln(num1, num2);
если if первое число равно второму (num1 = num2) то then
вывод сообщения на экран writeln(»);
считывание любого типа данных, для временной остановки программы.
конец программы
Теперь разберём саму конструкцию условия:
if(если) (условие) then(то) выполняемые действия
Теперь давайте рассмотрим пример если нам нужно вывести сообщение о том что они не равны, или равны. Как бы добавим в условие оператор else(иначе), он будет срабатывать тогда, когда верно условие будет ложно:
Program IF_ELSE;
uses crt;
var num1, num2: Integer;
begin
clrscr;
write('Введите два числа через пробел - ');
readln(num1, num2);
if (num1 = num2) then
writeln('Первое число равно второму!')
else
writeln('Числа не равны!');
readln;
end.
Если Вы уже заметили, то в после оператора if мы написали вывод строки на экран, но после команды writeln(») не поставили точку запятой. Просто в условиях подобного рода — где есть оператор else перед else нельзя закрывать строку точкой с запятой, иначе программа выдаст ошибку. Теперь рассмотрим отдельно условие с операторами if и else:
if(если) (условие) then(то) выполняемые действия else(иначе) выполняемые действия;
Всё довольно просто.