Başlangıç > Kodlar > Pascal’da harflerin tekrar sayısını bulmak

Pascal’da harflerin tekrar sayısını bulmak

Klavyeden girilen bir cümle içerisindeki harflerin kaç defa yazıldığını yazan program:

Uses Crt;
Type
Harf = ‘A’…’Z’;
SayıArray = Array [Harf] of Integer;
BulArray = Array [Harf] of Boolean;
Var
Harfsay : SayiArray;
HarfBul : bulArray;
CH:Char;
Begin
Clrscr;
For CH:= ‘A’ TO ‘Z’ DO
Begin
Harfsay   [CH]:= 0;
HarfBul [CH]:= FALSE;
END;
WRITELN (‘BİR SATIRLIK CÜMLE YAZ’:);
REPEAT
READ (CH);
IF CH IN [‘A’ .. ‘Z’] THEN
BEGIN
HARFSAY [CH] : = HARFSAY [CH] + 1;
HARFBUL [CH] : = TRUE;
END;
UNTIL EOLN;
WRITELN (‘HARFLERIN TEKRAR SAYISI:’);
FOR CH : =   ‘A’ TO ‘Z’ DO
BEGIN
IF HARFBUL [CH] THEN
WRITELN    ( CH , HARFSAY [CH] );
END; READLN; READLN; END.

Reklamlar
Kategoriler:Kodlar Etiketler:, , , ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: