gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system 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
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
\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
\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