0 / 0 / 0
Регистрация: 23.05.2009
Сообщений: 7
1

Вывести все слова, которые содержат хотя бы одну букву е

19.06.2009, 08:46. Показов 2576. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вывести все слова, которые содержат хотя бы одну букву е
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2009, 08:46
Ответы с готовыми решениями:

Указать те слова, которые содержат хотя бы одну букву к.
дана строка. Указать те слова, которые содержат хотя бы одну букву к.

Найти в строке те слова, которые содержат хотя бы одну букву k
дана строка.найти в ней те слова,которые содержат хотя бы одну букву k

Дана строка. Указать слова, которые содержат хотя бы одну букву а (на Паскале)
очень прошу до 7 часов вечера,нужно срочно!

В заданной строке найти те слова, которые содержат хотя бы одну букву ‘м’ и вывести их в столбик
В заданной строке найти те слова, которые содержат хотя бы одну букву ‘м’ и вывести их в столбик

1
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
19.06.2009, 09:32 2
Лучший ответ Сообщение было отмечено karmen как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
const rzd=['.',',','?',';',':','!'];{razdeliteli}
var s,s1:string;
    i:byte;
begin
clrscr;
write('Text: ');readln(s);
writeln;
{udalim razdeliteli}
for i:=length(s) downto 1 do
if s[i] in rzd then s[i]:=' ';
{dobavim probel}
s:=s+' ';
{udalim lishnie probely}
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
{vydelyaem slova}
writeln('Iskomye slova: ');
while pos(' ',s)>0 do
  begin
   s1:=copy(s,1,pos(' ',s)-1);
   for i:=1 to length(s1) do
   if s1[i]='e' then
     begin
      write(s1,' ');
      break;
     end;
   delete(s,1,pos(' ',s));
 end;
readln
end.
0
19.06.2009, 09:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.06.2009, 09:32
Помогаю со студенческими работами здесь

Указать слова, которые содержат хотя бы одну букву К
Дана строка. Указать те слова, которые содержат хотя бы одну букву К. (паскаль) помогите пожалуйста...

Дана строка, указать те слова, которые содержат хотя бы одну букву «k»
Дана строка, указать те слова, которые содержат хотя бы одну букву «k». Считать, что слова в тексте...

Удалить из текста все слова, которые содержат хотя бы одну латинскую букву
Удалить из текста все слова, которые содержат хотя бы одну латинскую букву

Указать те слова, которые содержат хотя бы одну букву К
Дана строкаю. Указать те слова, которые содержат хотя бы одну букву К.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru