Консультация онлайн # 161047

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Orlova Svetlana Stanislavovna
Дата: 21.02.2009, 01:13 Консультация неактивна
Поступило ответов: 1
Пожалуйста помогите найти ошибку. Программа должна выводить на экран самое короткое слово в тексте
Приложение:

Ответ # 1, puporev (Профессор)

Здравствуйте, Orlova Svetlana Stanislavovna!
Поскольку программа Ваша работает,то лишь немного ее усовершенствовал. Сейчас можно вводить практически любой текст, несколько пробелов подряд, основные разделители слов, можно добавить.
Комментирую только то, что изменил.
Прилагаю саму программу, возможно Вы неправильно ввели ее текст.

Приложение:


puporev

Профессор
21.02.2009, 12:26
Нет оценки ответа

Мини-форум консультации # 161047

puporev

Профессор

ID: 401888

177210

= общий =    21.02.2009, 09:15
А что конкретно Вас не устраивает в программе? Она написана для текста, где слова разделены одним пробелом. И в таком тексте нормально находит и выводит самое короткое слово. Поясните, что Вам нужно.
неизвестный

177219

= общий =    21.02.2009, 11:26
В том то и дело, что не находит и не выводит на экран при проверке, может я что-то пропустила или допустила ошибку?
puporev

Профессор

ID: 401888

177222

= общий =    21.02.2009, 11:49
Не знаю, я просто скопировал приведенный код и запустил программу. При вводе стороки типа 1234 564 1568 выводит результат 564.
неизвестный

177223

= общий =    21.02.2009, 11:56
Ребенку нужно вводить эту программу с клавиатуры в институте, а программа при проверке выдает всю строку. Я уже не знаю что делать, занималась программированием очень давно, а тут сестра попросила, не смогла отказать. Может подскажите что делать?
puporev

Профессор

ID: 401888

177224

= общий =    21.02.2009, 12:06
Если бы программа не работала, я бы подсказал. Но она работает! Посмотрите, может где-то вместо символов '' - пустая строка, вводит ' '-пробел и наоборот. Или воообще не вводит пробелы. Дайте Ваш ящик или аську, я отправлю вам саму программу.
неизвестный

177225

= общий =    21.02.2009, 12:15
Ящик yranija@yandex.ru
неизвестный

177228

= общий =    21.02.2009, 12:47
Спасибо огромное.!!! Нашла ошибку, действительно вчера набирала поздно, пропустила пробел.
Denisss

177257

= общий =    21.02.2009, 17:05
Какой пробел, если не секрет? У меня тоже программа (просто скопированная) нормально компилируется и нормально работает, и при вводе строки нормально ищет и выводит самую короткую строчку...
неизвестный

177360

= общий =    22.02.2009, 20:07
Вот она проклятая while (str[i]<>' ') do, я то её сюда кинула из набранной на компьютере работы, а набирала в программе, смотря в свои черновики. Мда чувствуешь себя прям таки smile , я ведь с Паскалем последний раз дело имела лет семь назад в институте. Как говориться тихо шифером шурша крыша едет неспеша. Огромное все спасибо!!! И простите что с такой глупостью побеспокоила. smile
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.