From f4de69822e554f28acc4fdfa68155ead696e5bf6 Mon Sep 17 00:00:00 2001 From: Doni Pracner Date: Sun, 27 Apr 2014 15:41:47 +0200 Subject: [PATCH] testpoli, sredjeni testovi, dodat jedan, ostali malo reorganizovani --- kodovi/polinomi/testpoli.MOD | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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; -- 2.25.1