gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control systemdiff --git a/kodovi/polinomi/m2.mod b/kodovi/polinomi/m2.mod
--- a/kodovi/polinomi/m2.mod
+++ /dev/null
@@ -1,49 +0,0 @@
-MODULE m2;
-FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
- DisposePolinom, UbaciMonom, Unos, Puta,PolinomNaN;
-FROM InOut IMPORT WriteString, WriteLn;
-FROM Storage IMPORT ALLOCATE, DEALLOCATE;
-
-VAR
- p,q,rez,pom : Polinom;
-
-BEGIN
- (*sa ova dva ispod radi, bez real overflow*)
- NEW(p);
- p^.veza:=NIL;
-
- Anuliraj(q); (* isto sto i q:=NIL; *)
- NEW(pom);
- pom^.st:=5;
- pom^.k:=1.0;
- UbaciMonom(pom,q);
- DISPOSE(pom);
- (* -3 x^4 *)
- NEW(pom);
- pom^.st := 4;
- pom^.k := -3.0;
- UbaciMonom(pom,q);
- DISPOSE(pom);
- (* 4 x *)
- NEW(pom);
- pom^.st := 1;
- pom^.k := 4.0;
- UbaciMonom(pom,q);
- DISPOSE(pom);
- (* 7 (x^0) *)
- NEW(pom);
- pom^.st := 0;
- pom^.k := 7.0;
- UbaciMonom(pom,q);
- DISPOSE(pom);
- WriteString("q: ");
- Stampaj(q,0);
- WriteLn;
-
- Puta(q, q, rez);
- (* odstampamo rezultat *)
- WriteString("q*q: ");
- Stampaj(rez,0);
- WriteLn;
-
-END m2.