Tam giác Pascal theo tổng và tích
Chia sẻ bởi Phan Lâm |
Ngày 26/04/2019 |
52
Chia sẻ tài liệu: tam giác Pascal theo tổng và tích thuộc Tin học 11
Nội dung tài liệu:
uses crt;
var A: array [1..100,1..100] of integer; i,j,n : integer;
begin
clrscr;
writeln(`Nhap n = `); readln(n);
for i := 1 to n do A[i,1] := 1;
A[2,2]:=2;
for j:=2 to n do A[1,j]:=0;
for j:=3 to n do A[2,j]:=0;
for i := 3 to n do
for j:=2 to n do A[i,j]:= A[i-2,j-1] + A[i-1,j];
{xuat mang}
writeln(`Tam giac Pascal theo tong va tich bac `,n,` la`);
for i := 1 to n do
begin
for j:= 1 to n do if A[i,j]<> 0 then write(A[i,j]:5);
writeln;
end;
readln;
end.
var A: array [1..100,1..100] of integer; i,j,n : integer;
begin
clrscr;
writeln(`Nhap n = `); readln(n);
for i := 1 to n do A[i,1] := 1;
A[2,2]:=2;
for j:=2 to n do A[1,j]:=0;
for j:=3 to n do A[2,j]:=0;
for i := 3 to n do
for j:=2 to n do A[i,j]:= A[i-2,j-1] + A[i-1,j];
{xuat mang}
writeln(`Tam giac Pascal theo tong va tich bac `,n,` la`);
for i := 1 to n do
begin
for j:= 1 to n do if A[i,j]<> 0 then write(A[i,j]:5);
writeln;
end;
readln;
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Phan Lâm
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)