Skripte za vezbe iz SPA1 - Univerzitet u Novom Sadu

BEGIN
REPEAT
WrStr('n = ');
n := RdCard();
WrLn
UNTIL OK;
WrStr('n! = ');
RFakto(n, rez);
WrLngCard(rez, 1);
WrStr(' = ');
SFakto(n, rez);
WrLngCard(rez, 1)
END Faktor.
5. (ispitni)
MODULE Rek1;
FROM Stek1 IMPORT Stack, adresa, InfoTip, MakeNull,
Empty, Top, Pop, Push;
IMPORT IO;
VAR
X : ARRAY [1..20] OF INTEGER;
PROCEDURE Max(d, g: INTEGER) : INTEGER;
VAR
m1, m2 : INTEGER;
BEGIN
IF d>g THEN
RETURN MIN(INTEGER)
ELSIF d=g THEN
RETURN X[d]
ELSE
m1 := Max(d, (d+g) DIV 2);
m2 := Max((d+g) DIV 2 +1, g);
IF m1 > m2 THEN
RETURN m1
ELSE
RETURN m2
END
END
END Max;
PROCEDURE SMax(d, g: INTEGER) : INTEGER;
VAR
S : Stack;
el : InfoTip;
ok, jos : BOOLEAN;
m1, m2, rez : INTEGER;
BEGIN
MakeNull(S);
REPEAT
WHILE dg THEN
rez := MIN(INTEGER)
ELSE (* d=g *)
rez := X[d]
END;
jos := TRUE;
WHILE jos AND NOT Empty(S) DO
Top(S, el, ok);
Pop(S, ok);
d := el.d;
g := el.g;
m1 := el.m1;
IF el.adr = prvi THEN
m1 := rez;
el.m1 := m1;
el.adr := drugi;
Push(S, el, ok);
d := (d+g) DIV 2 + 1;
jos := FALSE
ELSE (*el.adr = drugi*)
m2 := rez;
IF m1 > m2 THEN
rez := m1
ELSE
rez := m2
END
END
END
UNTIL Empty(S);
RETURN rez
END SMax;
11
BEGIN (* glavni program *)
X[1] := 3;
X[2] := 2;
X[3] := 5;
X[4] := -7;
X[5] := 0;
IO.WrCard(Max(1, 5), 3);
IO.WrLn;
IO.WrCard(SMax(1, 5), 3);
IO.WrLn
END Rek1.
6. (ispitni)
MODULE Rek2;
FROM Stek2 IMPORT Stack, adresa, InfoTip, MakeNull,
Empty, Top, Pop, Push;
IMPORT IO;
PROCEDURE g(x : CARDINAL; y : CARDINAL; n : CARDINAL) :
CARDINAL;
BEGIN
IF n < 3 THEN
RETURN x + y
ELSIF ODD(n) THEN
RETURN g(g(x+1, y, n-2), y, n-3)
ELSE
RETURN g(x, g(x, y+1, n-2), n-3)
END
END g;
PROCEDURE Sg(x : CARDINAL; y : CARDINAL; n : CARDINAL)
: CARDINAL;
VAR
S : Stack;
el : InfoTip;
ok, jos : BOOLEAN;
rez : CARDINAL;
BEGIN
MakeNull(S);
REPEAT
WHILE n >= 3 DO
IF ODD(n) THEN
el.x := x;
el.y := y;
el.n := n;
el.adr := prvi;
Push(S, el, ok);
INC(x);
DEC(n, 2)
ELSE
el.x := x;
el.y := y;
el.n := n;
el.adr := treci;
Push(S, el, ok);
INC(y);
DEC(n, 2)
END
END;
rez := x+y;
jos := TRUE;
WHILE jos AND NOT Empty(S) DO
Top(S, el, ok);
Pop(S, ok);
x := el.x;
y := el.y;
n := el.n;
IF el.adr = prvi THEN
el.adr := drugi;
Push(S, el, ok);
x := rez;
DEC(n, 3);
jos := FALSE
ELSIF el.adr = treci THEN
el.adr := cetvrti;
Push(S, el, ok);
y := rez;
DEC(n, 3);
jos := FALSE
END
END
UNTIL Empty(S);
RETURN rez
END Sg;
BEGIN (* glavni program *)
IO.WrCard(g(2, 3, 10), 3);
IO.WrCard(Sg(2, 3, 10), 3);
END Rek2.