Подручја рада
Претрага
101. Отварање и затварање датотека - утврђивање.

Уводни део часа :
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.