kodovi/polinomi/polinom.MOD

   1 MODULE polinom;
   2 FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
   3               DisposePolinom, UbaciMonom, Unos, Saberi;
   4 FROM InOut IMPORT WriteString, WriteLn;
   5 FROM Storage IMPORT ALLOCATE, DEALLOCATE;
   6
   7 VAR
   8   p,q,rez,pom : 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   (* formiramo monom x^5 *)
  19   NEW(pom);
  20   pom^.st:=5;
  21   pom^.k:=1.0;
  22   (* dodajemo ga u polinom *)
  23   UbaciMonom(pom,q);
  24   DISPOSE(pom);
  25   (* -3 x^4 *)
  26   NEW(pom);
  27   pom^.st := 4;
  28   pom^.k := -3.0;
  29   UbaciMonom(pom,q);
  30   DISPOSE(pom);
  31   (* 4 x *)
  32   NEW(pom);
  33   pom^.st := 1;
  34   pom^.k := 4.0;
  35   UbaciMonom(pom,q);
  36   DISPOSE(pom);
  37   (* 7 (x^0) *)
  38   NEW(pom);
  39   pom^.st := 0;
  40   pom^.k := 7.0;
  41   UbaciMonom(pom,q);
  42   DISPOSE(pom);
  43   (* saberemo polinome *)
  44   Saberi(p, q, rez);
  45   (* odstampamo rezultat i polinome *)
  46   WriteString("p: ");
  47   Stampaj(p,0);
  48   WriteLn;
  49   WriteString("q: ");
  50   Stampaj(q,0);
  51   WriteLn;
  52   WriteString("rez: ");
  53   Stampaj(rez,0);
  54   WriteLn;
  55   DisposePolinom(p);
  56   DisposePolinom(q);
  57   DisposePolinom(rez);
  58 END polinom.