program pencarian huruf pada kalimat

uses wincrt;
var n:array[1..26] of integer;
i,j:integer;
kata : String;
begin
for i:=1 to 26 do n[i]:=0;
write(‘Ketikkan sebuah kalimat : ‘);readln(kata);
for i:=1 to length(kata) do
for j:=1 to 26 do
if ord(upcase(kata[i]))=64+j then
inc(n[j]);
for i:=1 to 13 do
writeln(chr(64+2*i-1),’ = ‘,n[2*i-1],’ ‘,chr(64+2*i),’ =
‘,n[2*i]);
end

Kadang kita membutuhkan suatu mesin pencari karakter yang bisa digunakan untuk mencari karakter yang kita inginkan. Atau kadang kita ingin menghitung berapa banyak karakter a atau karakter b dalam sebuah teks. Berikut ini adalah contoh program untuk mencari karakter 'NG' pada sebuah string berbentuk array;

program karakterNG;
uses wincrt;

const
L: array [1..11] of char = ('N','A','N','G','K','A',' ','A','N','G','#');
var
a,n : integer;

begin

write (L);
n:=0;
a:=1;
while (L[a] <> '#') do
begin
if (L[a] = 'N') and (L[a+1]='G') then
begin n:=n+1;
end;

L[a]:=L[a+1];
a:= a+1;
end;

writeln;
write('jumlah karakter NG : ',n,' buah');
end.

OUTPUT : jumlah karakter NG : 2 buah

Penjelasan : pertama kita membuat sebuah konstanta L/larik dimana isinya adalah kumpulan dari karakter. dari karakter tersebut akan dicari apakah ada huruf NG, jika ada maka pada output akan ditampilkan berapa banyak huruf N yang berdampingan dengan G.
kemudian kita tulis kata yang ada di dalam larik/array L write(L);
setelah itu beri nilai n dan a untuk indeks pada larik.

kemudian cek apakah karakter merupakan # ? kalau iya berarti pencarian dihentikan.
kalau tidak, dicek lagi apakah isi karakter merupakan huruf 'N' dan karakter selanjutnya adalah 'G' jika iya maka nilai n (variabel yang menampung jumlah karakter NG) ditambah 1.

fungsi dari
L[a]:=L[a+1];
a:= a+1;
adalah untuk melakukan pencarian berikutnya. pada larik yang selanjutnya.
Sedangkan untuk menghitung banyak kata hanya perlu mengganti kondisi
if (L[a] = 'N') and (L[a+1]='G') then
begin n:=n+1;
end;menjadi if (L[a] <> ' ') and (L[a+1]=' ') then
dan ganti n:=0 menjadi n:=1
menjadi

program karakterNG;
uses wincrt;

const
L: array [1..11] of char = ('N','A','N','G','K','A',' ','A','N','G','#');
var
a,n : integer;

begin

write (L);
n:=1;
a:=1;
while (L[a] <> '#') do
begin
if (L[a] <> ' ') and (L[a+1]=' ') then
begin n:=n+1;
end;

L[a]:=L[a+1];
a:= a+1;
end;

writeln;
write('jumlah kata pada teks adalah : ',n,' buah');
end.

Demikian Listing program tentang contoh pencarian huruf pada kalimat, Semoga bermanfaat ya. Baca juga program berat badan.