Паскаль: робота з файлами, Детальна інформація

\x6100\x0224

„@

^„@

\x6100\x0124

\xD608r\x7A05\x21FF\x5902\x9104\xDD06\x3009

¶

V цілих чисел непорожнього файла nums.dat та запису в інший файл всіх його чисел, менших A.

Розв'яжемо задачу в такий спосіб:

1) прочитати всі числа з файла, обчислити їх суму й кількість і визначити A;

повторно прочитати всі числа, копіюючи з них лише менші від A.

Нехай числа записано в файлі цілих з ім'ям nums.dat, а числа, менші за середнє, переписуються в файл littls.dat. Наведені дії задаються програмою

program numbers;

var f , g : file of integer;

v : integer; a : real;

n : integer;

begin

assign ( f, 'nums.dat' );

{1}reset ( f );

read ( f, v ); {читання першого елемента без перевірки !}

a:=v; n := 1;

while not eof ( f ) do

begin {з виклику eof(f) повернулося false,}

{тому можна читати доступний елемент}

read ( f, v );

a := a + v; n := n + 1

end;

{з виклику eof(f) повернулося true}

a := a/n;

{2}reset ( f );

assign(g, 'littls.dat'); rewrite(g);