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

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

25.10.2010, 16:17. Показов 4598. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана строка. Указать те слова, которые содержат хотя бы одну букву К. (паскаль) помогите пожалуйста решить
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.10.2010, 16:17
Ответы с готовыми решениями:

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

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

Сколько слов в строке содержат хотя бы одну букву "О".
Дана строка символов до точки,группы символов в ней между группами пробелов считаются словами,...

Создать файл и записать в него все слова из исходного, содержащие хотя бы одну букву C
Программисты помогите пожалуйста. Дан символ C — строчная (маленькая) русская буква и текстовый...

6
Почетный модератор
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
25.10.2010, 16:36 2
 Комментарий модератора 
Катя Валерьевна, Вам видимо мало одной карточки, еще хотите? Зачем Вы все время лезете в чужие темы? Прочитайте хоть раз правила форума и не нарушайте их.

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=[',',';',':','!','?','.'];{разделители можно добавить, зависит от текста}
var  s,s1:string;
     k,i: integer;
begin
clrscr;
write('s = ');
readln(s);
s:=s+','; {добавим запятую в конец}
for i:=length(s) downto 1 do
  begin
    if s[i] in rzd then s[i]:=',';{заменим разделители на запятые}
    while pos(',,',s)>0 do   {если подряд 2 запятые}
    delete(s,pos(',,',s),1); {1 удаляем}
  end;
writeln('Слова, содержащие букву К:');
k:=0;
while pos(',',s)>0 do {пока есть запятые}
 begin
  s1:=copy(s,1,pos(',',s)-1);{копируем первое слово в массив}
  if(pos('K',s1)>0)or(pos('К',s1)>0)then
   begin
    k:=1;
    write(s1,' ');
   end;
  delete(s,1,pos(',',s));{удаляем его}
 end;
if k=0 then write('Таких слов нет');
readln
end.
0
0 / 0 / 0
Регистрация: 08.10.2010
Сообщений: 63
25.10.2010, 19:16  [ТС] 3
А можно как нибудь попроще? без рассмотрения всяких символов.

Добавлено через 2 часа 3 минуты
эта программа выводит почему то все слова, даже не содержащие букву К
0
Почетный модератор
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
25.10.2010, 19:58 4
Вот, поправил, пробелы в множестве разделителей пропустил.
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
31
uses crt;
const rzd=[' ',',',';',':','!','?','.'];{разделители можно добавить, зависит от текста}
var  s,s1:string;
     k,i: integer;
begin
clrscr;
write('s = ');
readln(s);
s:=s+','; {добавим запятую в конец}
for i:=length(s) downto 1 do
  begin
    if s[i] in rzd then s[i]:=',';{заменим разделители на запятые}
    while pos(',,',s)>0 do   {если подряд 2 запятые}
    delete(s,pos(',,',s),1); {1 удаляем}
  end;
writeln(s);
writeln('Слова, содержащие букву К:');
k:=0;
while pos(',',s)>0 do {пока есть запятые}
 begin
  s1:=copy(s,1,pos(',',s)-1);{копируем первое слово в массив}
  if(pos('K',s1)>0)or(pos('К',s1)>0)then  //здесь 1 раз в латинской раскладке, 2й раз в русской
   begin
    k:=1;
    write(s1,' ');
   end;
  delete(s,1,pos(',',s));{удаляем его}
 end;
if k=0 then write('Таких слов нет');
readln
end.
3
141 / 8 / 3
Регистрация: 04.09.2015
Сообщений: 113
14.12.2015, 00:11 5
Огромное спасибо) очень помогло ваше сообщение) а как можно разделить запятыми слова, которые выводятся в результате? они просто пробелами разделены.
0
Почетный модератор
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
14.12.2015, 07:52 6
Строка 25
Pascal
1
 write(s1,',');
1
141 / 8 / 3
Регистрация: 04.09.2015
Сообщений: 113
14.12.2015, 11:35 7
Спасибо)
0
14.12.2015, 11:35
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.12.2015, 11:35
Помогаю со студенческими работами здесь

Найти в тексте все слова, которые содержат хотя бы один фрагмент заданного вида
Сама задача: Найти в тексте все слова, которые содержат хотя бы один фрагмент заданного вида....

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

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

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


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

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

Новые блоги и статьи
Интеграция Arduino и ChatGPT: Практическое руководство
InfoMaster 16.01.2025
В современную эпоху технологических инноваций интеграция искусственного интеллекта с микроконтроллерами открывает принципиально новые возможности для создания умных устройств и автоматизированных. . .
Как создать робота, управляемого ChatGPT
InfoMaster 16.01.2025
Концепция проекта В современную эпоху искусственный интеллект и робототехника становятся все более доступными для энтузиастов и разработчиков. Создание роботизированной руки, управляемой ChatGPT,. . .
Как создать ChatGPT бота в Telegram на Python
InfoMaster 16.01.2025
В современном мире технологии искусственного интеллекта становятся все более доступными для разработчиков, открывая новые возможности для создания умных и интерактивных приложений. Одним из самых. . .
Машинное обучение с помощью Python
InfoMaster 16.01.2025
Машинное обучение стало неотъемлемой частью современных технологий, позволяя компьютерам учиться на основе данных и принимать решения без явного программирования. В сочетании с языком. . .
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре
InfoMaster 16.01.2025
Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .
Как использовать Kerio дома для управления сетью и пользователями
InfoMaster 16.01.2025
Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .
Есть ли будущее у DVD и Blu-ray?
InfoMaster 16.01.2025
В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .
Как проводить научные вычисления на Python
InfoMaster 15.01.2025
Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .
Создание игры типа Minecraft на PyGame/Python: пошаговое руководство
InfoMaster 15.01.2025
В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .
Как создать свою первую игру в стиле Doom на Unreal Engine
InfoMaster 15.01.2025
Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программировани­е: основные технологии и принципы
InfoMaster 15.01.2025
Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD
InfoMaster 15.01.2025
В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru