Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
87781891293
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 40
1

Выделить все слова, которые начинаются на букву ‘м’

07.03.2013, 09:42. Просмотров 1232. Ответов 1
Метки нет (Все метки)

6. Дан текст. Выделить из него все слова, которые начинаются на букву ‘м’.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2013, 09:42
Ответы с готовыми решениями:

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

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

Ошибка в коде (печатать все слова, отличные от последнего слова, которые начинаются и оканчиваются одной буквой)
Заранее прошу прощения всех бывалых и новичков (потому что я - самый-самый...

Дана строка. Найти в ней все слова, которые начинаются и заканчиваются одной и той же буквой. Вывести эти слова на экране.
Дана строка. Найти в ней все слова, которые начинаются и заканчиваются одной и...

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

1
Puporev
Модератор
54716 / 42122 / 29086
Регистрация: 18.05.2008
Сообщений: 99,426
07.03.2013, 11:08 2
Лучший ответ Сообщение было отмечено 87781891293 как решение

Решение

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
uses crt;
var s,s1:string;
    n,i,j,k:byte;
begin
writeln('Введите текст из русских слов, разделенных пробелами,');
writeln(' в том числе начинающихся на букву м');
read(s);
n:=length(s);
writeln('Слова на букву м');
k:=0;
for i:=1 to n do
if (s[i]='м')and((i=1)or(s[i-1]=' '))then
 begin
  k:=1;
  s1:='';
  j:=i;
  while(j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  writeln(s1);
 end;
if k=0 then write('Слов на букву м нет')
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 11:08

Напечатать все слова, которые начинаются с буквы а
Дана строка длиной не более 255 символов. Строка содержит слова, разделенные...

Определить все слова, которые начинаются с заданной буквы
30. Дано предложение. Определить все слова, которые начинаются с заданной...

Получить все различные слова заданных строк, которые начинаются с ‘a’.
Дана последовательность строк, заканчивающаяся строкой ‘END’. Получить все...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru