Разработать функцию MakeStr, возвращающую строку, состоящую из всех гласных латинских букв без повторений

Категория: Delphi/Pascal
2011-08-30 23:42:56

Разработать функцию MakeStr(const S:string):string, возвращающую строку, состоящую из всех гласных латинских букв строки S без повторений. С помощью данной функции для каждой строки из введенного набора вывести все ее гласные латинские буквы без повторений. Гласными считаются следующие буквы: aeiouyAEIOUY.

Вход
В первой строке входа дано количество строк N. Затем следуют N строк, по одной в каждой строке.
Пример
3
abc
aabc
aabbeeaa

Выход
На выход напечатать строки результата, по одной в каждой строке.
Пример: a
a
ae

code: #pascal
  1. function MakeStr(S:string;N:Integer):string;
  2.  var r:string;
  3.  const g='aeiouyAEIOUY';
  4.  begin
  5.  r:='';
  6.  while (n>0)and(length(s)>0) do
  7.   begin
  8.   if pos(s[1],g)<>0 then
  9.    begin
  10.    r:=r+s[1];
  11.    dec(n);
  12.    end;
  13.   delete(s,1,1);
  14.   end;
  15.  MakeStr:=r;
  16.  end;
  17. var n,j:integer;
  18.     s:string;
  19. begin
  20. readln(n);
  21. for j:=1 to n do
  22.  begin
  23.  readln(s);
  24.  writeln(MakeStr(s,j));
  25.  end;
  26. end.
пример программы на python
Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, работа со строками