Вычислить произведение компонентов файла и вывести на печать

@Agent 056 · Регистрация: 24.09.2010

Студворк — интернет-сервис помощи студентам

Записать в файл последовательного доступа N действительных чисел. Вычислить произведение компонентов файла и вывести на печать.

@lera8 · 08.11.2010, 23:51

Agent 056, вот ваша задача если что не понятно спрашивайте

Pascal

var
f:text;
n,i:integer;
k,p:real;
begin
  writeln('Введите колво чисел');
  readln(n);
  assign(f,'c:\aaa.txt');
  rewrite(f);
  writeln('Заполнение файла');
  for i:=1 to n do
    begin
     readln(k);
     writeln(f,k);
    end;
  close(f);
  reset(f);
  p:=1;
    while not EOF(f) do
      begin
        readln(f,k);
        p:=p*k;
      end;
  close(f);
  writeln('Произведение ',p);
end.

@Agent 056 0 / 0 / 0 Регистрация: 24.09.2010 Сообщений: 5
		1
	Вычислить произведение компонентов файла и вывести на печать 08.11.2010, 23:29. Показов 3732. Ответов 1 Метки нет (Все метки) Записать в файл последовательного доступа N действительных чисел. Вычислить произведение компонентов файла и вывести на печать. 0

Опции темы

Вычислить произведение компонентов файла и вывести на печать

Решение