Program Perulangan FOR..TO..DO di PASCAL

Program Perulangan FOR..TO..DO di PASCAL, kembali lagi saya dengan salah satu program yang alhamdulillah saya buat sendiri dan juga berasal dari tugas kuliah saya. Tanpa bertele-tele langsung sajalah seperti berikut ini :

Program I

uses wincrt;

var a,b:integer;

                     begin

                            for a:=1 to 5 do

                     begin

                            for b:=1 to a do

                            write(b,' ');

                      writeln;

                  end;end.

Program II

uses wincrt;

var

                    i,j,n:integer;

begin

                        write ('Banyak Perulangan: '); readln(n);

                         j:=5;

                              for i:=1 to n do

begin

                        writeln(i,' ',j);

                        j:=j-1;

end;

                  readln;

end.



Selamat mencobaa. Terima kasih atas kujungan anda dan jangan lupa tinggalkan komentar anda. Follow juga yaa