0 / 0 / 0
Регистрация: 29.03.2012
Сообщений: 4
|
|
1 | |
Найти в строке те слова, которые содержат хотя бы одну букву k17.06.2008, 20:45. Показов 2682. Ответов 3
Метки нет (Все метки)
0
|
17.06.2008, 20:45 | |
Ответы с готовыми решениями:
3
Указать те слова, которые содержат хотя бы одну букву к. Вывести все слова, которые содержат хотя бы одну букву е Дана строка. Указать слова, которые содержат хотя бы одну букву а (на Паскале) В заданной строке найти те слова, которые содержат хотя бы одну букву ‘м’ и вывести их в столбик |
13208 / 6596 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
|
||||||
17.06.2008, 20:58 | 2 | |||||
0
|
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
17.06.2008, 21:38 | 3 |
Эта программа не выводит слово с буквой "к", если оно последнее.
Самый простой ремот, вставить такую строчку в процедуру: while (Length(sText)>0)and(sText[1]=' ') do Delete(sText,1,1); sText:=stext+' '; i := Pos(' ',sText); Еще в конце добавить readln или readkey и заменить у end; ; на .
0
|
13208 / 6596 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
|
|
18.06.2008, 20:44 | 4 |
Чтобы последнее слово выводила, надо заменить строку
if i=0 then sWord := '' на if i=0 then begin sWord:=sText; sText:=''; end
0
|
18.06.2008, 20:44 | |
18.06.2008, 20:44 | |
Помогаю со студенческими работами здесь
4
Указать слова, которые содержат хотя бы одну букву К Дана строка, указать те слова, которые содержат хотя бы одну букву «k» Дана строка, найти в ней те слова, которые содержат хотя бы одну букву k Дана строка; найти в ней те слова, которые содержат хотя бы одну букву к Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |