Câu hỏi của Nguyễn Thị Song Nhân

Question

Viết chương trình in ra màn hình tam giác Pascal.
Vd: n=4 sẽ in ra màn hình như sau:
* Giúp mình với mấy bạn ơi!*

Giao Huỳnh · Accepted Answer

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.

Câu trả lời:

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.

Tú Nguyễn · Answer

chuẩn men

Câu trả lời:

chuẩn men

dữ liệu vào	dữ liệu ra	giải thích
n=1	s=4	s=1+3=4
n=2	s=9	s=1+3+5=9

Câu	Đúng	Sai	Sửa lại
a) for i=1 to 10 do writeln('A');
b) var X: Array[5...10] Of Char;
c) X:=10; while X=10 do X:=X+5;
d) s:=0; for i:=1.5 to 10.5 do s:=s+i;
e)var A:= array [1..50] of integer;

Câu lệnh	Đúng	Sai	Sửa lại
Program Chuong trinh
Var i,s : real;
Const n:=10;
Begin
While i <=n do;
Begin
S:=s+i
i=i+1
End.
Writeln(s)
Readln
End;

Câu lệnh	Đúng	Sai	Sửa lại
Program Chuong trinh
Var i,s :real;
Const n:=10;
Begin
S:= s+1
i=i+1
End.
Writeln(s)
Readln
End;

Câu lệnh	Đúng	Sai	Sửa lại
Program Chuong trinh		x	program chuongtrinh;
var i,s : real;	x
const n:=10;	x
begin	x
s:=s+1		x	s:=s+1;
i:=i+1		x	i:=i+1;
end;		x	end;
writeln(s)		x	writeln(s);
readln	x
end;		x	end.

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Lần lặp thứ	Giá trị của biến i	Giá trị của biến J
1	1	J= 0+3 = 3
2	2	J= 3+ 3= 6
3	3	J=.....................................................................................
4	4	J=.....................................................................................
5	5	J=.....................................................................................

	\(Hằng\)	\(Biến\)	\(Từ Khóa\)	\(Tên\)
Program
Pi
Hinh_tron
Const
chu_vi
dien_tich
writeln
End

TOP	Tên	Điểm	Giải thưởng	Ghi chú
1	Lê Hoàng Thắng	14.75	NHẤT	Thẻ cào 100k + 50GP
2	bảo nam trần	14.25	NHÌ	Thẻ cào 50k + 30GP
3	Luân Đào	13.5	BA	20GP
4	Đoàn Xuân Sơn	12	BA	20GP
5	katou kid	5.75

STT	Tên	Thưởng vòng 1	Thưởng vòng 2	Tổng
1	Đoàn Xuân Sơn	+5GP	+5GP	10GP
2	Lê Hoàng Thắng	+5GP	+5GP	10GP
3	bảo nam trần	+5GP	+5GP	10GP
4	katou kid	+5GP	+5GP	10GP
5	Nguyen Hoang Quan	+5GP		5GP
6	Nguyễn Trung Hiếu	+5GP	+5GP	10GP
7	Luân Đào	+5GP	+5GP	10GP

	Từ khoá	Tên
Program
CT_Dau_tien
Uses
Begin
Crt
Writeln
End

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP