|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.04.2010, 01:15 | #1 |
Пользователь
Регистрация: 03.03.2010
Сообщений: 21
|
найти общее слово
Доброй ночи!Помогите пожалуйста вот с такой задачей:
Даны 2 предложения(вводятся с клавиатуры через пробел),найти для них самое длинное общее слово. например 1-ое предложение- университет расположен возле дома 2-ое предложение- университет был в другом городе должно вывести университет как то так наверно ищется самое длинное в тексте а как сделать чтобы искало в предложениях и находило общее я не знаю,очень нужно помогите пожалуйста!!! Uses Crt; Var St, pretender, longword: String; i: Byte; begin ClrScr; Write('введите предложение: '); Readln(St); St := St + ' '; longword := ''; for i:=1 to Length(St) do begin if St[i] <> ' ' then begin pretender := pretender + St[i]; Continue; end; if St[i] = ' ' then begin if Length(longword) < Length(pretender) then begin longword := pretender; end; pretender := ''; end; end; Write('Found long word: ', longword); readkey; end. |
11.04.2010, 02:24 | #2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
11.04.2010, 19:40 | #3 | |
Пользователь
Регистрация: 03.03.2010
Сообщений: 21
|
Цитата:
спасибо! а подскажите пожалуйста,вот если ввести в первую строку- университет а во вторую ауниверситет,то выдает что общее слово университет,как сделать чтобы убрать эту ошибку? |
|
11.04.2010, 22:49 | #4 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
12.04.2010, 19:37 | #5 | |
Пользователь
Регистрация: 03.03.2010
Сообщений: 21
|
Цитата:
1: универ возле дома 2: универ возле трассы программа мне выдает,что самое длиное слово -возле,хотя должно быть -универ Я ещё раз извиняюсь ,что отнимаю ваше драгоценное время!!!! |
|
13.04.2010, 17:58 | #6 |
Форумчанин
Регистрация: 12.04.2010
Сообщений: 134
|
вариант 1
Код:
Код:
кому нужна помощь! жду в аське и скайпе!
Последний раз редактировалось Филантроп; 13.04.2010 в 18:01. |
13.04.2010, 18:14 | #7 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Гдето я уже это видел.
にんじゃ
|
13.04.2010, 18:15 | #8 |
Форумчанин
Регистрация: 12.04.2010
Сообщений: 134
|
http://rfpro.ru/ - вот тут!
кому нужна помощь! жду в аське и скайпе!
|
13.04.2010, 18:23 | #9 | |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Цитата:
にんじゃ
|
|
13.04.2010, 19:15 | #10 | |
Форумчанин
Регистрация: 12.04.2010
Сообщений: 134
|
Цитата:
кому нужна помощь! жду в аське и скайпе!
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти слово из текста | serres | SQL, базы данных | 2 | 09.04.2010 09:41 |
Найти слово,встречающееся в каждом предложении | 555shiro | Общие вопросы C/C++ | 1 | 06.01.2010 20:11 |
Найти слово с любым регистром | Shouldercannon | Общие вопросы Delphi | 3 | 28.06.2009 17:01 |
найти самое длинное симметричное слово Си++ | xVeteRx | Помощь студентам | 3 | 10.04.2009 21:25 |
Как найти слово в тексте ? | geniy | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 03.02.2008 21:37 |