1. Uses crt; (deklarasi unit)
Var I, j, k : integer; (deklarasi variable dengan tipe data integer)
Begin (memulai program)
Clrscr; (clear screen, membersihkan layar dari tampilan sebelumnya)
Write (‘masukan nilai=’); (menampilkan hasil pada baris yang berbeda)
Readln (i); (membaca data pada variable i)
For j := I downto 1 do (perintah perulangan variable j dengan i menurun 1)
Begin (memulai program)
For k := j downto 1 do (perintah perulangan variable k dengan j menurun 1)
Begin (mulai membuat program)
Write (k); (menampilkan hasil variable k pada baris yang berbeda)
End; (mengakhiri program)
Writeln; (menampilkan hasil pada baris yang sama)
End; (mengakhiri program)
Readln; (menampilkan keseluruhan hasil)
End. (program selesai)
2. Uses crt; (deklarasi unit)
Var I, j, k, baris, kolom : integer; (deklarasi variable dengan tipe data integer)
Begin (memulai program)
Clrscr; (clear screen, membersihkan layar dari tampilan sebelumnya)
Kolom := 6; (keterangan untuk variable kolom sebanyak 6 )
Baris := 1; (keterangan untuk variable baris sebanyak 1)
J := 1; (keterangan variable j adalah 1)
For i := 1 to 3 do (perintah perulangan untuk variable i dengan 1 sampai 3)
Begin (memulai program)
Gotoxy (kolom, baris); (pengaturan letak layar)
For k := 1 to j do (perintah perulangan untuk variable k dengan 1 sampai j)
Begin (memulai program)
Write (‘*’); (menampilkan hasil dalam string pada baris yang sama)
End; (mengakhiri program)
Writeln; (menampilkan hasil pada baris yang berbeda)
Kolom := kolom -1; (keterangan variable kolom dengan kolom -1)
Baris := baris +1; (keterangan variable baris dengan baris +1)
J := j + 2; (keterangan variable j dengan j +2)
End; (mengakhiri program)
Readln; (menampilkan program keseluruhan)
End. (program selesai)
Tidak ada komentar:
Posting Komentar