Контрольная работа: Виконання символьних операцій з многочленами

writeln ('Многочлен в степенi m 3');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Многочлен вiд многочлена 4');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Дiлення многочленiв 5');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Диференцiювання многочлена 6');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Iнтегрування многочлена 7');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Вихiд 0');

roz2:=roz2+1;

gotoxy (roz1+10, roz2); readln(menu);

if (menu=0) then goto 1;

TextBackground(LightBlue);

TextColor(Yellow);

{*************додавання*************************}

if (menu=1) then

begin

Clrscr;

riv (zero, c);

write ('число многочленiв ');

read(m);

for i:=1 to m do