08.04.2010, 08:34
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Почему не работает эта программа??
PHP код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f: file of real;
n,sum,pr:real;
begin
pr:=1;
sum:=0;
assignfile(f,'input.txt');
reset(f);
while not Eof(f) do
begin
Read(f, n);
sum:=sum+n;
pr:=pr*n;
end;
closefile(f);
sum:=abs(sum);
pr:=pr*pr;
writeln('Modul summi=',round(sum),' kvadrat proizvedenija=',round(pr));
readln;
end.
В конце всегда 0 0 выдает... все перепробовал
а если переделать вот так:
PHP код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f: textfile;
n,sum,pr:real;
begin
pr:=1;
sum:=0;
assignfile(f,'input.txt');
reset(f);
while not Eof(f) do
begin
Readln(f, n);
sum:=sum+n;
pr:=pr*n;
end;
closefile(f);
sum:=abs(sum);
pr:=pr*pr;
writeln('Modul summi=',round(sum),' kvadrat proizvedenija=',round(pr));
readln;
end.
то все работает! но нужно через типизированные файлы!
Последний раз редактировалось EndLeSSDre@M; 08.04.2010 в 09:35..
|
|
|