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

Writeln (' 2 - пошаговый режим');

Writeln ('(нажмите соотв. цифру на клавиатуре)');

{Проверяем выбораный режим 49="1", 50="2"}

Ch := ReadKey ;

If Ch=#49 then vr:=10

else if Ch=#50 then vr := 1

else goto 1;

clrscr ;

Writeln (' Cистема уравнеий для вычисления значения y,');

Writeln (' /');

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

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

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

Writeln (' \');

if vr = 1 then

begin

textcolor (LightRed);

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

Writeln ;

textcolor (LightGreen);

end

else Writeln ;

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

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

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

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

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

x := X 1;

i := 1;