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 KoeficijentUz(p:Polinom; st:CARDINAL):REAL;
  20 PROCEDURE UbaciMonom(mon:Polinom;
  21                      VAR p: Polinom);
  22 PROCEDURE PromeniZnak(VAR p: Polinom);
  23 PROCEDURE Saberi(p1, p2: Polinom;
  24                  VAR zbir: Polinom);
  25 PROCEDURE SaberiNa(p: Polinom; VAR rez: Polinom);
  26 PROCEDURE Oduzmi(p1,p2: Polinom;
  27                  VAR razlika: Polinom);
  28 PROCEDURE MonomPuta(p, mon: Polinom;
  29                     VAR mp : Polinom);
  30 PROCEDURE Puta(p1, p2: Polinom; VAR pr: Polinom);
  31 PROCEDURE Kolicnik(p1, p2: Polinom;
  32                    VAR kol, ost: Polinom;
  33                    VAR ok : BOOLEAN);
  34 PROCEDURE PolinomNaN(p: Polinom; n: CARDINAL;
  35                      VAR rez: Polinom);
  36 PROCEDURE DisposePolinom(VAR p: Polinom);
  37
  38 END PolinomL.