Решаем задачи Абрамян на Паскале. File14

File14. Дан файл вещественных чисел. Найти среднее арифметическое его элементов.

Решение:

program File14;
var
 S:String;
 F_in: File of Real;
 Sum,temp:real;
 i:integer;

begin
  Write('File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);

  i:=0;
  Sum:=0;
  while (not eof(F_in)) do
   begin
    Read(F_in,temp);
    Sum:=Sum+temp;
    inc(i);
   end;

  Writeln(Sum/i);
  Close(F_in);
end.

program File14;

var

S:String;

F_in: File of Real;

Sum,temp:real;

i:integer;

begin

Write('File: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

i:=0;

Sum:=0;

while (not eof(F_in)) do

begin

Read(F_in,temp);

Sum:=Sum+temp;

inc(i);

end;

Writeln(Sum/i);

Close(F_in);

end.

Другие задачи из раздела File можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. File14

Комментарии:

Добавить комментарий Отменить ответ