Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Дмитрий21
0 / 0 / 0
Регистрация: 07.10.2015
Сообщений: 1
#1

Удвоить все согласные буквы во фразе

07.10.2015, 03:27. Просмотров 816. Ответов 2
Метки нет (Все метки)

Составьте программу переписывающую любую введённую фразу, удваивая все согласные буквы и вставляя за ними букву введенную с клавиатуры Желательно с объяснением каждой строки если не сложно
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2015, 03:27
Ответы с готовыми решениями:

Составьте программу вычеркивающую из слова Х все согласные буквы
Составьте программу вычеркивающую из слова Х все согласные буквы

Вывести все согласные буквы, содержащиеся в слове наибольшей длины
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов)....

Выяснить, все ли согласные буквы слова Х, стоящие на четных местах, различны
Пожалуйста помогите мне составить программу, завтра экзамен, а у меня ничего не...

Вывести в алфавитном порядке все глухие согласные буквы, не входящие в строку
Дана непустая строка из строчных русских букв. Напечатать в алфавитном порядке...

Напечатать в алфавитном порядке все согласные буквы которые не входят ни в одно слово
дана недопустимая последовательность слов из строчных русских букв между...

2
JuriiMW
1934 / 1038 / 1555
Регистрация: 10.12.2014
Сообщений: 3,827
07.10.2015, 09:11 #2
Лучший ответ Сообщение было отмечено Дмитрий21 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var S := ReadLnString('Введите фразу: ');
  WriteLn(S);
  var L := ReadLnString('Какую букву добавлять? ');
  var Sogl := 'БВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
  var R : String := '';
  foreach var C in S do
    R += C + (Pos(UpCase(C), Sogl) > 0 ? C + L : '');
  WriteLn(R);
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25981 / 17423 / 6908
Регистрация: 22.10.2011
Сообщений: 30,662
Записей в блоге: 6
07.10.2015, 09:14 #3
Каждой строки? Да тут вообще одна строка, больше не нужно:
Pascal
1
2
3
4
5
6
uses
  System.Text.RegularExpressions;
begin
  writeln(Regex.Replace(ReadString('Введите строку'),
    '(?i)([bcdfghjklmnpqrstvwxyzбвгджзйклмнпрстфхцчшщ])', '$1$1' + ReadChar('Введите букву')));
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2015, 09:14

Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят в слово
Дана непустая последовательность из строчных русских букв, за последним...

Напечатать в алфавитном порядке: все согласные буквы, которые входят в каждое четное слово
Как сделать разделение строки и запись слов в отдельный элемент массива?

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


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

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

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