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

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.55/11:

@Ilona_Shevchuk 0 / 0 / 2 Регистрация: 16.10.2013 Сообщений: 10
		1
	В заданной строке найти те слова, которые содержат хотя бы одну букву ‘м’ и вывести их в столбик 20.10.2013, 16:59. Показов 2181. Ответов 1 Метки нет (Все метки) В заданной строке найти те слова, которые содержат хотя бы одну букву ‘м’ и вывести их в столбик 0

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #5494868

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

20.10.2013, 16:59

Ответы с готовыми решениями:

В заданной строке найти слова, которые содержат хотя бы одну букву 'м' и вывести их в столбик
Вводить слова нужно через Inputbox, a выводить через worksheets

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

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

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

Ilona_Shevchuk

0 / 0 / 2

Регистрация: 16.10.2013

Сообщений: 10

14.12.2013, 22:58 [ТС]

Сообщение было отмечено Ilona_Shevchuk как решение

Решение

Pascal

var 
s, s1:string;
begin
   readln(s);
   while pos(' ',s)<>0 do
   begin 
      s1:=copy(s,1,pos(' ',s));
      delete(s,1,pos(' ',s));
      if pos('m',s1)<>0 then writeln(s1);
   end;
   if pos('m',s)<>0 then writeln(s);
end.

	14.12.2013, 22:58

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

14.12.2013, 22:58

Помогаю со студенческими работами здесь

Вывести все слова, которые содержат хотя бы одну букву k
Помогите пожалуйста, начали изучать С# в универе, в первой же лабе есть задание со строками: Дана...

Дана строка. Вывести те слова, которые содержат хотя бы одну букву k
Можно использовать функции: copy, concat, length, pos, delete, insert. var Form1: TForm1; ...

Дан текст. Вывести те слова, которые содержат хотя бы одну букву k
Установить на форму необходимые компоненты и через Инспектор Объектов для каждого компонента задать...

Найти в тексте слова, которые содержат хотя бы одну заданную букву
Исходный текст должен вводиться пользователем с экрана в виде одной или нескольких строк. В...

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

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи
В чем разница между let и var в JavaScript InfoMaster 20.01.2025 JavaScript прошел длинный путь эволюции с момента своего создания в 1995 году. Одним из важнейших аспектов развития языка стало совершенствование механизмов объявления и управления переменными. . . .	Эффективная работа со строками в Go InfoMaster 20.01.2025 Язык программирования Go предлагает уникальный подход к работе со строками, который существенно отличается от многих других языков программирования. В Go строки представляют собой неизменяемые. . .	Как проверить, что отображение (map) содержит ключ в Go InfoMaster 20.01.2025 Отображения (maps) в языке программирования Go представляют собой мощные структуры данных, которые позволяют хранить пары ключ-значение и обеспечивают быстрый доступ к данным по уникальным. . .	Как организовать домашнее хранилище фильмов с общим доступом для всей семьи InfoMaster 20.01.2025 Преимущества домашнего медиасервера В современном мире, где цифровой контент стал неотъемлемой частью нашей жизни, организация домашнего медиасервера становится все более актуальной задачей. . . .	Перспективы развития жестких дисков: есть ли у них будущее? InfoMaster 20.01.2025 История и эволюция жестких дисков История развития жестких дисков начинается в 1956 году, когда компания IBM представила первое устройство для хранения данных на магнитных пластинах - IBM 350. . .	Распознавание изображений (компьютерное зрение) на C++ InfoMaster 20.01.2025 Введение в компьютерное зрение и основы работы с изображениями Компьютерное зрение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, позволяющую. . .
Какой язык программирования лучший для разработки нейронных сетей InfoMaster 20.01.2025 В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .	Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .

Наверх