Skripte za vezbe iz SPA1 - Univerzitet u Novom Sadu

pomK^.imeK := str;
pomK^.clanoviVis := NIL;
pomK^.clanoviTez := NIL;
UbaciK(k, pomK);
CitajDalje(f, ch);
WHILE NOT EOF AND (ch # CHR(13)) DO
NEW(pomC);
RdItem(f, str);
pomC^.imeC := str;
card := RdCard(f);
pomC^.visina := card;
card := RdCard(f);
pomC^.tezina := card;
UbaciC(pomK^.clanoviVis, pomK^.clanoviTez,
pomC);
CitajDalje(f, ch)
END;
RdItem(f, str)
END;
Close(f)
END
END Ucitaj;
PROCEDURE Ujedini(VAR k: PokKlub; ime1, ime2,
imeNovog: String);
PROCEDURE PronadjiK(ime: String; VAR pok:
PokKlub);
VAR
stari: PokKlub;
BEGIN
pok := k;
stari := NIL;
WHILE (pok # NIL) AND (Compare(ime, pok^.imeK)
# 0) DO
stari := pok;
pok := pok^.veza
END;
IF pok # NIL THEN
IF stari # NIL THEN
stari^.veza := pok^.veza;
ELSE
k := pok^.veza
END
END
END PronadjiK;
PROCEDURE NadjenC(ime: String; lista: PokClan):
BOOLEAN;
BEGIN
WHILE (lista # NIL) AND
(Compare(ime, lista^.imeC) # 0) DO
lista := lista^.vezaVis
END;
RETURN lista # NIL
END NadjenC;
ELSE
UbaciC(temp3^.clanoviVis,
temp3^.clanoviTez, pok2)
END
END;
DISPOSE(temp1);
UbaciK(k, temp3);
END
END
END Ujedini;
PROCEDURE IspisiVis(k: PokKlub);
VAR
pomk: PokKlub;
pomc: PokClan;
BEGIN
pomk := k;
WHILE pomk # NIL DO
WriteString(pomk^.imeK);
Write(' ');
pomc := pomk^.clanoviVis;
WHILE pomc # NIL DO
WriteString(pomc^.imeC);
Write(' ');
WriteCard(pomc^.visina, 0);
Write(' ');
WriteCard(pomc^.tezina, 0);
Write(' ');
pomc := pomc^.vezaVis
END;
pomk := pomk^.veza;
WriteLn;
END
END IspisiVis;
VAR
lista: PokKlub;
BEGIN
Ucitaj('podaci.txt', lista);
WriteLn;
WriteString('Ucitani podaci !'); WriteLn;
WriteLn;
IspisiVis(lista);
Ujedini(lista, 'kajak', 'kanu', 'veslacki');
WriteLn;
WriteString('Nakon ujedinjenja !'); WriteLn;
WriteLn;
IspisiVis(lista)
END Klubovi.
VAR
temp1, temp2, temp3: PokKlub;
pok1, pok2: PokClan;
BEGIN
PronadjiK(ime1, temp1);
IF temp1 # NIL THEN
PronadjiK(ime2, temp2);
IF temp2 # NIL THEN
NEW(temp3);
temp3^.imeK := imeNovog;
temp3^.clanoviVis := temp2^.clanoviVis;
temp3^.clanoviTez := temp2^.clanoviTez;
DISPOSE(temp2);
pok1 := temp1^.clanoviVis;
WHILE (pok1 # NIL) DO
pok2 := pok1;
pok1 := pok1^.vezaVis;
IF NadjenC(pok2^.imeC, temp3^.clanoviVis)
THEN
DISPOSE(pok2)
13