You are here

Program 5 bintang (looping)

Setelah sebelumnya kita bermain dengan if, sekarang ke for. Program di bawah ini akan memunculkan output berupa sekumpulan bintang yang membentuk tangga
 1: Program BintangTangga;
 2: const akhir=18;
 3: var baris, kolom: integer;
 4: begin
 5:   for baris:=1 to akhir do
 6:   begin
 7:     for kolom:=1 to baris do
 8:       write('*');
 9:     writeln;
10:   end;
11:   readln;
12: end.

Coba dech dijalankan, gimana hasilnya? menarik bukan?. Sekarang kita coba menampilkan sekumpulan bintang yang membentuk kubus.

 1: Program BintangKubus;
 2: uses crt;
 3: Var i, j, x, y:integer;
 4: Begin
 5:   clrscr;
 6:   Write('Masukkan Dimensi Kubus: ');Readln(x);
 7:   y:=0;
 8:   For i:=1 to x do
 9:   Begin
10:     for j:=1 to x do
11:     Begin
12:       y:=y+1;
13:       write(y:4);
14:       if y mod x=0 then
15:         Writeln;
16:     End;
17:   End;
18:   readkey;
19: End.

Gimana? baguskan? Sekarang tugas kamu membuat sekumpulan bintang berbentuk piramida dan berbentuk tangga terbalik (seperti program pertama di atas tetapi terbalik). Program ini cukup memeras otak lohh... Kalo bisa kirim hasilnya yach....

Regards,

dj