• Khung trình chiếu

Bài tập: In ra Tam giác Pascal

Các mã nguồn được viết bằng ngôn ngữ Pascal
Gửi hồi đáp
Ảnh đại diện người dùng
huynhbuutam
Nhà sáng lập
Nhà sáng lập
Các bài viết: 112
Đã gia nhập lúc: T3 31 Th8, 2021 22:04
Địa điểm: Trường THCS Châu Lăng
Tên thật: Huỳnh Bửu Tâm

Bài tập: In ra Tam giác Pascal

Bài viết bởi huynhbuutam »

Bài tập: Viết chương trình in ra màn hình Tam giác Pascal. Ví dụ, với N = 4 sẽ in ra hình sau:

Mã: Chọn tất cả

1    1
1    2    1
1    3    3    1
1    4    6    4    1
- Hàng thứ N được xác định từ hàng thứ 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ứ 1 và thứ 2 của hàng thứ 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à thứ k của hàng thứ N-1

Ví dụ:

Mã: Chọn tất cả

Moi ban nhap kich thuoc N: 4
Tam giac Pascal voi N = 4 la:
    1    1
    1    2    1
    1    3    3    1
    1    4    6    4    1
Mã nguồn:

Mã: Chọn tất cả

Uses Crt;
Var A : Array[1..1000] Of Integer;
	N, i, j : Integer;
Begin
	ClrScr;
	Repeat
		Write('Moi ban nhap kich thuoc N: ');
		ReadLn(N);
	Until (1 <= N) And (N <= 50);
	WriteLn('Tam giac Pascal voi N = ', N, ' la: ');
	FillByte(A, SizeOf(A), 0);
	A[1] := 1;
	For i := 1 To N Do
		Begin
			For j := i + 1 DownTo 2 Do A[j] := A[j-1] + A[j];
			For j := 1 To i + 1 Do Write(A[j] : 5);
			WriteLn;
		End;
	ReadLn;
End.
Gửi hồi đáp
  • Similar Topics
    Các hồi đáp
    Lượt xem
    Bài viết cuối