Program bentuk & angka

Program ini sebenarnya bukan program bentuk dan angka, melainkan sebuah program yang meng-outputkan sebuah bentuk dan setiap komponennya merupakan sebuah nilai yang terurut. Duh, pokonya susah ngejelasinnya lah. jadi, soalnya seperti ini:
jika user meng-input angka 2, maka outputnya:
1
2 3
jika user menginput angka 5, maka outputnya:
1
2 6
3 7 10
4 8 11 13
5 9 12 14 15
nah, gitu programnya .
atau, gini deh bentuk pascalnya ,





hmmm.. lumayan agak sedikit menguras otak tuh, itu soal yang bikin saya gagal seleksi ProClub di IT Telkom .. hufh, akhirnya saya coba mengerjakan lagi dirumah, dan ternyata saya menemukan formulanya, dan itu ternyata cukup mudah. klo aja pas seleksi saya bisa, pasti saya lolos. hiks hiks..
eh, udah ah, ko malahan jadi curhat gini. haha. langsung aja ya .
ini source codenya (silakan di lihat dan dipahami):
program bentukangka;
uses wincrt;
function hitung(n,x:integer):integer;
var
i,z:integer;
begin
z:=0;
for i:=1 to x-1 do
begin
z:=z+n;
n:=n-1;
end;
hitung:=z;
end;
var
n,x,y:integer;
begin
write('Masukkan bilangan : ');readln(n);
for y:=1 to n do
begin
for x:=1 to y do
if x=1 then
write(y,' ')
else
write((y-(x-1))+hitung(n,x),' ');
writeln;
end;
readln;
end.
Nah setelah dipahami, coba deh buka turbo pascalnya . lalu dijalankan programnya.
pertama-tama yang harus kita lakukan apabila melihat soal seperti itu ialah :
1. istighfar (bcanda. hehe)
melihat bentuk tampilannya, bentuk di atas merupakan bentuk segitiga (klo mau tau tentang cara bikin bentuk download tutorial aneka bentuk dan gambar sederhana pada pascal disini)
2. coba buat aneka output untuk setiap inputan, lalu bandingkan apa persamaan dari semuanya. setelah itu ciptakan sebuah rumus.
3. bentuk algoritmanya .
*) kalo mau lebih jelas, silakan hubungi saya. ato ada yang mau bikin tim untuk kompetisi juga saya siap berpartisipasi.
Perluas persahabatan !! smangat !!