kodovi/polinomi/POLINOML.DEF

   1 (* Modul za rad sa polinomima preko listi
   2    verzija 2012, rev 1 *)
   3 DEFINITION MODULE PolinomL;
   4 TYPE
   5   Polinom = POINTER TO Monom;
   6   Monom = RECORD
   7             k : REAL;
   8             st : CARDINAL;
   9             veza : Polinom
  10           END;
  11
  12 PROCEDURE Anuliraj(VAR p: Polinom);
  13 PROCEDURE Unos(VAR p: Polinom);
  14 PROCEDURE Stampaj(p: Polinom; d: CARDINAL);
  15 PROCEDURE Kopiraj(p: Polinom;
  16                   VAR kopija: Polinom);
  17 PROCEDURE UbaciMonom(mon:Polinom;
  18                      VAR p: Polinom);
  19 PROCEDURE PromeniZnak(VAR p: Polinom);
  20 PROCEDURE Saberi(p1, p2: Polinom;
  21                  VAR zbir: Polinom);
  22 PROCEDURE SaberiNa(p: Polinom; VAR rez: Polinom);
  23 PROCEDURE Oduzmi(p1,p2: Polinom;
  24                  VAR razlika: Polinom);
  25 PROCEDURE MonomPuta(p, mon: Polinom;
  26                     VAR mp : Polinom);
  27 PROCEDURE Puta(p1, p2: Polinom; VAR pr: Polinom);
  28 PROCEDURE Kolicnik(p1, p2: Polinom;
  29                    VAR kol, ost: Polinom;
  30                    VAR ok : BOOLEAN);
  31 PROCEDURE PolinomNaN(p: Polinom; n: CARDINAL;
  32                      VAR rez: Polinom);
  33 PROCEDURE DisposePolinom(VAR p: Polinom);
  34
  35 END PolinomL.