09.03 Přečtení čísel ze souboru, jejich součet a uložení součtu
Zadání:
Sestavte program, který přečte z typového souboru náhodná čísla, vypočte jejich součet a vloží ho na konec souboru.
Sestavte program, který přečte z typového souboru náhodná čísla, vypočte jejich součet a vloží ho na konec souboru.
Řešení:
Pomocí příkazu assign připojíme soubor do proměnné F a příkazem reset otevřeme tento soubor pro čtení. Pomocí cyklu
REPEAT čteme ze souboru všechna čísla, přičítáme je do součtu a na konci programu zapíšeme součet na konec souboru.
Pomocí příkazu assign připojíme soubor do proměnné F a příkazem reset otevřeme tento soubor pro čtení. Pomocí cyklu
REPEAT čteme ze souboru všechna čísla, přičítáme je do součtu a na konci programu zapíšeme součet na konec souboru.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var F:file of integer;
i,cislo,soucet:integer;
begin
assign(F,'data.dat');
reset(F);
soucet:=0;
repeat
read(F,cislo);
soucet:=soucet+cislo;
until eof(F);
write(F,soucet);
close(F);
end.
program ke stažení