kodovi/polinomi/POLINOML.DEF

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