Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 177385
21.03.2010, 13:16
0.00 руб.
0 2 2
Компьютеры Программирование
добрый день уважаемые эксперты!
Задача на файлы.
На диске D в каталоге ТР находится файл АВС.dat целых чисел,подсчитать их среднее арифметическое значение.

Обсуждение

давно
Орловский Дмитрий
Мастер-Эксперт
319965
1463
21.03.2010, 13:59
общий
это ответ
Здравствуйте, Козменко Игорь.
Код:
uses crt;

var
  f:file of integer;
  i,n,x:integer;
  s:Real;

begin
  Assign(f,'D:\TP\ABC.dat');
  Reset(f);
  n:=FileSize(f);
  s:=0;
  for i:=1 to n do
  begin
    Read(f,x);
    s:=s+x
  end;
  Close(f);
  s:=s/n;
  clrscr;
  Writeln('s=',s);
  Readln;
end.
Неизвестный
21.03.2010, 14:06
общий
это ответ
Здравствуйте, Козменко Игорь.

Код - в приложении.
Компилятор - Turbo Pascal 7.0

Приложение:
uses crt;
var f: file of word;
i, a, sum: word;
begin
clrscr;
assign(f,'abc.dat');
rewrite(f);{Создаём файл}
randomize;
for i:=1 to 100 do
begin {и заполняем его случайными числами}
a:=random(65535);
write(f,a);
end;
reset(f); {Открываем на чтение}
sum:=0;
i:=0;
while not eof(f) do {Пока не весь файл прочитан}
begin
read(f,a); {читаем очередное число}
inc(i); {увеличиваем на 1 счётчик чисел}
sum:=sum+a; {прибавляем прочитанное число к сумме}
end;
writeln(sum*1./i:5:2);
close(f);
readkey;
end.
Форма ответа