halo halo kwand reasker yang paling saya sayangi hhe..

kita ketemu lagi nieh, sekarang coretan seorang reasker akan memberikan reasker post dengan judul seperti judul di atas,

hmm program again? bagi yang suka sama coding sih ga masalah yaa hahaha

oke kita langsung aja ke TKP kali ya hoho

gampang banget sih sebenernya buat program ini soalnya scriptnya mudah banget, *akh banyak ngomong nieh* hhe,, maaf deh oke deh check this source :D 

dan ini lah source codenya eng ing eng ahha :

Program cari_huruf; // cari_huruf adalah nama programnya

uses wincrt; //memanggil library

var kata:string; //penginisialisaian variable

i,x,y:integer;

begin

write(‘Masukan kata: ‘); // untuk membaca

readln(kata); //untuk menyimpan

y:=length(kata);

x:=0;

for i:=1 to y do begin //pengulangan(looping)

if (kata[i]=’a’) or (kata[i]=’A’) then begin

x:=x+1;

end;

end;

writeln(‘Banyak a: ‘,x);

end.

itu lah source code atau scriptnya, semoga bermanfaat yaa kwand reasker, tunggu reasker post selanjutnya😀