Долгая работа программы

[Serge_Bliznykov]

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

а 10000 стоит, потому что... размер заданного файла не превышает 512 Кб

ну, попробуйте подсчитать, сколько чисел будет, если взять однозначные числа и записать их через пробел
1 2 3 4 5 6 7 2 3 4 5 6 7 8 9 1 2 3 4 8 1 .... 8 7 6 2 4
?

по моим скромным подсчётам - 262144 числа.
это чуть больше ваших 10000

но, как тут верно заметили, числа накапливать вообще нет смысла.
нужно читать файл как бинарный/символьный, с конца к началу, считать сумму цифр и записывать в файл.
и всё.

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

free pascal 2.6.4

а почему бы не подключить стандартную библиотеку
и не воспользоваться TFileStream ?

fs := TFileStream.Create(Filename, fmOpenRead);

[Serge_Bliznykov]

короче, попробуйте такой код:

uses classes, sysutils;

const
  FilenameIn = 'D:\sums.txt';
  FileNameResult = 'D:\sums2.txt';

var
  fs : TFileStream;
  i, sum : integer;
  f : TextFile;
  b : byte;
  isNumber : boolean;
begin
  fs := TFileStream.Create(FilenameIn, fmOpenRead);
  Assign(f, FileNameResult);
  Rewrite(f);
  isNumber := false;
  sum := 0;
  for i:=fs.Size-1 downto 0 do begin
   fs.Seek(i, soFromBeginning);
   fs.Read(b,1);
   if (b>=ord('0')) and (b<=ord('9')) then begin
      if not isNumber then sum := 0;
      isNumber := true;
      sum := sum + b-ord('0');
   end
   else begin
     if isNumber then Write(f, sum,' ');
     isNumber := false;
   end;
  end;
  if isNumber then Write(f, sum,' ');
  fs.Free;
  Close(f);

end.

[dimon_snake]

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

короче, попробуйте такой код:

вышло так же, как и у меня, когда я пробовал читать числами. немного не дотягивает.

[Serge_Bliznykov]

во-первых, переменную i нужно сделать типа LongInt

var
  fs : TFileStream;
  i : LongInt;

а во-вторых,

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

вышло так же, как и у меня, когда я пробовал читать числами.

я ничего не понимаю.
запускаю код, откомплированный fpc compiler 2.6.4
запускаю под Window 7.
входной файл: sums.txt размером 654 кБ (670249 байт)
(вбил туда числа "от фонаря", потом мнокократно скопировал строки).
содержит 157893 числа
время выполнения (создание файла sums2.txt) около 2 секунд.

что я делаю не так?
Вам выложить EXE-ник и текстовый файл?

[dimon_snake]

Благодарен, получилось.

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

я ничего не понимаю.
запускаю код, откомплированный fpc compiler 2.6.4
запускаю под Window 7.
входной файл: sums.txt размером 654 кБ (670249 байт)
(вбил туда числа "от фонаря", потом мнокократно скопировал строки).
содержит 157893 числа
время выполнения (создание файла sums2.txt) около 2 секунд.

что я делаю не так?
Вам выложить EXE-ник и текстовый файл?

не понял. это какая программа использована?

[Serge_Bliznykov]

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

не понял. это какая программа использована?

вот эта