gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system
diff --git a/kodovi/polinomi/mnozenje.MOD b/kodovi/polinomi/mnozenje.MOD
+++ /dev/null
@@ -1,72 +0,0 @@
-MODULE mnozenje;\r
-FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,\r
- DisposePolinom, UbaciMonom, Unos, Puta;\r
-FROM InOut IMPORT WriteString, WriteLn;\r
-FROM Storage IMPORT ALLOCATE, DEALLOCATE;\r
-\r
-VAR\r
- p,q,rez,pom : Polinom;\r
-\r
-BEGIN\r
- (* korisnik unosi prvi polinom *)\r
- WriteString("Unesite polinom:");\r
- WriteLn;\r
- (*Unos(p);*)\r
- \r
- NEW(p);\r
- p^.k:=1.;\r
- p^.st:=2;\r
- p^.veza:=NIL;\r
- \r
- WriteString("p: ");\r
- Stampaj(p,0);\r
- WriteLn;\r
- \r
- (* drugi polinom kreiramo mi, \r
- monom po monom *)\r
- Anuliraj(q); (* isto sto i q:=NIL; *)\r
- (* formiramo monom x^5 *)\r
- NEW(pom);\r
- pom^.st:=5;\r
- pom^.k:=1.0;\r
- (* dodajemo ga u polinom *)\r
- UbaciMonom(pom,q);\r
- DISPOSE(pom);\r
- (* -3 x^4 *)\r
- NEW(pom);\r
- pom^.st := 4;\r
- pom^.k := -3.0;\r
- UbaciMonom(pom,q);\r
- DISPOSE(pom);\r
- (* 4 x *)\r
- NEW(pom);\r
- pom^.st := 1;\r
- pom^.k := 4.0;\r
- UbaciMonom(pom,q);\r
- DISPOSE(pom);\r
- (* 7 (x^0) *)\r
- NEW(pom);\r
- pom^.st := 0;\r
- pom^.k := 7.0;\r
- UbaciMonom(pom,q);\r
- DISPOSE(pom);\r
- WriteString("q: ");\r
- Stampaj(q,0);\r
- WriteLn;\r
- \r
- Puta(q, q, rez);\r
- (* odstampamo rezultat *)\r
- WriteString("q*q: ");\r
- Stampaj(rez,0);\r
- WriteLn;\r
- \r
- (*Puta(p, p, rez);\r
- WriteString("p*p: ");\r
- Stampaj(rez,0);\r
- WriteLn;\r
- *)\r
- \r
- DisposePolinom(p);\r
- DisposePolinom(q);\r
- DisposePolinom(rez);\r
-END mnozenje.\r