Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai Program menyusun bintang berdasarkan inputan bilangan...
Pada program kali ini kita akan membuat sebuah susunan bintang berbentuk segitiga, selamat menikmati ya
:D
Program Menyusun_Bintang;
Uses crt;
Var i,j,n:integer;
Begin
Write('Masukkan Jumlah Baris: ');Readln(n);
For i:= 1 to n do
Begin
Gotoxy(40-3*i,1+i);
For j:= 1 to i do
write('*':6);
End;
readln;
End.
kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :
jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D
Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...
mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih :D
Pada program kali ini kita akan membuat sebuah susunan bintang berbentuk segitiga, selamat menikmati ya
:D
Program Menyusun_Bintang;
Uses crt;
Var i,j,n:integer;
Begin
Write('Masukkan Jumlah Baris: ');Readln(n);
For i:= 1 to n do
Begin
Gotoxy(40-3*i,1+i);
For j:= 1 to i do
write('*':6);
End;
readln;
End.
kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :
jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D
Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...
mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih :D
ini prgram jelas jelas ngawur deh. masa di badan programnya ada xy trus di bagian variablenya gak di deklarasiin sama sekali ?
gotoXY itu tidak termasuk variabel bro hsl, jadi program diatas udaah bener, gua aja berhasil, thanx dayakomputerku