- Back to Home »
- Segitiga Pascal
Posted by : Admin
Senin, 14 Januari 2013
Begin
var
Num : array [0..99] int;
i,j,k,n : int;
Int iLevel
Print ('Masukkan Level');
Accept iLevel
for (i=0; i<=iLevel; i++)
{
for
(k=0; k<=((2*nilai)-(2*i)); k++){
print(" ");
{
for (j=0; j<=i; j++){
if (j==0||i==j){
n=1;
}
else{
n=n*(i+1-j)/j;
}
print("%5i", n);
print("\n");
}
End