gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
pocetak nove verzije;poboljsani fontovi; komande za lako prebacivanje iz jedne u...
[spa1skripta-public.git] / kodovi / polinomi / polinom.MOD
1 MODULE polinom;
2 FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
3 DisposePolinom, UbaciMonom, Unos, Saberi;
4 FROM InOut IMPORT WriteString, WriteLn;
5 FROM Storage IMPORT ALLOCATE, DEALLOCATE;
7 VAR
8 p,q,rez,pom : Polinom;
10 BEGIN
11 (* korisnik unosi prvi polinom *)
12 WriteString("Unesite polinom:");
13 WriteLn;
14 Unos(p);
15 (* drugi polinom kreiramo mi,
16 monom po monom *)
17 Anuliraj(q); (* isto sto i q:=NIL; *)
18 (* formiramo monom x^5 *)
19 NEW(pom);
20 pom^.st:=5;
21 pom^.k:=1.0;
22 (* dodajemo ga u polinom *)
23 UbaciMonom(pom,q);
24 DISPOSE(pom);
25 (* -3 x^4 *)
26 NEW(pom);
27 pom^.st := 4;
28 pom^.k := -3.0;
29 UbaciMonom(pom,q);
30 DISPOSE(pom);
31 (* 4 x *)
32 NEW(pom);
33 pom^.st := 1;
34 pom^.k := 4.0;
35 UbaciMonom(pom,q);
36 DISPOSE(pom);
37 (* 7 (x^0) *)
38 NEW(pom);
39 pom^.st := 0;
40 pom^.k := 7.0;
41 UbaciMonom(pom,q);
42 DISPOSE(pom);
43 (* saberemo polinome *)
44 Saberi(p, q, rez);
45 (* odstampamo rezultat i polinome *)
46 WriteString("p: ");
47 Stampaj(p,0);
48 WriteLn;
49 WriteString("q: ");
50 Stampaj(q,0);
51 WriteLn;
52 WriteString("rez: ");
53 Stampaj(rez,0);
54 WriteLn;
55 DisposePolinom(p);
56 DisposePolinom(q);
57 DisposePolinom(rez);
58 END polinom.
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner