From: Doni Pracner <quinnuendo@gmail.com>
Date: Sun, 27 Apr 2014 13:41:47 +0000 (+0200)
Subject: testpoli, sredjeni testovi, dodat jedan, ostali malo reorganizovani
X-Git-Tag: v14c~2
X-Git-Url: https://svarog.pmf.uns.ac.rs/gitweb/?a=commitdiff_plain;h=f4de69822e554f28acc4fdfa68155ead696e5bf6;p=spa1skripta-public.git

testpoli, sredjeni testovi, dodat jedan, ostali malo reorganizovani
---

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