Подручја рада
Претрага
103. Упис и читање из датотека.

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