Дан файл f, компоненты которого являются действительными числами. Найдите произведение компонент файла f - Turbo Pascal

Формулировка задачи:

Дан файл f, компоненты которого являются действительными числами. Найдите произведение компонент файла f.


textual

Код к задаче: «Дан файл f, компоненты которого являются действительными числами. Найдите произведение компонент файла f - Turbo Pascal»

var
  f: file of real;
  i,n: integer;
  t,p: real;
begin
  write('Количество чисел в файле - ');
  readln(n);
  assign(f,'1.dat');
  rewrite(f);
  for i:=1 to n do
  begin
    t:=random*10;
    write(f,t);
  end;
  seek(f,0);
  p:=1;
  writeln('Числа:');
  while not eof(f) do
  begin
    read(f,t);
    p:=p*t;
    write(t:6:2);
  end;
  close(f);
  writeln;
  writeln('Произведение =  ',p:0:2);
  readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.800 из 5

Источник
Похожие ответы