Теоретический обзор

Структура условного оператора передачи управления:

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. {конец основного блока}