Skripte za vezbe iz SPA1 - Univerzitet u Novom Sadu

ELSE
Read(Ch);
Write(Ch);
WHILE ok AND (Ch # EOL) DO
Top(S, C, ok);
ok := ok AND (C = Ch);
IF ok THEN
Pop(S, ok);
Read(Ch);
Write(Ch)
END
END;
IF NOT (ok AND Empty(S)) THEN
WriteString('Pogresan string')
ELSE
WriteString('String pripada jeziku L')
END
END
END wcw.
ZADATAK: Kalkulator za izračunavanje postfiksnih izraza. Svi
brojevi koji figurišu u izrazu su jednocifreni.
MODULE PostFix;
(* Kalkulator za izracunavanje postfiksnih izraza. *)
FROM StekI IMPORT Stack, MakeNull, Empty, Top, Pop,
Push;
FROM InOut IMPORT Read, Write, WriteInt, EOL;
TYPE
slova = SET OF CHAR;
VAR
S : Stack;
Ch : CHAR;
Op1, Op2 : INTEGER;
ok : BOOLEAN;
PROCEDURE Conv(Ch : CHAR) : INTEGER;
BEGIN
RETURN INTEGER( ORD(Ch) - ORD('0') )
END Conv;
BEGIN
MakeNull(S);
Read(Ch);
Write(Ch);
WHILE Ch # EOL DO
IF Ch IN slova{'+', '-', '/', '*', '%'} THEN
Top(S, Op2, ok);
Pop(S, ok);
Top(S, Op1, ok);
Pop(S, ok);
CASE Ch OF
'+' : Op1 := Op1 + Op2 |
'-' : Op1 := Op1 - Op2 |
'*' : Op1 := Op1 * Op2 |
'/' : Op1 := Op1 DIV Op2 |
'%' : Op1 := Op1 MOD Op2
END;
Push(S, Op1, ok)
ELSE
Push(S, Conv(Ch), ok)
END;
Read(Ch);
Write(Ch)
END;
Top(S, Op1, ok);
Write('=');
WriteInt(Op1,5)
END PostFix.
Simulacija rekurzije
Pravila:
Rekurzivni poziv
• Sačuvati tekuće argumente, lokalne promenljive i adresu
na steku
• Izmeniti argumente kao u pozivu procedure
• Prebaciti kontrolu na početak procedure
Posle rekurzivnog poziva:
• Izvaditi elemenat sa steka
• Vratiti stare vrednosti lokalnim promenljivima i
argumentima
• Prebaciti kontrolu na adresu
Kako se to praktično izvodi:
BEGIN
MakeNull(s);
REPEAT
WHILE treba rekurzija DO
(*prvi rek. poziv*)
na stek
menjanje vrednosti parametara
END;
Trivijalni slučaj
Jos := TRUE;
WHILE NOT Empty(s) & jos DO
Top(s,el,ok);
Pop(s,ok);
Restauriramo stare vrednosti
IF adr=... THEN
...
jos:=FALSE;
ELSIF adr=... THEN
.....
ELSE
jos:=TRUE
END
END
UNTIL Empty(s);
(*RETURN rez*)
END...
ZADACI:
Simulirati ponašanje sledećih rekurzivnih procedura (funkcija)
upotrebom steka:
1.
MODULE Fakto;
FROM IO IMPORT WrStr, WrLn, WrLngCard, RdCard, OK;
FROM StekC IMPORT Stack,MakeNull,Empty, Top, Pop, Push;
VAR
n : CARDINAL;
PROCEDURE RFakto(n : CARDINAL) : LONGCARD;
BEGIN
IF n 1 DO
Push(s,n,OK);
DEC(n)
END;
rez := 1;
WHILE NOT Empty(s) DO
Top(s, n, OK);
Pop(s, OK);
rez := LONGCARD(n) * rez
END;
RETURN rez
END SFakto;
BEGIN
REPEAT
WrStr('n = ');
n := RdCard();
WrLn
UNTIL OK;
WrStr('n! = ');
WrLngCard(RFakto(n), 1);
WrStr(' = ');
WrLngCard(SFakto(n), 1)
END Fakto.
2.
MODULE Step;
FROM IO IMPORT WrStr, WrLn, WrReal, RdReal, RdCard, OK;
FROM StekStep IMPORT Stack, MakeNull, Empty, Top, Pop,
Push, InfoTip, AdrTip;
9