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

procedure riv (a:poli; var b:poli);

procedure vvid (n:integer; var a:poli);

function poper (a:poli; m:integer):integer;

procedure vyvid (a:poli);

function maxi (n, m:integer):integer;

function mini (n, m:integer):integer;

procedure suma (a, b:poli; var c:poli);

procedure nsuma (a:maspoli; n:integer; var c:poli);

procedure dobchy (a:poli; r:real; var c:poli);

procedure pidvst (a:poli; n:integer; var c:poli);

procedure dobutok (a, b:poli; var c:poli);

procedure ndobutok (a:maspoli; n:integer; var c:poli);

procedure mpoli (a:poli; m:integer; var c:poli);

procedure polipoli (a, b:poli; var c:poli);

procedure dilen (a, b:poli; var c, c1:poli);

procedure dyfer (a:poli; var b:poli);

procedure integ (a:poli; var b:poli);

IMPLEMENTATION

function stepin (a:poli):integer;

{визначення степеня многочлена}

var i:integer;

begin

i:=100;

while ((a[i]=0) and (i>=0)) do i:=i‑1;

stepin:=i;

end;

procedure riv (a:poli; var b:poli);

{присвоення одному многочлену значення iншого}

var i:integer;