Компонента, как именно? Опции

[Анна]

Нужна помошь. Задание:

Код

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

Altair помог! Спасибо! Но ещё вопрос. В этой программе все вводимые числа сразу же записываются файл и прям на месте же и считаются, а нужно -- создать файл, записать туда все данные, закрыть его, а потом открыть и сосчитать уже из файла.


Вот как было:

var
 f:file of real;
 t,summ,summabs:real;
 s:string;
 i,n:integer;
begin
summ:=0; summabs:=0;
 write('Enter file name: ' ); readln(s);
 write('N='); readln(N);
 assign(f,s);
 rewrite(f);
 for i:=1 to n do begin
  write('= '); readln(t);
  write(f,t);
  summ:=summ+t;
  summabs:=summabs+abs(t);
 end;
 close(f);
 writeln('summ=',summ:0:2,' abs summ=',summabs:0:2,' filename=',s);
 readln;
end.

А вот исправленный вариант:

var
 f:file of real;
 t,summ,summabs:real;
 s:string;
 i,n:integer;
begin
summ:=0; summabs:=0;
 write('Enter file name: ' ); readln(s);
 write('N='); readln(N);
 assign(f,s);
 rewrite(f);

 for i:=1 to n do begin
  write('= '); readln(t);
  write(f,t);
  end; close(f);

begin
  reset(f);
  for i:=1 to length(s) do
  read(f,t);
  summ:=summ+t;
  summabs:=summabs+abs(t);
    end;

 writeln('summ=',summ:0:2,' abs summ=',summabs:0:2,' filename=',s);
 readln;
 close (f);
end.	

[klem4]

А причем здесь вообще S ? - этоже имя файла ... while(not(eof(f))) - ты будешь читать из файла значения до тех пор пока они на закончатся, а точнее пока не будет достигнут конец файла f ... EOF - End Of File.

Сообщение отредактировано: klem4 - 21.11.2005 20:19