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

Процедуры и функции: Дано предложение. Все гласные буквы заменить на *

27.12.2012, 14:50. Показов 1069. Ответов 3
Метки нет (Все метки)

Как создать программу (Дано предложение. Все гласные буквы заменить на *) ? Плллиииз помогите !
Заранее спасибо!...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2012, 14:50
Ответы с готовыми решениями:

Дано слово, заменить в нем гласные буквы на согласные, следующие за ним в алфавите, а согласные на гласные
Дано слово, заменить в нем гласные буквы на согласные, следующие за ним в алфавите, а согласные на...

В произвольном предложение удалить все гласные буквы
Здравствуйте!Помогите с написанием программы.Программа звучит так:"В произвольном предложение...

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

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

3
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,496
Записей в блоге: 1
27.12.2012, 15:01 2
Pascal
1
2
3
4
5
6
7
8
Function F(s:string):string;
Const mn=['a','e','i','o','u','y'];
Var i:byte;
Begin
    For i:=1 to Length(s) do
     if s[i] in mn then s[i]:='*';
    F:=s;
End;
1
0 / 0 / 0
Регистрация: 27.12.2012
Сообщений: 19
27.12.2012, 15:02  [ТС] 3
спасибо
0
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
27.12.2012, 15:04 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
program _strings;
 
const
 
 cletters = ['у','У','е','Е','ы','Ы','а','А','о','О',
             'э','Э','я','Я','и','И','ю','Ю'          ];
             
var 
 
 instring:String;
 
function SubstLetters(const aString:String):string;
 var
  i:integer;
  mod_string:string;
begin
 mod_string:=astring;
 for i:=1 to length(aString) do 
 if mod_string[i] in cletters then mod_string[i]:='*';
 SubstLetters:=mod_string;
end; 
 
BEGIN
 
{ input }
 write('String: ');
 readln(instring);
 
{ process. & output}
 write('RESULT: ',SubstLetters(instring));
END.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2012, 15:04
Помогаю со студенческими работами здесь

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

Множества. Вывести все гласные буквы, входящие в заданное предложение
Здравствуйте, помогите пожалуйста написать программу: Дано предложение состоящее из латинских...

Дано предложение. все буквы "е" в нем заменить на букву "и"
Дано предложение. все буквы "е" в нем заменить на букву "и" нужна программа на qbasic Алия_К,...

Дано предложение. Все буквы
Задача на строки: Дано предложение. Все буквы "е" в нем заменить на букву "и".


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru