pascal 2

Buatlah Program dengan   tampilan :

1                                                                                     

12                                                                      

123                                                                    

1234                                                                     

12345

Logika :

Uses crt                           : Digunakan untuk mengaktifkan output monitor

Begin                               : Digunakan untuk memulai melakukan coding atau program

CLRSCR                        : Digunakan untuk membersihkan layar 

Var d,p:integer                 : mendeklarasikan d,p sebagai variabel dengan jenis data integer

For d := 1 to 5 do            : kondisi perulangan menyatakan variabel d adalah 1 sampai 5

For p := 1 to d do           : kondisi perulangan variabel p adalah 1 sampai variabel d

Writeln;                           mencetak semua perintah

End;                              : mengakhiri perintah kedua

Readln;                        : membaca semua program

End.                                       : mengakhiri program

HASIL