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