gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under
the git version control system
2 FROM InOut
IMPORT WriteString
, WriteLn
, WriteCard
,
4 FROM FIO
IMPORT File
, Open
, Create
, Close
, EOF
,
5 RdItem
, RdCard
, WrStr
, WrCard
, WrLn
;
6 FROM Str
IMPORT Compare
;
11 String
= ARRAY[1.
.30] OF CHAR;
16 Studenti
= ARRAY[1..MaxStud
] OF Student
;
18 PROCEDURE UcitajF(fajl
:String
;
19 VAR spisak
: Studenti
; VAR n
:CARDINAL);
28 RdItem(f
, spisak
[n
].prez
);
29 RdItem(f
, spisak
[n
].ime
);
30 spisak
[n
].god
:= RdCard(f
);
35 PROCEDURE Ispisi(spisak
:Studenti
; n
:CARDINAL);
40 WriteString(spisak
[i
].prez
);
42 WriteString(spisak
[i
].ime
);
44 WriteCard(spisak
[i
].god
,1);
49 PROCEDURE IspisiF(fajl
:String
;
50 spisak
:Studenti
; n
:CARDINAL);
55 IF (n
>0) AND (n
<=MaxStud
) THEN
57 (* pravimo takav fajl da ne
58 postoji zadnji prazan red *)
60 WrStr(f
,spisak
[i
].prez
);
62 WrStr(f
,spisak
[i
].ime
);
64 WrCard(f
,spisak
[i
].god
,1);
67 WrStr(f
,spisak
[n
].prez
);
69 WrStr(f
,spisak
[n
].ime
);
71 WrCard(f
,spisak
[n
].god
,1);
76 PROCEDURE NoviStudent(VAR spisak
:Studenti
; VAR n
:CARDINAL);
83 WriteString("Prezime novog studenta?");
84 ReadString(stud.prez
);
85 WriteString("Ime novog studenta?");
87 WriteString("God. rodj. novog studenta?");
89 (* proverimo da li vec postoji *)
92 WHILE (i
<=n
) AND dodaj
DO
94 IF (temp.god
= stud.god
) &
95 (Compare(temp.prez
,stud.prez
)=0) &
96 (Compare(temp.ime
,stud.ime
)=0) THEN
105 WriteString("podaci vec postoje!");
108 WriteString("popunjen kapacitet!");
117 fajl
:="studenti.txt";
118 UcitajF(fajl
, spisak
, n
);
120 NoviStudent(spisak
,n
);
121 IspisiF(fajl
, spisak
, n
);
Svarog.pmf.uns.ac.rs/gitweb
maintanance
Doni Pracner