Уводни део часа : 1. Којом наредбом се врши упис у датотеку у PASCAL - у ? 2. Којом наредбом се врши читање из датотеке у PASCAL - у ? ------------------------------------------------------------------------------------------------------------------- Главни део часа : Пример 1. Написати програм који броји линије у текстовној датотеци. program datoteke3(input, output); var f : text; n : integer; ime : string[12]; ch : char; begin writeln('Unesite ime datoteke na disku'); read(ime); assign(f,ime); reset(f); while not eof(f) do begin while not eoln(f) do read(f,ch); n:=n + 1; end; writeln('Broj linija je n = ',n:3); readln; readln; end. Пример 2. Написати програм који чита текстуалну датотеку и за сваку линију исписује 5P=J знакова који су различити од празнине.
program datoteke4(input, output); var f : text; n : integer; ch : char; ime : string; begin writeln('Unesite ime datoteke na disku'); read(ime); assign(f,ime); reset(f); while not eof(f) do begin n:=0; while not eoln(f) do begin read(f,ch); if ch <> ' ' then n:=n +1 end; writeln('Broj znakova u liniji je n = ',n:4); end; close(f); readln; readln; end. |