Senin, 09 Maret 2009

Program Untuk Menghitung Karakter

program cari_huruf_tertentu;
uses wincrt;
var
s:string;
ci,ca,i,p_char:integer;
c:char;
procedure start; {tombol untuk memulai membaca karakter}
begin
ca:=0;
ci:=0;
end;
procedure adv;{tombol untuk menggeser pita karakter}
begin
ci:=ci+1;
end;
procedure inc;{tombol untuk menaikkan nilai ca/jumlah karakter yang dicari}
begin
ca:=ca+1;
end;
begin
write('Masukkan kata/kalimat diakhiri titik = ');readln(s); {menginputkan kalimat}
write('Masukkan huruf yang akan di cari = ');readln(c);{menginputkan huruf yang akan dicari}
start;
while (s[ci]<>'.') do {perulangan sampai tanda titik}
begin
if (s[ci]=c) then {jika ada karakter yang dicari dalam kalimat}
begin
inc; {jumlah karakter yang dicari diincrement}
adv; {pita karakter digeser}
end
else
adv; {pita karakter digeser}
end;
p_char:=ci-1;
writeln(ca,' huruf ',c,' dari ',p_char,' huruf'); {output}
readln;
end.

Tidak ada komentar:

Posting Komentar

Kirim Komentar Anda
(Send Your Comment)