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

@Predvestnik · Регистрация: 09.10.2010

Нужно сформировать файл из модулей целых чисел и найти произведение квадратов компонентов.
Программа то нормально работает то выдаёт результат отрицательный или ноль хотя такого быть в принципе не должно.

Pascal

Program Lab_8a;
uses tpcrt;
var f:file of integer;x,p:integer;c:char;
Begin clrscr;
assign(f,'lab_8_a.dat'); rewrite(f);
writeln('Vvedite celie chisla. Priznak konca vvoda- 13');
repeat
    read(x); x:=abs(x); write(f,x);
until x=13;
reset(f);
p:=1;
Writeln('Soderjimoe faila:');
while not eof(f) do 
    begin
       read(f,x); write(x:4);
       p:=p*sqr(x);
    end;   
close(f); writeln;
Writeln('Proizvedenie kvadratov komponentow p=',p:6);
c:=readkey;
End.

@alexzak · 24.10.2010, 09:26

попробуй закрывать файл close(f) перед reset(f) в строке 10.

@alexzak 84 / 57 / 8 Регистрация: 07.08.2010 Сообщений: 185
	24.10.2010, 09:26	2
	попробуй закрывать файл close(f) перед reset(f) в строке 10. 0

Опции темы