Programalama > PASCAL

program sesli_sessiz;
uses crt;
type
    harfler = set of 'A'..'Z';
var
   sesli, sessiz, harf, sessizbul : harfler;
   ch : char;
begin
     clrscr;
     sessizbul := [];
     sesli := ['A','E','I','U','O'];
     harf := ['A'..'Z'];
     sessiz := sesli - harf;
     write('Byk harfle bir metin giriniz...>');
     while not eoln do
           begin
                read(ch);
                if (ch in sesli) or (ch = '˜') or (ch = '™') or (ch = 'š') then
                   write('-')
                else
                    begin
                         sessizbul := sessizbul + [ch];
                         write(ch);
           end;     end;
     readln;
     writeln;
     for ch := 'A' to 'Z' do
         if ch in sessizbul then
            write(ch);
     readln;
end.