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

textcolor (LightRed);

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

Writeln ;

textcolor (LightGreen);

end

else Writeln ;

{-= выводим в табличном значении =-}

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

Writeln (' = n = x = y =');

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

dx := (X2-X1)/(N-1);

x := X1;

For i:=1 to N do

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;

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

if vr < 10 then

begin

Ch := ReadKey;

If Ch=#27 then goto 2;

end;

End;

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

Writeln ;

textcolor (LightRed);