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

@Мати · Регистрация: 27.12.2012

Как создать программу (Дано предложение. Все гласные буквы заменить на *) ? Плллиииз помогите !
Заранее спасибо!...

@CodeR · 27.12.2012, 15:01

Pascal

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;

@Мати · 27.12.2012, 15:02 **[ТС]**

спасибо

@baquaqa · 27.12.2012, 15:04

Здравствуйте, вот вариант решения:

Pascal

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.

@Мати 0 / 0 / 0 Регистрация: 27.12.2012 Сообщений: 19
		1
	Процедуры и функции: Дано предложение. Все гласные буквы заменить на * 27.12.2012, 14:50. Показов 1069. Ответов 3 Метки нет (Все метки) Как создать программу (Дано предложение. Все гласные буквы заменить на *) ? Плллиииз помогите ! Заранее спасибо!... __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Мати 0 / 0 / 0 Регистрация: 27.12.2012 Сообщений: 19
	27.12.2012, 15:02 [ТС]	3
	спасибо 0

Опции темы