Soubory II

Zde najdete dvojici programů. 
První vytvoří soubor, druhý ho čte.



Program vytvoreni_souboru;
uses crt;

Function zadej:real;
var x:real;
begin
 write('Zadej realne cislo');
 readln(x);
 zadej:=x;
end;

Procedure start;
var f:file of real;
    x:real;
begin
 assign(f,'real.dat');
 rewrite(f);
 x:=zadej;
 while x<>-999.999 do
       begin
        write(f,x);
        x:=zadej
       end;
 close(f);
end;

begin
 clrscr;
 start;
end.



Program cteni_souboru;
uses crt;

Procedure start;
var f:file of real;
    x,z:real;
    y,i,k:integer;
begin
 assign(f,'real.dat');
{$I-}
 reset(f);
{$I+}
 if ioresult<>0 then {Kontrola existence souboru}
    begin
      Writeln('Fatal Error! Soubor se neda otevrit!');
      halt(2);
    end;

 y:=filesize(f);

 for i:=1 to y do {Vypis vsech prvku na obrazovku}
     begin
      read(f,x);
      writeln(x:0:2);
     end;

 writeln;
 write('zadej k=');
 read(k);
 i:=0;
 z:=0;
 while (i*k)
       begin
        seek(f,i*k);
        read(f,x);
        z:=z+x;
        i:=i+1;
       end;

writeln('Soucet ',k,'-tych prvku = ',z:0:2);
close(f);
readkey;
end;

begin
 clrscr;
 start;
end.