Program Menghitung Jumlah Huruf Pascal

Dalam kata “Indonesia” terdapat 2 huruf i, 2 huruf n , 1 huruf d dan lain sebagainya. Program yang akan dibuat kali ini adalah seperti contoh diatas yaitu untuk menghitung berapa jumlah per huruf dalam sebuah kata atau kalimat.

Output dari Program nya seperti Berikut :

 Program Menghitung Jumlah Huruf

Berikut Program lengkapnya :

Program MenghitungJumlahHuruf;

Uses Crt;

Var

            kata     : String;

            jumlah : Array['A'..'Z'] of integer;

            i                       : integer;

Procedure author;

Const

            Garis = ‘===============================’;

Begin

            Writeln(Garis);

            Writeln(‘Judul      : Analisa Teks’);

            Writeln(‘Compiler   : Free Pascal’);

            Writeln(‘Author     : Crazy Program’);

            Writeln(‘Website    : CrazyProgram.com’);

            Writeln(Garis);

            Writeln;

end;

{ Main Program }

Begin

            clrscr;

            author;

            Write(‘Masukan kata atau Kalimat : ‘);

            Readln(kata);

            for i := 1 to length(kata) do

                        jumlah[upcase(kata[i])] := jumlah[upcase(kata[i])] + 1;

            for i := 1 to 26 do

                        if (jumlah[upcase(chr(64+i))]<>0) then

                                    Writeln(‘Banyaknya huruf ‘,upcase(chr(64+i)),’ adalah ‘,jumlah[upcase(chr(64+i))]);

            readln;            

End.

” If we never felt like a failure, perhaps we have failed to define the meaning of success.”

Anton Suharyanto

Program Menghitung Jumlah HurufCrazyProgram.com

About Crazy

Setiap kode program yang ada dalam CrazyProgam.Com jika anda copas dalam compiler ada pesan error, coba anda ketikkan secara manual agar anda lebih menguasai dan memahami programnya. Feel free to ask here ..

No comments yet.

Leave a Reply