OM SWASTIASTU, Punapi gatra? he...
baik rekan-rekan sekalian kali ini saya akan memberikan source code pascal yang dapat mendeteksi berapa jumlah huruf hidup, hurup mati serta angka, namun tanpa membaca spasi yang ada. dengan output sebagai berikut:




ini source codenya :


program carihurufhidupmatidanangka;
uses crt;
var b,k,i,j, angka:integer;
n:char;
begin
CLRSCR;
writeln('ANGKA, HURUF MATI DAN HURUF HIDUP DETECTOR');
WRITE('MASUKKAN KATA ATAU KALIMAT YANG DI AKHIRI TITIK(.) : ');
b:=0;
k:=0;
repeat
read(n);

 if (48 <= ord(n)) and (ord(n) <= 57) then
angka := angka + 1;

n:=upcase(n);
for i := ord('A') to ORD('Z') do

begin
if n = char(i) then
begin
j := ord(n);
if (j=ord('A')) or (j=ord('E')) or (j=ord('I')) or (j=ord('O')) OR (j=ord('U')) then
k:=k+1
else
b:=b+1;
end;
end;
until n = '.';
writeln('HURUF hidup : ',k);
writeln('HURUF mati  : ',b);
writeln('ANGKA : ' , ANGKA);
READKEY;
end.

*"SElamat mencoba ya..." "OM CANTIH3X.. OM"