nepotrebni test fajlovi za polinome

diff --git a/kodovi/polinomi/m2.mod b/kodovi/polinomi/m2.mod
deleted file mode 100644 (file)
index 6735e88..0000000
--- 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.

diff --git a/kodovi/polinomi/polinom2.mod b/kodovi/polinomi/polinom2.mod
deleted file mode 100644 (file)
index ec8db12..0000000
--- a/kodovi/polinomi/polinom2.mod
+++ /dev/null
@@ -1,56 +0,0 @@
-MODULE polinom2;
-FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
-              DisposePolinom, UbaciMonom, Unos, Saberi;
-FROM InOut IMPORT WriteString, WriteLn;
-FROM Storage IMPORT ALLOCATE, DEALLOCATE;
-
-VAR
-  p,q,rez,pom : Polinom;
-
-BEGIN
-  Anuliraj(p);
-       NEW(p);
-       p^.st := 2;
-       p^.k := 1.0;
-       p^.veza := NIL;
-  Stampaj(p,0);
-  WriteLn;
-
-  Anuliraj(q); (* ovde isto sto i q:=NIL; *)
-  (* formiramo monom x^5 *)
-  NEW(pom);
-  pom^.st:=5;
-  pom^.k:=1.0;
-  (* dodajemo ga u polinom *)
-  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);
-  (* saberemo polinome *)
-  Stampaj(q,0);
-  WriteLn;
-  
-  Saberi(q, q, q);
-  (* odstampamo rezultat *)
-  Stampaj(q,4);
-  WriteLn;
-  DisposePolinom(p);
-  DisposePolinom(q);
-  DisposePolinom(rez);
-END polinom2.