Perulangan Bersarang I (For)
Selasa, 03 Mei 2011
0
komentar
Masukkan N : 4
7 8 9 10
4 5 6
2 3
1
Jadi N adalah jumlah baris dan setiap baris berisi angka dengan cacah sesuai dengan barisnya. Jadi misal baris 2 (dari bawah) berisi 2 angka yaitu angak 2 dan 3.
Cukup menarik, jadi ini adalah contoh dari for bersarang, yaitu for didalam for (intinya gitu, hehe). ok saya akan mencoba membuat programnya, untuk dasar pascal, mungkin lain waktu saya posting atau kamu bisa gugling, banyak kok.
uses crt;
var i,j,n,max:integer;
begin
clrscr;
write('Masukkan Nilai N : ');
readln(n);
for i:=1 to n do
max:=max+i;
for i:=n downto 1 do
begin
for j:=i-1 downto 0 do
write(max-j,' ');
writeln;
max:=max-i;
end;
readln;
end.
Hasil runningnya adalah :
TERIMA KASIH ATAS KUNJUNGAN SAUDARA
Judul: Perulangan Bersarang I (For)
Ditulis oleh Edi Prakoso
Rating Blog 5 dari 5
Semoga artikel ini bermanfaat bagi saudara. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke https://prakosodotnet.blogspot.com/2011/05/perulangan-bersarang-i-for.html. Terima kasih sudah singgah membaca artikel ini.Ditulis oleh Edi Prakoso
Rating Blog 5 dari 5
Categories:
Pascal
0 komentar:
Posting Komentar