Tam giac pascal

Chia sẻ bởi Phan Lâm | Ngày 26/04/2019 | 44

Chia sẻ tài liệu: tam giac pascal 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;
for j:= 2 to n do A[1,j] := 0;
for i:=2 to n do
for j:=2 to n do A[I,J]:=A[i-1,j-1] + A[I-1,J];
{xuat mang}
writeln(`Tam giac Pascal 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)