From: Doni Pracner <quinnuendo@gmail.com>
Date: Thu, 6 Feb 2014 15:35:14 +0000 (+0100)
Subject: nepotrebni test fajlovi za polinome
X-Git-Tag: v14a~8^2~18
X-Git-Url: https://svarog.pmf.uns.ac.rs/gitweb/?a=commitdiff_plain;h=aa1ba67d0d8e9014272a37a5071d4599cd0c5a81;p=spa1skripta-public.git

nepotrebni test fajlovi za polinome
---

diff --git a/kodovi/polinomi/m2.mod b/kodovi/polinomi/m2.mod
deleted file mode 100644
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
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.