Membuat Segitiga Pascal

Written By Abdul Wakhid on 1 Desember 2009 | 18.40.00

abdulmail - ni ada source code pascal lagi untuk membuat segitiga pascal.

Program Segitiga_Pascal;
Uses crt;
Var
i,j,n:integer;
x: array[1..100, 1..100] of integer;
Begin
Write('Masukkan Jumlah Baris: ');Readln(n);
For i:= 1 to n do
For j:= 1 to i do
Begin
if j=1 then x[i,j]:=1
else if j=i then x[i,j]:=1
else x[i,j]:=x[i-1,j-1]+x[i-1,j];
End;
For i:= 1 to n do
Begin
Gotoxy(40-3*i,2+i);
For j:= 1 to i do
write(x[i,j]:6);
End;
End.

Seberti biasa., mohon koreksi & feedback kalau da yg salah.
Makasih

6 komentar:

Anonim mengatakan...

Ich entschuldige mich, aber meiner Meinung nach lassen Sie den Fehler zu. Ich kann die Position verteidigen. Schreiben Sie mir in PM, wir werden besprechen. cialis bestellen online levitra bestellen [url=http//t7-isis.org]cialis generika[/url]

Muh Abdul Wakhid mengatakan...

no spam please !

Silvia Nurlutfiyani mengatakan...

usesnya pake uses wincrt;

Muh Abdul Wakhid mengatakan...

uses wincrt; <-- pascal windows

My Lesson mengatakan...

yang prosedure gotoxy dan write di delphi itu apa ya??

Febri Febri mengatakan...

itu gak ada cara lain lagi harus pake Array doank?
ato bisa pake while do?

Posting Komentar

Don't Spam Please !