Original Posted By chipp_zanuff►gw cb:

Code:

for i <-- 100 {

\tif i mod 2 = 0 then

\t\tcetak i

\telse

\t\tlanjut

}

skrg, buatlah deret baris berikut:

1 10 11 20 21
2 9 12 19 22
3 8 13 18 23
4 7 14 17 24
5 6 15 16 25

itu klo yg hendak dibuat adalah 5 x 5, klo 3 x 3:

1 6 7
2 5 8
3 4 9

silahkan...

btw, ini gw dapat dari forum tetangga

Jml <-- n*n

if jml < 10 then panjang <-- 2

if jml >= 10 then panjang <-- 3

if jml >= 100 then panjang <-- 4

if jml >= 1000 then panjang <-- 5

if jml >= 10000 then panjang <-- 6



x <-- 1

y <-- 1

arah <-- T

For a <-- 1 to (n*n)

{

 goto[x, y]

 cetak a



 if (a mod n) = 0 then

 {

 arah <-- not arah

 x <- x + panjang

 }

 else

 {

 if arah = T then y++ else y--

 }

}