Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Самое короткое слово в строке |
| art88 |
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 40 Пол: Мужской Реальное имя: Артём Репутация:  0   |
Задача такова:
Дана строка, найти в ней самое короткое слово (словами называются последовательности символов разделённые пробелами). ------------------------------------------------------------------------ Пожалуйста проверте моё решение этой задачи: она постоянно выводит ноль. ------------------------------------------------------------------------ Заранее спасибо Прикрепленные файлы 
WORDLENG.PAS ( 626 байт )
Кол-во скачиваний: 417 |
   |
 
|
  |
| volvo |
Сообщение
#2
|
|
Гость |
Цитата Может одну из наших прог доделать? Легко... В моей программе достаточно добавить счетчик слов, и если он будет равен 0 или 1 то выдавать сообшение об ошибке... |
|
|
|
art88 Самое короткое слово в строке 28.10.2005 0:41
Altair To: art88 что-то ты намудрил
...
var
s:string;
… 28.10.2005 0:51 volvo To: Altair
Ты чего? :smoke: :D
var
s: string;… 28.10.2005 1:11 art88 Уважаемые Altair и volvo, извините, но ваши програ… 29.10.2005 21:40 Altair Проверь так те пойдет?
program WordLen;
var
i : i… 29.10.2005 21:53 volvo art88,
вот так проверь:
program WordLen;
var
i :… 29.10.2005 23:16 art88 :D Я наверное вас уже достал, но всё-таки.
volvo, … 30.10.2005 0:42 volvo Я не понял, тебя твоя же чуть-чуть подправленная п… 30.10.2005 0:45 art88 volvo, извини, просто эту задачу мне надо сдавать(… 30.10.2005 2:29 volvo
Я же говорил, что легче в мою программку добавить… 30.10.2005 2:39 PORTUGAL А как сделать что бы вместо длины самого короткого… 7.02.2006 1:28 klem4 copy(s,start,min) 7.02.2006 1:38
PORTUGAL
[code]copy(s,start,min)
Выдает - [b]inv… 7.02.2006 2:05 volvo WriteLn( copy(s,start,min) );
такое выдает? :blin… 7.02.2006 2:07 greenday Сорри, что поднял такую старую тему, просто меня и… 9.04.2006 3:07 volvo про copy я знаю, но не могу понять куда и как прип… 9.04.2006 3:30 klem4 В принципе это можно исправить, запихнуть в процед… 9.04.2006 9:15 Гость to klem4 к сожалению, нас процедурам не учили и по… 9.04.2006 13:28 |
|
Текстовая версия | 23.12.2025 20:22 |
