Tutorial kali ini cukup mudah , karena tidak perlu menuliskan banyak script .Tidak sampai 20 baris code secara keseluruhan .
Sebelumnya anda harus paham tentang Cara membuat Say Hello Word Pada Pascal
Jika anda telah membaca artikel pertama , sekarang kita lanjutkan membuat aplikasi Hitung Bintang Pada Pascal .
Langsung Saja Pada Kode Program Untuk Membuat aplikasi Tuliskan kode Berikut:
Program HitungBintang;{tidak harus}
uses crt;
var i,bil,j:integer;
begin
write('Masukan berapa bintang * : ');readln(bil);
for i:=bil downto 1 do
begin
for j:=i to bil do
begin
write('*');
end;
writeln;
end;
end.
Penjelasan Program di atas :
var i,bil,j:integer; Pendefinisian variabel i,bil,j dengan type data integer .
begin Pembuka program sama seperti tag body pada html
write('Masukan berapa bintang * : '); Penulisan kata Masukan berapa bintang , tanpa ganti baris
readln(bil); Pembuatan inputan , yang akan di simpan kedalam variabel bil
for i:=bil downto 1 do Membuat perulangan menurun dari data bil di ulang sampai 1
for i:=bil downto 1 do Membuat perulangan menurun dari data bil di ulang sampai 1
for j:=i to bil do Membuat perulangan dari data i di ulang sampai angka bil yang di tentukan
Sekian artikel Cara Membuat Aplikasi Hitung Bintang Pada Pascal, Ternyata mudah-loh untuk membuat Bintang dalam pascal, Sekian semoga bermanfaat
Wassalamu'alaikum Wr. Wb