Programalama > PASCAL


Ort. 0
Puan ver:
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.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.