Program Hitung_Huruf;
Uses WinCrt;
Var
Teks : string;
banyak : array['A'..'Z'] of byte;
i : byte;
begin
Write('Masukkan Suatu Kalimat :');
Readln(Teks);
for i:=1 to length(teks) do
banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
for i:=1 to 26 do
if (banyak[upcase(chr(64+i))]<>0) then
writeln(upcase(chr(64+i)),' banyaknya
=',banyak[upcase(chr(64+i))]);
end.
Sabtu, 29 Mei 2010
Program Hitung_Huruf
Langganan:
Posting Komentar (Atom)
search
Entri Populer
-
Program Urut_Bilangan; Uses Wincrt; Var A,B,C:integer; Begin Writeln('Program Mengurut Bilangan'); Writeln('====================...
Labels
- Algoritma (7)
- Mysql Data Base (1)
- Sistem Operasi (1)
- Tips dan Trik Computer (7)
- Tutorial (3)
About Me
- jodhypati
- Ilmu Komputer adalah ilmu yang sedang saya cari saat ini... jadi minat saya adalah mencari ilmu komputer setinggi mungkin
Tidak ada komentar:
Posting Komentar