kodovi/polinomi/polinom.MOD

   1 MODULE polinom;
   2 FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
   3               DisposePolinom, PostaviClan, Unos, Saberi;
   4 FROM InOut IMPORT WriteString, WriteLn;
   5
   6 VAR
   7   p,q,rez : Polinom;
   8
   9 BEGIN
  10   (* korisnik unosi prvi polinom *)
  11   WriteString("Unesite polinom:");
  12   WriteLn;
  13   Unos(p);
  14   (* drugi polinom kreiramo mi,
  15      monom po monom *)
  16   Anuliraj(q); (* isto sto i q:=NIL; *)
  17   (* postavimo clan x^5 *)
  18   PostaviClan(1.0,5,q);
  19   (* -3 x^4 *)
  20   PostaviClan(-3.0,4,q);
  21   (* 4 x *)
  22   PostaviClan(4.0,1,q);
  23   (* 7 (x^0) *)
  24   PostaviClan(7.0,0,q);
  25   (* saberemo polinome *)
  26   Saberi(p, q, rez);
  27   (* odstampamo rezultat i polinome *)
  28   WriteString("p: ");
  29   Stampaj(p,0);
  30   WriteLn;
  31   WriteString("q: ");
  32   Stampaj(q,0);
  33   WriteLn;
  34   WriteString("rez: ");
  35   Stampaj(rez,0);
  36   WriteLn;
  37   DisposePolinom(p);
  38   DisposePolinom(q);
  39   DisposePolinom(rez);
  40 END polinom.