kodovi/polinomi/testpoli.MOD

   1 MODULE testpoli;
   2 FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
   3               DisposePolinom, PostaviClan, Kopiraj;
   4 FROM InOut IMPORT WriteString, WriteLn;
   5
   6 VAR
   7   q,q2 : Polinom;
   8
   9 BEGIN
  10   (* korisnik unosi prvi polinom *)
  11   WriteString("Unesite polinom:");
  12   WriteLn;
  13   Anuliraj(q);
  14   (* -3 x^4 *)
  15   PostaviClan(-3.0,4,q);
  16   (* 4 x *)
  17   PostaviClan(4.0,1,q);
  18   (* 7 (x^0) *)
  19   PostaviClan(7.0,0,q);
  20
  21   WriteString("q: ");WriteLn;
  22   Stampaj(q,0);
  23   WriteLn;
  24
  25   WriteString("dodaj na pocetak");
  26   WriteLn;
  27   PostaviClan(1.0,5,q);
  28   Stampaj(q,0);
  29   WriteLn;
  30
  31   WriteString("dodaj u sredinu");
  32   WriteLn;
  33   PostaviClan(2.0,2,q);
  34   Stampaj(q,0);
  35   WriteLn;
  36
  37   WriteString("nula prvi");
  38   WriteLn;
  39   PostaviClan(0.0,5,q);
  40   Stampaj(q,0);
  41   WriteLn;
  42
  43   WriteString("nula poslednji");
  44   WriteLn;
  45   PostaviClan(0.0,0,q);
  46   Stampaj(q,0);
  47   WriteLn;
  48
  49   WriteString("nula sredina");
  50   WriteLn;
  51   PostaviClan(0.0,2,q);
  52   Stampaj(q,0);
  53   WriteLn;
  54
  55   WriteString("nula nepostojeci");
  56   WriteLn;
  57   PostaviClan(0.0,2,q);
  58   Stampaj(q,0);
  59   WriteLn;
  60
  61   WriteString("postavi prvi");
  62   WriteLn;
  63   PostaviClan(7.0,4,q);
  64   Stampaj(q,0);
  65   WriteLn;
  66
  67   WriteString("postavi poslednji");
  68   WriteLn;
  69   PostaviClan(7.0,1,q);
  70   Stampaj(q,0);
  71   WriteLn;
  72
  73   Kopiraj(q,q2);
  74
  75   WriteString("dodaj srednji u listu duzine 2");
  76   WriteLn;
  77   PostaviClan(11.0,3,q);
  78   Stampaj(q,0);
  79   WriteLn;
  80
  81   Kopiraj(q2,q);
  82   WriteString("obrisi prvi iz liste duzine 2");
  83   WriteLn;
  84   PostaviClan(0.0,7,q);
  85   Stampaj(q,0);
  86   WriteLn;
  87
  88   WriteString("obrisi prvi iz liste duzine 1");
  89   WriteLn;
  90   PostaviClan(0.0,1,q);
  91   Stampaj(q,0);
  92   WriteLn;
  93
  94   Kopiraj(q2,q);
  95   WriteString("obrisi poslednji iz liste duzine 2");
  96   WriteLn;
  97   PostaviClan(0.0,1,q);
  98   Stampaj(q,0);
  99   WriteLn;
 100
 101   WriteString("obrisi poslednji iz liste duzine 1");
 102   WriteLn;
 103   PostaviClan(0.0,4,q);
 104   Stampaj(q,0);
 105   WriteLn;
 106
 107   WriteString("nuliranje u listi duzine 0");
 108   WriteLn;
 109   PostaviClan(0.0,7,q);
 110   Stampaj(q,0);
 111   WriteLn;
 112
 113   DisposePolinom(q);
 114 END testpoli.