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