Самое короткое слово в строке |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Самое короткое слово в строке |
art88 |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 40 Пол: Мужской Реальное имя: Артём Репутация: 0 |
Задача такова:
Дана строка, найти в ней самое короткое слово (словами называются последовательности символов разделённые пробелами). ------------------------------------------------------------------------ Пожалуйста проверте моё решение этой задачи: она постоянно выводит ноль. ------------------------------------------------------------------------ Заранее спасибо Прикрепленные файлы WORDLENG.PAS ( 626 байт ) Кол-во скачиваний: 344 |
greenday |
Сообщение
#2
|
Гость |
Сорри, что поднял такую старую тему, просто меня интерисует тоже самое, т.е. поиск самого короткого слова в строке. я решал не много по другому, у мен получилось вот что:
Код program MINWORD; uses crt; var s: string; min,i: integer; begin clrscr; write('VVEDITE PREDLOZHENIE '); read(s);min:=256; repeat i:=pos(' ',s); delete(s,1,i); if (i-1 < min) and (i > 1) then min:=i-1; until i=0; write('Samoe korotkoe slovo = ',min); readkey; end. но это выводит только длину мин. слова. про copy я знаю, но не могу понять куда и как приписать счетчик чтобы он позицию считал. вообщем, помогите плиз, доделать мою прогу. надо чтобы выводил именно слово. заранее спс) |
Текстовая версия | 10.05.2024 6:16 |