Skripte za vezbe iz SPA1 - Univerzitet u Novom Sadu

BEGIN
REPEAT
WriteLn;
WriteString('Unesite redni broj radnika -- ');
ReadCard(br)
UNTIL Done;
WriteLn;
WHILE (rad # NIL) AND (rad^.broj < br) DO
rad := rad^.sled
END;
IF (rad = NIL) OR (rad^.broj # br) THEN
WriteString('Greska.')
ELSE
WriteString(rad^.ime);
WriteString(' ');
WriteString(rad^.prez)
END
END Inform;
PROCEDURE Bankrot(VAR rad : radnici);
VAR
pom : radnici;
BEGIN
WHILE rad # NIL DO
pom := rad;
rad := rad^.sled;
DISPOSE(pom)
END
END Bankrot;
BEGIN
rad := NIL;
REPEAT
Clear;
WriteString('s - spisak svih zaposlenih');
WriteLn;
WriteString('z - zaposlavanje novog radnika');
WriteLn;
WriteString('o - otpustanje radnika');
WriteLn;
WriteString('i - informacije o radniku');
WriteLn;
WriteString('b - bankrot firme');
WriteLn;
WriteString('k - kraj rada');
WriteLn;
REPEAT
Read(meni)
UNTIL CAP(meni) IN skupZn{'S','Z','O','I','B','K'};
Clear;
IF CAP(meni) # 'K' THEN
CASE CAP(meni) OF
'S' : Spisak(rad)|
'Z' : Zaposli(rad)|
'O' : Otpusti(rad)|
'I' : Inform(rad)|
'B' : Bankrot(rad)
END;
Read(pom)
END
UNTIL CAP(meni) = 'K'
END Radnici.
ZADATAK: Dvostruko povezana lista osoba sortirana po visini i
po težini.
(* Sa tastature ucitavati dva broja (visina i tezina) i
smestati ih u dvostruko povezanu listu, tako da ona
bude neopadajuce uredena po visini i tezini. *)
MODULE VisTez;
FROM Storage IMPORT ALLOCATE, DEALLOCATE;
FROM IO IMPORT WrLn, WrStr, RdCard, WrCard;
FROM SYSTEM IMPORT TSIZE;
TYPE
pok = POINTER TO element;
element = RECORD
visina, tezina : CARDINAL;
Vveza, Tveza : pok
END;
VAR
pocV, pocT : pok;
vis, tez : CARDINAL;
PROCEDURE Ispisi(pocV, pocT : pok);
VAR
tek : pok;
BEGIN
tek := pocV;
5
WrStr('Po visini:');
WrLn;
WHILE tek # NIL DO
WrCard(tek^.visina, 6);
tek := tek^.Vveza
END;
WrLn;
tek := pocT;
WrStr('Po tezini:');
WrLn;
WHILE tek # NIL DO
WrCard(tek^.tezina,6);
tek := tek^.Tveza
END
END Ispisi;
PROCEDURE Ubaci(VAR pocV, pocT : pok;
vis, tez : CARDINAL);
VAR
novi, tek, iza : pok;
nadjen : BOOLEAN;
BEGIN
IF pocV = NIL THEN
ALLOCATE(pocV, TSIZE(element));
pocV^.visina := vis;
pocV^.tezina := tez;
pocV^.Vveza := NIL;
pocV^.Tveza := NIL;
pocT := pocV
ELSE
ALLOCATE(novi, TSIZE(element));
novi^.visina := vis;
novi^.tezina := tez;
tek := pocV;
nadjen := FALSE;
WHILE (tek # NIL) AND NOT nadjen DO
nadjen := vis