Сумма чисел в файле.

[Zalim]

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

Пример:

C:/file.txt:
1234.54
6543.21
3214.56
65.43

C:/result.txt:
28/06/2011 11057.76

[rustx88]

контакты в подписи) мы же работали уже), могу сделать за символическую плату)))

[Loveb]

Сделаю сегодня утром. Delphi.
100 рублей. Можно и еще символичнее, но вроде как не бывает)
vano_loveb@mail.ru

[Jaguar83]

Обращайся, сделаю за пару минут
ICQ 426871384

[sheka]

Написал в асю.

[VadikV]

если еще актуально, сделаю минут за 30

[lisnic1990]

сделаю быстро на дельфи - 20 мин.)
__________________
icq 397372871
e-mail lisnic1990@gmail.com
skype: immortal_lex

[sheka]

а я за 19.59
Может кто-то быстрее?

[Zer0]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const infile='c:\file.txt';
      outfile='c:\result.txt';

var f:TextFile; t,sum:Real; data:string
begin
  assignfile(f,infile);
  Reset(f);
  sum:=0;
  while not eof(f) do begin
    Readln(f,t);
    sum:=sum+t;
  end;
  CloseFile(f);
  rewrite(f);
  closefile(f);
  assignfile(F,outfile);
  Rewrite(f);
  data:=DateToStr(Date);
  writeln(f,data,' ',sum);
  CloseFile(f);
end.

5 минут) из них минуты две чтобы найти и открыть делфи

[RIO]

Улыбнуло