program bt;
uses crt;
var n,i,j:word;
a:array[1..100] of longint;
begin
clrscr;
write['nhap so n:'];readln[n];
for i:=1 to n+1 do a[i]:=0;
a[1]:=1;
for i:=0 to n do
begin
for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];
for j:=1 to i+1 do write[a[j]:3];
writeln;
end;
readln;
end.
- Selfomy Hỏi Đáp
- Học tập
- Tin học
- Tin học lớp 11
- Viết chương trình in ra màn hình tam giác...
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:
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 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.
1 Câu trả lời
được bầu chọn là câu hỏi hay nhất 15 tháng 10, 2019 bởi
manh7a1 ● Ban Quản Trị
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.
Các câu hỏi liên quan
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: 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1
đã hỏi 7 tháng 10, 2019 trong Tin học lớp 11 bởi manh7a1 ● Ban Quản Trị Tiến sĩ [12.1k điểm]
Viết chương trình cho phép nhập n số và in ra theo thứ tự ngược lại. Ví dụ nhập 3, 5, 7 thì in ra 7, 5, 3. a.Hướng dẫn: Dùng biến ... ;c số vừa nhập. Cho i chạy từ n về 1 để in các số vừa nhập.
đã hỏi 15 tháng 10, 2019 trong Tin học lớp 11 bởi manh7a1 ● Ban Quản Trị Tiến sĩ [12.1k điểm]
Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n [ Với n được nhập]. Yêu cầu nhập lại nếu n