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 !
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 !
By Eden
By Eden
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 !
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.