Selasa, April 28, 2009

Menghitung Jumlah Huruf Dalam Kalimat

var
huruf : char;
N : integer;

begin
N := 0;
writeln ( 'masukkan kalimat = ' ); read ( huruf );
while ( huruf <> '.' ) do
begin
if ( huruf <> ' ' ) then
begin N := N+1 end;
read ( huruf );
end;
write ( 'jumlah huruf = ',N );
end;
end.

Menghitung Jumlah 1 Huruf dalam kalimat


var
huruf : char;
jumlah : integer;

begin
jumlah := 0;
read ( 'masukkan kalimat = ' ); read ( huruf );
repeat
begin
if ( huruf = 'a' ) then jumlah := jumlah + 1;
read ( huruf );
end;
until ( huruf = '.' );
write ( 'jumlah uruf a = ',jumlah );

Tidak ada komentar:

Posting Komentar