|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.12.2016, 15:36 | #11 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
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 но, как тут верно заметили, числа накапливать вообще нет смысла. нужно читать файл как бинарный/символьный, с конца к началу, считать сумму цифр и записывать в файл. и всё. а почему бы не подключить стандартную библиотеку и не воспользоваться TFileStream ? Код:
Последний раз редактировалось Serge_Bliznykov; 20.12.2016 в 15:41. |
|
20.12.2016, 16:04 | #12 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
короче, попробуйте такой код:
Код:
|
20.12.2016, 16:17 | #13 |
Форумчанин
Регистрация: 05.11.2015
Сообщений: 167
|
|
20.12.2016, 16:43 | #14 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
во-первых, переменную i нужно сделать типа LongInt
Код:
я ничего не понимаю. запускаю код, откомплированный fpc compiler 2.6.4 запускаю под Window 7. входной файл: sums.txt размером 654 кБ (670249 байт) (вбил туда числа "от фонаря", потом мнокократно скопировал строки). содержит 157893 числа время выполнения (создание файла sums2.txt) около 2 секунд. что я делаю не так? Вам выложить EXE-ник и текстовый файл? |
20.12.2016, 19:14 | #15 | |
Форумчанин
Регистрация: 05.11.2015
Сообщений: 167
|
Благодарен, получилось.
Цитата:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Очень долгая загрузка страницы | usa-1500 | PHP | 5 | 09.02.2014 15:14 |
Долгая прорисовка DBGridEh | Dozent | Компоненты Delphi | 0 | 02.08.2013 17:07 |
Долгая загрузка системы | Дмитрий-1 | Компьютерное железо | 13 | 24.05.2013 12:29 |
Долгая загрузка программы | Tulc | Помощь студентам | 4 | 20.11.2011 14:24 |
Долгая загрузка Windows XP sp3 | DJ HITMAN | Windows | 14 | 04.09.2010 00:49 |