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

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

25.10.2010, 16:17. Показов 4597. Ответов 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
Ответ Создать тему
Опции темы

Новые блоги и статьи
Как проводить научные вычисления на 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
В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .
Что такое CQRS и как это реализовать на C# с MediatR
InfoMaster 15.01.2025
Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps
InfoMaster 15.01.2025
CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .
Как настроить CI/CD с помощью Jenkins
InfoMaster 15.01.2025
Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .
Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru