Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.
Jalankan Program dengan menekan tombol Ctrl+F9 :
Program Bintang;
Uses
Wincrt;
Procedure TulisBintang(n:integer);
Var i:integer;
Begin
for i := 1 to n do
Begin
Write('*');
End;
Writeln;
End;
Begin
TulisBintang(3);
TulisBintang(4);
TulisBintang(5);
TulisBintang(6);
TulisBintang(5);
TulisBintang(4);
TulisBintang(3);
End.
Semoga bermanfaat.
Salam,
Yura Hyde Tetsu
Jika Merasa Arikel dan Bacaan di
Billix Multimedia v.2
Bermanfaat,
Jangan Lupa Share ke Teman-teman melalui Tombol Share di bawah posting ini
Like on
Billix Multimedia v.2 Facebook
. Follow atau Berlangganan Via Email.
Terimakasih
Yang Copas, Jangan Lupa Mencantumkan Sumbernya Yah!
0 komentar :
Post a Comment