Viết chương trình in ra màn hình tam giác Pascal. bài hơi khó nghe các bn giúp mik nha !

0 bình luận về “Viết chương trình in ra màn hình tam giác Pascal. bài hơi khó nghe các bn giúp mik nha !”

1. 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

   Bình luận

2. 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.

   Bình luận