|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.11.2017, 20:25 | #1 |
Регистрация: 16.11.2017
Сообщений: 3
|
Работа со строками - Pascal
вроде как все должно работать, но почему то не работает
uses crt; procedure Vvod(var s:string); begin readln(s); s:=s+' '; while pos(' ',s)>0 do delete(s,pos(' ',s),1); end; function Slovo(sl,s:string):boolean; var k:byte; begin k:=pos(sl,s); if ((k=1)and(s[k+length(sl)]=' ')) or((s[k-1]=' ')and(s[k+length(sl)]=' ')) then Slovo:=true else Slovo:=false; end; var s,s1,s2,s3:string; mx:byte; begin clrscr; writeln('Первая строка:'); Vvod(s1); writeln('Вторая строка:'); Vvod(s2); mx:=0; while pos(' ',s1)>0 do begin s:=copy(s1,1,pos(' ',s1)-1); if (length(s)>mx)and not Slovo(s,s2) then begin mx:=length(s); s3:=s; end; delete(s1,1,pos(' ',s1)); end; writeln('Самое длинное слово ',s3); readln end. |
23.11.2017, 23:50 | #2 |
Форумчанин
Регистрация: 08.11.2017
Сообщений: 347
|
Вроде как буквы знаю, но смысла не понимаю
Попробуйте, хотя бы задание показать. И используйте для листинга BBCode code http://www.programmersforum.ru/misc.php?do=bbcode |
24.11.2017, 01:30 | #3 |
Регистрация: 16.11.2017
Сообщений: 3
|
В предложении S1 найти самое длинное слово, которое отсутствует в предложении S2.
Вот задание |
24.11.2017, 07:14 | #4 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
А для начала вот эту конструкцию: Код:
Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Последний раз редактировалось Sciv; 24.11.2017 в 07:24. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа со строками Pascal | decantnik | Помощь студентам | 3 | 12.03.2011 22:46 |
Pascal. Работа со строками. | lisenog | Помощь студентам | 1 | 16.12.2010 15:56 |
Работа со строками (pascal) | Marlin | Помощь студентам | 7 | 03.06.2010 14:11 |
Работа со строками (pascal) | ДиM@ | Помощь студентам | 3 | 18.04.2010 09:39 |
Работа со строками (Pascal) | RoMaNyIL | Помощь студентам | 2 | 21.05.2009 20:39 |