SORTIRANJE SEKVENCIJALNE DATOTEKE

 
' Upisuje u datoteku izlaz.txt sortirana imena iz datoteke
' podaci.txt

CLS

DIM rbr(10), ime$(10)

OPEN "podaci.txt" FOR INPUT AS #1
INPUT #1, do$
FOR i = 1 TO VAL(do$)
      INPUT #1, a$, b$
      rbr(i) = VAL(a$)
      ime$(i) = b$
NEXT i
CLOSE #1
FOR i = 1 TO VAL(do$)
      FOR j = 1 TO VAL(do$) - 1
           IF ime$(j) > ime$(j + 1) THEN
                  prazna$ = ime$(j)
                  ime$(j) = ime$(j + 1)
                 ime$(j + 1) = prazna$
           END IF
      NEXT j
NEXT i

OPEN "izlaz.txt" FOR OUTPUT AS #1
FOR i = 1 TO VAL(do$)
     WRITE #1, ime$(i)
NEXT i
CLOSE #1