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

{ на всякий случай пусть проверяет ;) }

if (( x <-1) or ( x >2)) then Writeln ('Значение вышло за пределы - ГЛЮК 8)')

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 (' =',i:3,'=',x:7:2,'=',y:7:2,'=');

x := x + dx ;

i := i +1;

{проверка для пошагового режима}

if vr < 10 then

begin

Ch := ReadKey;

If Ch=#27 then goto 2;

end;

End

Until x>2;

Writeln (' ================== ');

Writeln ;

textcolor (LightRed);

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

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 then goto 2;

goto 1;

2:

Writeln ('До свидания.');