kodovi/polinomi/mnozenje.MOD

   1 MODULE mnozenje;
   2 FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
   3               DisposePolinom, UbaciMonom, Unos, Puta;
   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
  16   NEW(p);
  17   p^.k:=1.;
  18   p^.st:=2;
  19   p^.veza:=NIL;
  20
  21   WriteString("p: ");
  22   Stampaj(p,0);
  23   WriteLn;
  24
  25   (* drugi polinom kreiramo mi,
  26      monom po monom *)
  27   Anuliraj(q); (* isto sto i q:=NIL; *)
  28   (* formiramo monom x^5 *)
  29   NEW(pom);
  30   pom^.st:=5;
  31   pom^.k:=1.0;
  32   (* dodajemo ga u polinom *)
  33   UbaciMonom(pom,q);
  34   DISPOSE(pom);
  35   (* -3 x^4 *)
  36   NEW(pom);
  37   pom^.st := 4;
  38   pom^.k := -3.0;
  39   UbaciMonom(pom,q);
  40   DISPOSE(pom);
  41   (* 4 x *)
  42   NEW(pom);
  43   pom^.st := 1;
  44   pom^.k := 4.0;
  45   UbaciMonom(pom,q);
  46   DISPOSE(pom);
  47   (* 7 (x^0) *)
  48   NEW(pom);
  49   pom^.st := 0;
  50   pom^.k := 7.0;
  51   UbaciMonom(pom,q);
  52   DISPOSE(pom);
  53   WriteString("q: ");
  54   Stampaj(q,0);
  55   WriteLn;
  56
  57   Puta(q, q, rez);
  58   (* odstampamo rezultat *)
  59   WriteString("q*q: ");
  60   Stampaj(rez,0);
  61   WriteLn;
  62
  63   (*Puta(p, p, rez);
  64   WriteString("p*p: ");
  65   Stampaj(rez,0);
  66   WriteLn;
  67   *)
  68
  69   DisposePolinom(p);
  70   DisposePolinom(q);
  71   DisposePolinom(rez);
  72 END mnozenje.