kodovi/polinomi/POLINOML.DEF

   1 (* Modul za rad sa polinomima preko listi
   2    verzija 2014 *)
   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 PostaviClan(k: REAL; st:CARDINAL;
  18                   VAR p:Polinom);
  19 PROCEDURE UbaciMonom(mon:Polinom;
  20                      VAR p: Polinom);
  21 PROCEDURE PromeniZnak(VAR p: Polinom);
  22 PROCEDURE Saberi(p1, p2: Polinom;
  23                  VAR zbir: Polinom);
  24 PROCEDURE SaberiNa(p: Polinom; VAR rez: Polinom);
  25 PROCEDURE Oduzmi(p1,p2: Polinom;
  26                  VAR razlika: Polinom);
  27 PROCEDURE MonomPuta(p, mon: Polinom;
  28                     VAR mp : Polinom);
  29 PROCEDURE Puta(p1, p2: Polinom; VAR pr: Polinom);
  30 PROCEDURE Kolicnik(p1, p2: Polinom;
  31                    VAR kol, ost: Polinom;
  32                    VAR ok : BOOLEAN);
  33 PROCEDURE PolinomNaN(p: Polinom; n: CARDINAL;
  34                      VAR rez: Polinom);
  35 PROCEDURE DisposePolinom(VAR p: Polinom);
  36
  37 END PolinomL.