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

@DevilJackman · Регистрация: 20.12.2014

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

Помогите исправить программу. Суть задачи следующая: Записать в файл последовательного доступа N действительных чисел. Вычислить произведение компонентов файла и вывести их на экран.

Pascal

var p,a:longint;
f:text;
st:string;
begin
assign(f,'input.txt');
rewrite(f);
writeln(f,'0,1,2,3,4,5,6,7,8,9');
close(f);
reset(f);
while not eof(f) do
begin
read(f,st);
writeln(st);
p:=1;
p:=p*a;
end;
writeln('P=',p);
readln(p);
close(f);
end.

@Puporev · 24.04.2015, 08:25

Pascal

var n,i:integer;
    a,p:real;
    f:text;
begin
randomize;
assign(f,'input.txt');
rewrite(f);
write('Количество чисел n=');
readln(n);
for i:=1 to n do
 begin
  a:=5*random;
  write(f,' ',a);
 end;
reset(f);
p:=1;
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
  p:=p*a;
 end;
writeln;
writeln('P=',p:0:2);
close(f);
end.

@DevilJackman · 24.04.2015, 08:45 **[ТС]**

выдает ошибку: процесс не может получить доступ к файлу

@Puporev · 24.04.2015, 08:52

Да ну? У меня все работает, проверял.

Добавлено через 1 минуту
Файл создается автоматом в папке с программой от туда же и читается.

Добавлено через 3 минуты
Ты наверное в АВС.net запускаешь,а это раздел для простого АВС.
Вставь строку

Pascal

for i:=1 to n do
 begin
  a:=5*random;
  write(f,' ',a);
 end;
close(f) ;//вот эту
reset(f);

@DevilJackman · 24.04.2015, 08:57 **[ТС]**

Теперь запускается. Спасибо.
Только почему там числа десятичные, а не целые?

@Puporev · 24.04.2015, 08:59

Др потому что написано

Сообщение от DevilJackman

N действительных чисел

@DevilJackman · 24.04.2015, 09:00 **[ТС]**

Понял. Тупанул немного.

@DevilJackman 0 / 0 / 0 Регистрация: 20.12.2014 Сообщений: 14
	24.04.2015, 08:45 [ТС]	3
	выдает ошибку: процесс не может получить доступ к файлу 0

@DevilJackman 0 / 0 / 0 Регистрация: 20.12.2014 Сообщений: 14
	24.04.2015, 08:57 [ТС]	5
	Теперь запускается. Спасибо. Только почему там числа десятичные, а не целые? 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	24.04.2015, 08:59	6
	Др потому что написано Сообщение от DevilJackman N действительных чисел 0

@DevilJackman 0 / 0 / 0 Регистрация: 20.12.2014 Сообщений: 14
	24.04.2015, 09:00 [ТС]	7
	Понял. Тупанул немного. 0

Опции темы

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

Решение