|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2011, 22:11 | #1 |
Пользователь
Регистрация: 25.12.2011
Сообщений: 47
|
строки
Дана строка, содержащая текст. Найти длину самого короткого слова и его порядковый номер.
длину самого короткого слова я нашел,подскажите а как найти порядковый номер, напишите пожалйста код: var s:string; small,i,n,k,t: integer; begin k:=0; readln(s); k:=0; n:=length(s); i:=1; t:=0; while (i<=n) do begin if (s[i]) <>' ' then t:=t+1 else begin if t<small then small:=t; t:=0; end; i:=i+1; end; end; writeln(small); end. |
25.12.2011, 22:39 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 26.12.2011 в 15:59. |
25.12.2011, 22:41 | #3 |
Пользователь
Регистрация: 25.12.2011
Сообщений: 47
|
спасибо огромное...!
|
25.12.2011, 22:42 | #4 |
Пользователь
Регистрация: 25.12.2011
Сообщений: 47
|
а что такое dividers?
|
25.12.2011, 22:47 | #5 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Цитата:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
|
26.12.2011, 14:14 | #6 |
Пользователь
Регистрация: 25.12.2011
Сообщений: 47
|
скажите пожалуйста в чем ошибка в исправленной программе если программа не правильно считает Длину самого короткого слова.
Последний раз редактировалось zenid; 26.12.2011 в 14:50. |
26.12.2011, 14:50 | #7 |
Пользователь
Регистрация: 25.12.2011
Сообщений: 47
|
пожалуста помогите.....!
|
26.12.2011, 15:59 | #8 | ||
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Результат
Цитата:
еще пример Цитата:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 26.12.2011 в 16:05. |
||
26.12.2011, 20:33 | #9 |
Пользователь
Регистрация: 25.12.2011
Сообщений: 47
|
ввел вашу программу у меня всегда почему то выводит длину слова больше на 1 символ, незнаю почему, может он считает пробел?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сделать в гриде строки выше, чтобы не растягивать строки до бесконечности | kris__tina | БД в Delphi | 1 | 09.06.2011 15:31 |
Даны строки S и S0. Удалить из строки S все подстроки, совпадающие с S0 . Если совпадающих подстрок нет, | Шпунюся | Помощь студентам | 1 | 16.12.2010 21:02 |
Создание пустой строки и копирование в неё содержимое предыдущей строки | Gvaridos | Microsoft Office Excel | 2 | 29.10.2010 13:33 |
Определять максимальную длину той части строки s, которая не содержит символы из строки s1. | Александе еть я | Общие вопросы C/C++ | 5 | 13.04.2010 20:54 |
Перенести символа с начала строки в место перед запятой этой же строки. | Zhiltsov | Microsoft Office Excel | 4 | 05.06.2009 13:10 |