???????

tak ada seorang pun yang tau
apa isi hatiku dan apa keinginanku....
disaat semua orang ta tau.....
ku ta mau memberi tau...
apa isi hatiku dan apa keinginannku...
sampai saat ku tulis tulisan ini,
ta ada seorangpun yang tau..
apa isi hatiku dan apa keinginanku..
ku ingin semua orang tau..
tapi ku ta mau memberi tau...
ku ingin semua orang mengerti...
tapi ku ta sanggup tuk sakit hati...
isi hatiku, cita-citaku...
keinginanku, cita-cita ku..
sampai saat ini,
ku tlah jauh melangkah..
meninggalkan isi hatiku..
meninggalkan keinginanku..
ta seorang pun yang tau...
apa isi hatiku, apa keinginanku...
isi hatiku..
keinginanku..
cita-citaku...

Program Menghitung Kemunculan Huruf "rhend"

program limahuruf;

kamus

cc:char
ci,jumlah:integer
pita:string

Algoritma

output('masukkan kalimat : ')
input(pita)
jumlah<-0
start
while (cc<>'.') do
begin
if (cc='r') then
begin
adv
if (cc='h') then
begin
adv
if (cc='e') then
begin
adv
if (cc='n') then
begin
adv
if (cc='d') then
begin
jumlah:=jumlah+1
end
end
end
end
end
adv
end
output('jumlah huruf rhend adalah : ',jumlah)

end.

Program Menghitung Kemunculan Huruf "rhen"

program empathuruf

kamus
cc:char;
ci,jumlah:integer;
pita:string;

Algoritma


output('masukkan kalimat : ')
input(pita)
jumlah<-0
start
while (cc<>'.') do
begin
if (cc='r') then
begin
adv
if (cc='h') then
begin
adv
if (cc='e') then
begin
adv
if (cc='n') then
jumlah:=jumlah+1
end
end
end
adv
end
write('jumlah huruf rhen adalah : ',jumlah)
end.

Program Menghitung Kemunculan Huruf "rhe"

program tigahuruf

kamus

cc:char
ci,jumlah:integer
pita:string

Algoritma

output('masukkan kalimat : ')
input(pita);
jumlah<-0
start
while (cc<>'.') do
begin
if (cc='r') then
begin
adv
if (cc='h') then
begin
adv
if (cc='e') then
begin
jumlah:=jumlah+1
end
end
end
adv
end
output('jumlah huruf rhe adalah: ',jumlah)

end.

Program Menghitung Kemunculan Huruf "rh"

program duahuruf

Kamus

cc:char
ci,jumlah:integer
pita:string

Algoritma

output('masukkan kalimat : ')
input(pita)
jumlah<-0
start
while (cc<>'.') do
begin
if (cc='r') then
begin
adv
if (cc='h') then
begin
jumlah:=jumlah+1
end
end
adv
end
output('jumlah huruf rh adalah : ',jumlah)

end.