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
, Exists
, Open
, Create
, Close
, EOF
,
5 RdItem
, RdCard
, WrStr
, WrCard
, WrLn
;
6 FROM Str
IMPORT Compare
;
10 radnifajl
= "studenti.txt";
12 String
= ARRAY[1.
.30] OF CHAR;
17 Studenti
= ARRAY[1..MaxStud
] OF Student
;
19 PROCEDURE UcitajF(fajl
:String
;
20 VAR spisak
: Studenti
; VAR n
:CARDINAL);
30 RdItem(f
, spisak
[n
].prez
);
31 RdItem(f
, spisak
[n
].ime
);
32 spisak
[n
].god
:= RdCard(f
);
38 PROCEDURE Ispisi(spisak
:Studenti
; n
:CARDINAL);
43 WriteString(spisak
[i
].prez
);
45 WriteString(spisak
[i
].ime
);
47 WriteCard(spisak
[i
].god
,1);
52 PROCEDURE IspisiF(fajl
:String
;
53 spisak
:Studenti
; n
:CARDINAL);
58 IF (n
>0) AND (n
<=MaxStud
) THEN
60 (* pravimo takav fajl da ne
61 postoji zadnji prazan red *)
63 WrStr(f
,spisak
[i
].prez
);
65 WrStr(f
,spisak
[i
].ime
);
67 WrCard(f
,spisak
[i
].god
,1);
70 WrStr(f
,spisak
[n
].prez
);
72 WrStr(f
,spisak
[n
].ime
);
74 WrCard(f
,spisak
[n
].god
,1);
79 PROCEDURE NoviStudent(VAR spisak
:Studenti
; VAR n
:CARDINAL);
86 WriteString("Prezime novog studenta?");
87 ReadString(stud.prez
);
88 WriteString("Ime novog studenta?");
90 WriteString("God. rodj. novog studenta?");
92 (* proverimo da li vec postoji *)
95 WHILE (i
<=n
) AND dodaj
DO
97 IF (temp.god
= stud.god
) &
98 (Compare(temp.prez
,stud.prez
)=0) &
99 (Compare(temp.ime
,stud.ime
)=0) THEN
108 WriteString("podaci vec postoje!");
111 WriteString("popunjen kapacitet!");
119 UcitajF(radnifajl
, spisak
, n
);
121 NoviStudent(spisak
,n
);
122 IspisiF(radnifajl
, spisak
, n
);
Svarog.pmf.uns.ac.rs/gitweb
maintanance
Doni Pracner