Programalama > PASCAL

program sesli_sessiz;
uses crt;
const
     harf   : set of char = ['a'..'z','‡','§','','”','Ÿ','',
                                 'A'..'Z','€','¦','I','™','ž','š'];
     sesli  : set of char = ['A','a','E','e','I','','˜','i',
			     'O','o','™','”','U','u','š',''];
var
   i, j : byte;
   ch   : char;
begin
     clrscr;
     write('Ltfen bir cmle giriniz >');
     while not eoln do
           begin
                read(ch);
                if ch in harf - sesli then
                   i := i + 1;
                if ch in sesli then
                   j := j + 1;
           end;
     readln;
     writeln('Sessiz harf says ', i:3 );
     writeln('Sesli  harf says ', j:3);
     readln;
end.