|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
31.10.2007, 10:32 | #1 |
Форумчанин
Регистрация: 19.10.2007
Сообщений: 168
|
Не могу справица
в файле записаны числа 1-я - номер 2-я - количество, 3-я - номер 4-я - количество итд... Мне нужно узнать максимальное количество... Код я написал но с ошибкой которую не могу найти.
|
31.10.2007, 10:43 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Показывай код то... Не стесняйся.
I'm learning to live...
|
|
31.10.2007, 11:03 | #3 |
Форумчанин
Регистрация: 19.10.2007
Сообщений: 168
|
Код в паскале. Не смейтесь пожалуйста с моего творения))))
program n3; var p,m,maxp,maxm:integer; f:text; begin maxp:=0; maxm:=0; assign(f,'market.in'); reset(f); while not seekeof(f) do begin readln(f,p,m); if m>maxm then begin maxm:=m; maxp:=p; end; end; close(f); write(maxp); end. |
31.10.2007, 11:23 | #4 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Ошибка здесь: readln(f,p,m);
из текстового файла можно прочесть только строку текста, затем выделить из нее участки, содержащие числа, затем преобразовать эти участки строк в цифры p,m: integer |
31.10.2007, 11:35 | #5 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Цитата:
Так а какая ошибка то? Текст ошибки можеш привести или у тебя просто не считает корректно? т.е. как по мне это вполне должно работать, если файл организован правильно. Как файл то выглядит внутри?
I'm learning to live...
Последний раз редактировалось Stilet; 31.10.2007 в 11:38. |
||
31.10.2007, 12:35 | #6 |
Форумчанин
Регистрация: 19.10.2007
Сообщений: 168
|
Нвутри файла числа записаны в один ряд через пробел.
Я исправил все что вы мне написали но всеравно появляется ошибка( |
31.10.2007, 12:37 | #7 | |
Пользователь
Регистрация: 26.10.2007
Сообщений: 79
|
Цитата:
Последний раз редактировалось Slovinsky; 31.10.2007 в 12:46. |
|
31.10.2007, 13:02 | #8 |
Форумчанин
Регистрация: 19.10.2007
Сообщений: 168
|
Я все исправил теперь код выглядит так:
program n3; var p,m,maxp,maxm,cod:integer; f:text; ps,ms:string; begin maxp:=0; maxm:=0; assign(f,'market.in'); reset(f); while not eof(f) do begin read(f,ps,ms); val(ps,p,cod); val(ms,m,cod); if m>maxm then begin maxm:=m; maxp:=p; end; end; close(f); writeln(maxp); end. И всеравно появляется ошибка( |
31.10.2007, 13:40 | #9 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
31.10.2007, 13:47 | #10 |
Форумчанин
Регистрация: 19.10.2007
Сообщений: 168
|
Ответ
"Не правильная команда. Невозможно загрузить поддержку VDM IPX\SPX"
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
не могу разобраться | Var17 | Общие вопросы Delphi | 6 | 27.03.2010 01:21 |
Не могу решить | naMazi | Microsoft Office Access | 2 | 08.05.2008 06:37 |
Не могу подключится к БД. | set | БД в Delphi | 6 | 23.04.2008 18:09 |