09.01 Uložení 10 čísel do souboru
Zadání:
Sestavte program, který uloží do typového souboru 10 celých náhodných čísel.
Sestavte program, který uloží do typového souboru 10 celých náhodných čísel.
Řešení:
Pomocí příkazu assign připojíme soubor do proměnné F a příkazem rewrite vytvoříme prázdný soubor. Pomocí cyklu
FOR nagenerujeme 10 náhodných čísel a zapíšeme je do souboru.
Pomocí příkazu assign připojíme soubor do proměnné F a příkazem rewrite vytvoříme prázdný soubor. Pomocí cyklu
FOR nagenerujeme 10 náhodných čísel a zapíšeme je do souboru.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var F:file of integer;
i,cislo:integer;
begin
assign(F,'data.dat');
rewrite(F);
randomize;
for i:=1 to 10 do
begin
cislo:=random(100);
write(F,cislo);
end;
close(F);
end.
program ke stažení