Структура условного оператора передачи управления:
IF <условие> THEN <оператор 1> ELSE <оператор 2>;
(Если) (то) (иначе) - ключевые слова,
где <условие> - это произвольное выражение логического типа, которое может принимать два значения: истина (TRUE) и ложь (FALSE);
<оператор> - любой оператор языка Паскаль.
Сокращенная форма условного оператора: IF <условие> THEN <оператор>;
Program Lab2; {заголовок программы с именем lab2}
uses crt; {подключение модуля очистки экрана}
const {блок описания констант}
a=2.5; {определение констант a }
var {блок описания переменных}
t, z1, z2, z3:real; {определение переменных x,y }
begin {начало основного блока программы}
clrscr; {очистка экрана}
writeln (‘введите t’,t); {процедура вывода}
readln (t); {ввод x}
if (x<1) and (x>5) then writeln (‘значение введено не верно’)
if (x>2.5) and (x<=5) then
z1:=t*sqrt(exp(3*ln(t-a)));
else
if (t=2.5) then
z2:=t*sin(a*t);
else
if (t>1) and (t<2.5) then
z3:=exp(-a*t)*cos(a*t);
writeln(‘z1=’,z1:6:2);
writeln(‘z2=’,z2:6:2);
writeln(‘z3=’,z3:6:2);
writeln(‘t=’,t:6:2);
readln; {задержка до нажатия клавиши enter}
end. {конец основного блока}