testpoli, sredjeni testovi, dodat jedan, ostali malo reorganizovani

diff --git a/kodovi/polinomi/testpoli.MOD b/kodovi/polinomi/testpoli.MOD
index 12d39601763d4ec0b63e7ef49ee9fcc4d5491801..1c5f3ec1abae384100afaed8711fd589e51ab1be 100644 (file)
--- a/kodovi/polinomi/testpoli.MOD
+++ b/kodovi/polinomi/testpoli.MOD
@@ -11,8 +11,6 @@ BEGIN
   WriteString("Unesite polinom:");\r
   WriteLn;\r
   Anuliraj(q);\r
-  (* postavimo clan x^5 *)\r
-  PostaviClan(1.0,5,q);\r
   (* -3 x^4 *)\r
   PostaviClan(-3.0,4,q);\r
   (* 4 x *)\r
@@ -24,6 +22,12 @@ BEGIN
   Stampaj(q,0);\r
   WriteLn;\r
 \r
+  WriteString("dodaj na pocetak");\r
+  WriteLn;\r
+  PostaviClan(1.0,5,q);\r
+  Stampaj(q,0);\r
+  WriteLn;\r
+\r
   WriteString("dodaj u sredinu");\r
   WriteLn;\r
   PostaviClan(2.0,2,q);\r
@@ -56,7 +60,7 @@ BEGIN
 \r
   WriteString("postavi prvi");\r
   WriteLn;\r
-  PostaviClan(7.0,7,q);\r
+  PostaviClan(7.0,4,q);\r
   Stampaj(q,0);\r
   WriteLn;\r
 \r
@@ -96,7 +100,7 @@ BEGIN
 \r
   WriteString("obrisi poslednji iz liste duzine 1");\r
   WriteLn;\r
-  PostaviClan(0.0,7,q);\r
+  PostaviClan(0.0,4,q);\r
   Stampaj(q,0);\r
   WriteLn;\r
 \r