Rumah Info | Rumah Semua Informasi

Misal diinputkan 5
maka akan keluar sebagai berikut
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
maka, kodenya adalah................. Jika ada yang ingin bertanya, silahkan berkomentar
var
pascal1,pascal2 : array[1..100] of integer;
i,j,n : integer;
begin
write('masukkan baris maksimum segitiga pascal : '); readln(n);
pascal1[1] := 1;
pascal1[2] := 1;
writeln(pascal1[1],' ',pascal1[2]);
for i := 2 to n do
begin
pascal2[1] := 1;
write(pascal2[1],' ');
for j := 2 to i do
begin
pascal2[j] := pascal1[j] + pascal1[j-1];
write(pascal2[j],' ');
end;

pascal2[i + 1] := 1;
write(pascal2[i + 1],' ');
move(pascal2,pascal1,sizeof(pascal1));
writeln;
end;
readln;
end.