Hàng thứ n được xác định từ hàng n-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ứ nhất và thứ 2 của hàng 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à k của hàng thứ n-1.
Thuật toán:
Bước 1: Khởi tạo một mảng một chiều n phần tử có giá trị 0.
Bước 2: Khởi tạo giá trị cho hàng thứ nhất M[1,1] = 1.
Bước 3: - Đối với hàng thứ i tính giá trị phần tử từ phần tử thứ i + 1 xuống phần tử thứ 2:
M[j]:=M[j] + M[j-1]
- In ra hàng thứ i.
Chương trình:
Program Tam_giac_Pascal_mot_chieu;
Var n,i,j: integer;
 M: array[1..10] of integer;
Begin
 Write('Nhap n: '); Readln(n);
 For i:= 1 to n do M[i]:=0;
 M[1]:=1;
 For i:=1 to n do
 Begin
 For j:=i+ 1 downto 2 do M[j]:=M[j]+M[j-1];
 For j:=1 to i+ 1 do Write(M[j]:3);
 Writeln;
 End;
 Readln
End.

kha đần độn chúc bn hc tốt # team FA

program tam_giac_pascal;
uses crt;
var A:array[0..100,0..100] of integer;
    n,i,j:byte;
begin
        clrscr;
        write('Nhap bac n: ');   readln(n);
        fillchar(A,sizeof(A),0);   {tất cả phần tử mảng A thành 0)
        A[1,1]:=1;   {Phần tử đầu là 1}
        for i:=2 to n do   {Chạy từ 2 đến n}
                for j:=1 to i do   {Chạy từ 1 đến i}
                        A[i,j]:=A[i-1,j]+A[i-1,j-1];   {Phần tử tại vị trí đó bằng tổng của trên nó với góc bên trái}

        {in kết quả}
        for i:=1 to n do
                begin
                        for j:=1 to i do write(A[i,j]:5);
                        writeln;
                end;
        readln;
end.