Технический форум - Паскаль, строки

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Паскаль, строки (http://www.tehnari.ru/f41/t83006/)

Паскаль, строки

Дана строка, состоящая из любых символов. Нужно найти все английские гласные не входящие в эту строку.:tehnari_ru_837:

Цитата:

Сообщение от Kampuchiec (Сообщение 838622)

Пожалуйста:

Код:

Const

 Vow=['a','e','i','o','u','y','A','E','I','O','U','Y'];

Var

 S:String;

 Svow:Set of Char;

 i,j:Byte;

Begin

 Writeln('Enter the string:');

 Readln(S);

 Svow:=[];

 For i:=1 to length(S) do

  if (S[i] in Vow) and Not(S[i] in Svow) then Svow:=Svow+[S[i]];

 For i:=65 to 122 do

  If ((i<91) or (i>96)) and (Chr(i) in Vow) and Not(Chr(i) in Svow) then

   Write(Chr(i)+' ');

 Readln;

End.

Спасибо огромное