Курсовая работа: Алгоритмизация и программирование на языке Паскаль

Writeln (' должно контролироваться программой.');

Writeln (' /');

Writeln (' | x*(3-x) , -1<= x <0');

Writeln (' y = < 1 , 0<= x <1');

Writeln (' | tg(2x) , 1<= x <=2');

Writeln (' \');

Writeln (' Производя проверку, в значении tg(2x) - х является ГРАДУСОМ!');

Writeln ;

textcolor (LightGreen);

Write (' Введите значение x: ');

Read (x);

{-= делаем проверку и вычисления =-}

if ((x<-1) or (x>2)) then Writeln ('Введённое значение выходит за пределы')

else

Begin

if x<0 then y := x*(3-x)

else if x<1 then y := 1

else y := (sin(2*x*Pi/180)/cos(2*x*Pi/180));

{Выводим полученный результат }

Writeln ;

textcolor (Yellow);

WriteLn ('Результат вычисления y =',y:7:3);

End;

Writeln ;

textcolor (LightRed);

Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;