Dalam kali ini tugasnya adalah membuat Perulangan bilangan pada Pascal.Untuk tugas yang ke-5 adalah tentang perulangan, kagak usah banyak cingcong kita mulai aja check it out!:
Temen** bisa meng-copy paste kan kode di bawah ini ke Notepad kemudian save-as dengan ektensi .PAS yang udah aku ajarin pada tugas pascal sbelumnya.Masukkan kode Pascal di bawah ini:
Uses crt;
Var a,b,c,d,e:integer;BeginClrscr;Gotoxy(25,4);writeln(‘Pengulangan Cemara’);For a:=1 to 1 doFor b:=2 to 2 doFor c:=3 to 3 doFor d:=4 to 4 doFor e:=5 to 5 doGotoxy(20,6);writeln(a,’ ‘, ‘ ‘,’ ‘,’ ‘);Gotoxy(20,7);writeln(a,b, ‘ ‘,’ ‘,’ ‘);Gotoxy(20,8);writeln(a,b,c,’ ‘,’ ‘);Gotoxy(20,9);writeln(a,b,c,d,’ ‘);Gotoxy(20,10);writeln(a,b,c,d,e);Readln;End.
Maka hasilnya akan seperti di bawah ini :
Temen** bisa meng-copy paste kan kode di bawah ini ke Notepad kemudian save-as dengan ektensi .PAS yang udah aku ajarin pada tugas pascal sbelumnya.Masukkan kode Pascal di bawah ini:
Uses crt;
Var a,b,c,d,e:integer;BeginClrscr;Gotoxy(25,4);writeln(‘Pengulangan Cemara’);For a:=1 to 1 doFor b:=2 to 2 doFor c:=3 to 3 doFor d:=4 to 4 doFor e:=5 to 5 doGotoxy(20,6);writeln(a,’ ‘, ‘ ‘,’ ‘,’ ‘);Gotoxy(20,7);writeln(a,b, ‘ ‘,’ ‘,’ ‘);Gotoxy(20,8);writeln(a,b,c,’ ‘,’ ‘);Gotoxy(20,9);writeln(a,b,c,d,’ ‘);Gotoxy(20,10);writeln(a,b,c,d,e);Readln;End.
Maka hasilnya akan seperti di bawah ini :
Pengulangan Cemara
1
1 2
1 2 3
1 2 3 4 5
Jika ada kesalahan atau keliru tolong dikonfirmasi!!!!!!!!!!!! Thanks before,....
Komentar