Оставить в строке только гласные буквы

@Larisa777 · Регистрация: 09.12.2010

Author24 — интернет-сервис помощи студентам

Заданы М строк символов, которые вводятся с клавиатуры. Каждая заданная строка представляет собой текст. Оставить в этих текстах только гласные буквы. Помогите, пожалуйста, решить задачу во Free Pascal и составить блок схему.

@SuPeR XaKer · 22.02.2011, 17:27

Pascal

Uses
 Crt;
Var
 n,i,j:integer;
 s:string;
 a:array[1..20] of string[50];
begin
repeat
 write('Ââåäèòå êîë-âî ïðåäëîæåíèé: ');
 readln(n);
until n in [1..20];
for i:=1 to n do
begin
 write('Ââåäèòå ',i,'-å ïðåäëîæåíèå: ');
 readln(a[i]);
end;
writeln;
writeln('Ðåçóëüòàò: ');
for i:=1 to n do
begin
s:=a[i];
 for j:=length(s) downto 1 do
  if not(UpCase(s[j]) in ['À','ß','Ý','Å','Î','¨','Ó','Þ','È','Û']) then
   delete(s,j,1);
 writeln(s);
end;
readkey
end.

@Larisa777 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 13
		1
	Оставить в строке только гласные буквы 22.02.2011, 16:34. Показов 1782. Ответов 1 Метки нет (Все метки) Заданы М строк символов, которые вводятся с клавиатуры. Каждая заданная строка представляет собой текст. Оставить в этих текстах только гласные буквы. Помогите, пожалуйста, решить задачу во Free Pascal и составить блок схему. 0

	22.02.2011, 17:27

Оставить в строке только гласные буквы

Решение