Уводни део часа : 1. Шта је то датотечни тип података у PASCAL - у ? 2. Који су начини приступа датотекама ? ------------------------------------------------------------------------------------------------------------------- Главни део часа : Пример 1. Написати програм који чита датотеку f са целим бројевима и уписује у нову датотеку g само парне бројеве. program datoteke(input, output); var f,g : file of real; n : integer; fime, gime : string[12]; begin writeln('Unesite ime na disku f i g datoteke); read(fime, gime); assign(f, fime); assign(g, gime); reset(f); rewrite(g); while not eof(f) do begin read(f,n); if not odd(n) then write(g,n) end; close(f); close(g); readln; readln; end. Пример 2. Датотека именик састоји се од слогова са пољима ime и telefon. Написати програм којим се формира датотека imenik и уносе одговарајући слогови. Унос прекинути када се унесе реч " крај ".
program datoteke2(input, output); type slog=record ime : string[20]; telefon : string[10] end; var f : file of slog; osoba : slog; begin assign(f, 'imenik'); rewrite(f); writeln('Unesite ime i prezime ili kraj za kraj unosa'); readln(osoba.ime); while osoba.ime <> 'kraj' do begin writeln('Telefon'); readln(f,osoba.telefon); writeln('Ime i prezime'); readln(f,osoba.ime) end; close(f); readln; readln; end. |