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

Const

X1=-1; X2=2; N=11;

var

y,x,dx: Real;

i: Integer;

ch: Char;

vr: Byte;

begin

1:

clrscr;

textcolor (11);

Writeln (' ЦИКЛ С ПОСТУСЛОВИЕМ');

Writeln ;

Writeln (' Лабораторная работа № 4, 8-ой вариант');

Writeln (' Дано:');

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

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 выбирается 10 значений, которые');

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

Writeln ;

textcolor (LightGreen);

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