Programiranje1ispit/feb2017.pas at master · shkemilo/Programiranje1ispit · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
program feb2017;
type
    pokaz = ^polinom;
    polinom = record
        stepen : integer;
        koef : real;
        sled : pokaz;
    end;
var
    prvi1, prvi2, prvi3 : pokaz;

procedure ucitaj(var prvi : pokaz; n : integer);
var
    novi, pret : pokaz;
    i : integer;
begin
    prvi := nil;
    pret := nil;
    for i:= 1 to n do
    begin
        new(novi);
        read(novi^.stepen, novi^.koef);

        if (prvi = nil) then
            prvi := novi
        else
            pret^.sled := novi;

        pret := novi;
    end;
end;

function provera(prvi : pokaz) : boolean;
var
    tek : pokaz;
begin
    tek := prvi;

    provera := true;
    while(tek^.sled <> nil)do
    begin
        if(tek^.stepen <= tek^.sled^.stepen)then
        begin
            provera := false;
            break;
        end;

        tek := tek^.sled;
    end;
end;

function zbir(prvi1, prvi2 : pokaz) : pokaz;
var
    tek1, tek2, novi, pret : pokaz;
begin
    zbir := nil;
    tek1 := prvi1; tek2 := prvi2;
    while((tek1 <> nil) or (tek2 <> nil)) do
    begin
        new(novi);
        if(tek1 = nil) then
        begin
            novi^.stepen := tek2^.stepen;
            novi^.koef := tek2^.koef;
            tek2 := tek2^.sled;
        end
        else if(tek2 = nil) then
        begin
            novi^.stepen := tek1^.stepen;
            novi^.koef := tek1^.stepen;
            tek1 := tek1^.sled;
        end
        else if(tek1^.stepen > tek2^.stepen)then
        begin
            novi^.stepen := tek1^.stepen;
            novi^.koef := tek1^.koef;
            tek1 := tek1^.sled;
        end
        else if(tek1^.stepen < tek2^.stepen)then
        begin
            novi^.stepen := tek2^.stepen;
            novi^.koef := tek2^.koef;
            tek2 := tek2^.sled;
        end
        else
        begin
            novi^.stepen := tek1^.stepen;
            novi^.koef := tek1^.koef + tek2^.koef;
            tek1 := tek1^.sled;
            tek2 := tek2^.sled;
        end;

        if (zbir = nil) then
            zbir := novi
        else
            pret^.sled := novi;
        pret := novi;
    end;
end;
procedure ispisi(prvi : pokaz);
var
    tek : pokaz;
begin
    writeln('evo me');
    tek := prvi;
    while(tek <> nil)do
    begin
        write(tek^.koef, 'x^', tek^.stepen, ' + ');
        tek := tek^.sled;
    end;
end;

begin
    ucitaj(prvi1, 3);
    ucitaj(prvi2, 1);
    if(provera(prvi1) and provera(prvi2))then
    begin
        prvi3 := zbir(prvi1, prvi2);
        ispisi(prvi3);
    end;
end.