Нужна помощь, буду очень благодарен.Создайте файл f, компоненты которого являются...

Question

Нужна помощь, буду очень благодарен.
Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления суммы компонентов файла f и произведения ненулевых компонентов этого файла.
Язык программирования: Pascal

Comments

а в файл вносим случайные числа?

---

Нет, числа забивать вручную

Answer 1

Uses crt;
var f:text;
    i,x,sm,n:integer;
    pr:longint;
begin
randomize;
clrscr;
pr:=1;
assign(f,'f.txt'); rewrite(f);
writeln('Введите число заполнений (например 6, в файле будет шесть натуральных чисел) ?'); readln(n);
for i:=1 to n do
begin
write(i,') ');
readln(x);
writeln(f,x);
end;
close(f);
reset(f);
while not Eof(f) do
begin
read(f,x);
sm:=sm+x;
if x <> 0 then pr:=pr*x;
end;
if n <> 0then
begin
writeln;
writeln('Сумма всех чисел = ',sm);
writeln('Произведение всех чисел = ',pr);
end else writeln('Файл пустой.');
readkey;
close(f);end.

Comments

Даже полностью твою изначальную всё равно выдаёт, то, что нету доступа к файлу

---

ну извини. скопировал отсюда посмотрел у Меня всё пашет, турбо паскаль 7

---

ABC

---

И в этой среде всё ОК .

---

Теперь начал писать только входная строка имела неверный формат

---

ошибка появляется сразу же после запуска или после того как Ты ввёл числа ?

---

после того, как я ввёл числа

---

видишь строку "read(f,x);" измени её на "readln(f,x);

---

не путай с строкой read(x);

---

Спасибо, всё работает, вот это у тебя голова работает, не то, что у меня

Answer 2

Cvar
  f: Text;
  k: integer;
  s, p: longint;
  i: integer;

begin
  Assign(f, 'output.dat');
  Rewrite(f);
  writeln('Вводите данные, окончание число 7777');
  repeat
    read(k);
    if k<>7777 then writeln(f,k)
    until k=7777;
  Close(f);
  Reset(f);
  s := 0;
  p := 1;
  writeln;
  while not Eof(f) do
  begin
    readln(f, k);
    write(k:4);
    s := s + k;
    if k <> 0 then p := p * k
  end;
  Close(f);
  writeln;
  writeln('Сумма= ', s, ', произведение= ', p)
end.

Вводите данные, окончание число 7777
3
6
-4
6
2
-3
-4
2
6
0
5
-1
7777

   3   6  -4   6   2  -3  -4   2   6   0   5  -1
Сумма= 18, произведение= 622080