Skip to content

Menghitung Jumlah huruf pada sebuah kata / kalimat

October 4, 2008

uses crt;
var
kata : string;
h : array [‘A’..’Z’] of byte;
j : char;
i : byte;
begin
clrscr;
write(‘Input kata : ‘);readln(kata);
for i := 1 to length(kata) do
begin
for j := ‘A’ to ‘Z’ do
begin
if kata[i]= j then
begin

Download program lengkapnya di sini

Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: