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

[Fatalita]

Помогите написать программу.

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

Спасибо. Очень выручите.

[Mad_Cat]

var f:file of double;
c,s:double;
begin
assignfile(f,'in.txt')
reset(f);
s:=0;
while not eof(f) do
begin
read(f,c);
s:=s+c*c;
end;
writeln(s);
closefile(f);
readln;
end.

[Fatalita]

Неправильно считает совсем(

[Mad_Cat]

Неправильно считает совсем(

а вы как файлик то создаете?

[Fatalita]

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

а вы как файлик то создаете?

А его как - то по - особенному нужно создавать?

[Rin]

Так файл заполнится рандомными числами сам:

var f:file of double;
c:double;
i:integer;
begin
assignfile(f,'in.txt')
randomize;
rewrite(f);
for i:=0 to 500 do
begin
c:=random(1.234567890123456789E30);
write(f,c);
end;
closefile(f);
readln;
end.

Конечно можете и сами заполнить файл:

var f:file of double;
c:double;
i:integer;
begin
assignfile(f,'in.txt')
for i:=0 to 500 do
begin
read(c);
write(f,c);
end;
closefile(f);
readln;
end.