IZRAČUNAVANJE PROSJEČNE OCJENE - DATOTEKE
 

Upisuju se podaci u datoteku i ispisuje prosječna ocjena.

Koriste se funkcije za pretvaranje brojčanih vrijednosti u znakovne i obrnuto.

 
'Ucitavaju se podaci u datoteku sa slucajnim pristupom i nakon toga se cita datoteka i podaci se ispisuju na ekranu

'LSET nalog - priprema podatke za upis u datoteku.
'LSET se mora izvrsiti prije PUT naloga

'MKI$(broj) - pretvara brojcanu vrijednost u znakovnu koja se smjesta u datoteku
'MKI$ se koristi prije UPISA brojcanih vrijednosti u datoteku

'CVI(znakovna vrijednost) - pretvara znakovnu vrijednost u broj
'CVI se koristi kod CITANJA brojcanih vrijednosti iz datoteke

'U IMMEDIATE prozoru upisati SHELL "type probna.txt" za ispis datoteke
'direktno iz operativnog sustava
'Prebacivanje izmedju prozora vrsi se tipkom F6
'Treba dobro paziti da se poklapaju vrijednosti za LEN i FIELD

'**** Pocetak programa ****
CLS

OPEN "probna.txt" FOR RANDOM AS #1 LEN = 80
FIELD #1, 30 AS ime$, 50 AS ocjena$
FOR i = 1 TO 5
INPUT "ime"; ime1$
INPUT "ocjena"; ocjena1
LSET ime$ = ime1$
LSET ocjena$ = MKI$(ocjena1)
PUT #1, i
NEXT i
CLOSE #1

OPEN "probna.txt" FOR RANDOM AS #1 LEN = 80
FIELD #1, 30 AS ime$, 50 AS ocjena$
FOR i = 1 TO 5
GET #1, i
PRINT "ime", ime$
PRINT "adresa", CVI(ocjena$)
zbroj = zbroj + CVI(ocjena$)
NEXT i
CLOSE #1
PRINT "Prosjecna ocjena", zbroj / 5

'**** Kraj programa ****

'Zadaci
'Upisite ocjene u polje i ispisite najmanju ocjenu pa najvecu ocjenu
'Ispisite ime ucenika s tom ocjenom - citajte datoteku