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

read(m);

writeln ('степiнь многочлена ');

read(nb);

vvid (nb, b);

writeln;

riv (b, c);

for i:=1 to m do

integ (b, b);

clrscr;

writeln ('знаходження невизначеного iнтеграла вiд многочлена');

writeln ('без врахування констант');

write('многочлен');

vyvid(c);

writeln;

write ('Iнтеграл ', m:2,'-го порядку');

vyvid(b);

repeat until keypressed;

end;

end;

1: end.

Файл bibl.pas

UNIT bibl; {Бiблiотека пiдпрограм}

INTERFACE

uses crt;

TYPE

poli=array [0..100] of real;

type maspoli=array [1..20] of poli;

var zero, od:poli;

{кільцеві нуль і одиниця}