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

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 ;

Writeln (' Значениеx = [-1;2].');

Writeln (' Из диапазона x выбирается N значений, которые');

Writeln (' атоматически вычисляются, разбив промежуток на равные части.');

Writeln ;

textcolor (LightGreen);

Writeln ('Выберите вариант вывода значений:');

Writeln (' 1 - вывод всех значений');

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