Mã: Chọn tất cả
1 1
1 2 1
1 3 3 1
1 4 6 4 1
- Phần tử đầu tiên và phần tử cuối cùng đều bằng 1
- Phần tử thứ 2 là tổng của phần tử thứ 1 và thứ 2 của hàng thứ N-1
- Phần tử thứ k của hàng thứ N là tổng của phần tử thứ k-1 và thứ k của hàng thứ N-1
Ví dụ:
Mã: Chọn tất cả
Moi ban nhap kich thuoc N: 4
Tam giac Pascal voi N = 4 la:
1 1
1 2 1
1 3 3 1
1 4 6 4 1
Mã: Chọn tất cả
Uses Crt;
Var A : Array[1..1000] Of Integer;
N, i, j : Integer;
Begin
ClrScr;
Repeat
Write('Moi ban nhap kich thuoc N: ');
ReadLn(N);
Until (1 <= N) And (N <= 50);
WriteLn('Tam giac Pascal voi N = ', N, ' la: ');
FillByte(A, SizeOf(A), 0);
A[1] := 1;
For i := 1 To N Do
Begin
For j := i + 1 DownTo 2 Do A[j] := A[j-1] + A[j];
For j := 1 To i + 1 Do Write(A[j] : 5);
WriteLn;
End;
ReadLn;
End.