Program Hitung_Karakter_dalam_Kalimat;
uses crt;
var kalimat:string;
i,p,karakter:integer;
begin
clrscr;
writeln(‘ ———————————————— ‘);
writeln(‘ PROGRAM MENGHITUNG JUMLAH KARAKTER DALAM KALIMAT ‘);
writeln(‘ ———————————————— ‘);
writeln;
writeln(‘ Ketikkan sebuah kalimat : ‘);
writeln;
write(‘ ‘);readln(kalimat);
p:=length(kalimat); karakter:= 0;
for i:=1 to p do
begin
if kalimat[i]in[‘a’..’z’,’ ‘] then karakter := karakter+1;
end;
writeln;
writeln(‘ Jumlah karakter yang anda ketik ada : ‘,karakter,’ karakter ‘);
readkey;
end.