Hay tema teman. . . . .
di pagi yg cerah ini....... saya akan memberi code code TPW/(Turbo Pascal) tentang pemograman segitiga pascal. . .
di sini kita hanya mempelajari code code nya saja...
tapi barangkali ada yang punya aplikasi nya, kita langsung praktekkan bersama sama. . .
langsung saja kita perhatikan dan pahami code code nya. . .
Program Segitiga_Pascal;
Uses Wincrt;
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.
gmn teman,lumayan gampang kan. . . hehehehehe
kalau kita mau berusaha pasti bisa kok. . .
oky... semoga bermafa'an teman. . . .
ammmiiiiiiiiiiiiiiinnnnnnnnnnnnnnnnnn............
