Lập trình đơn giản
Các câu hỏi tương tự
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Cho đoạn chương trình sau: s := 0; i := 1 while s <= 10 do begin i := i + 1; s := s + i; end; Cho biết câu lệnh while dừng khi s bằng bao nhiêu?
1) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?
S:0; i:0;
While S20 do
Begin
S:S+i; i:i+1;
end;
a) 2 b) 4 c) 8 d) vô hạn
2) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?
x:0;
For i:1 to 5 do x:x+3;
a) 1 b) 3 c) 5 d) 15
3) Sau khi thực hiện đoạn chương trình sau, giá trị của biến x bằng bao nhiêu?
x:0;
For i:1 to 5 do x:x+3;
a) 1 b) 3 c) 5 d) 15
4) Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu?
S:0; i:...
Đọc tiếp
1) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?
S:=0; i:=0;
While S<=20 do
Begin
S:=S+i; i:=i+1;
end;
a) 2 b) 4 c) 8 d) vô hạn
2) Trong đoạn lệnh sau đây, chương trình đã thực hiện bao nhiêu vòng lặp?
x:=0;
For i:=1 to 5 do x:=x+3;
a) 1 b) 3 c) 5 d) 15
3) Sau khi thực hiện đoạn chương trình sau, giá trị của biến x bằng bao nhiêu?
x:=0;
For i:=1 to 5 do x:=x+3;
a) 1 b) 3 c) 5 d) 15
4) Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu?
S:=0; i:=0;
While S<=20 do
Begin S:=S+i; i:=i+1; end;
a) 18 b) 21 c) 25 d) 52
5) Đoạn chương trình sau đây đã mắc phải lỗi gì?
a:=5;
While a<=6 do Writeln(‘A’);
a) Sử dụng sai cú pháp lệnh While ... do
b) Cho biết trước số lần lặp
c) Không cho biết trước số lần lặp
d) Lặp vô hạn
6) Trong ngôn ngữ lập trình Pascal, câu lệnh For ... do là lệnh:
a) Không cho biết trước số lần lặp
b) Cho biết trước số lần lặp
c) Biết trước hay không biết trước số lần lặp đều sử dụng được
d) Cả a, b, c đều sai
7) Trong ngôn ngữ lập trình Pascal, câu lệnh lặp được dùng để thể hiện:
a) Cấu trúc lặp c) Cấu trúc điều kiện
b) Cấu trúc rẽ nhánh d) Cấu trúc mảng
8) Trong ngôn ngữ lập trình Pascal, lệnh lặp với số lần chưa biết trước là câu lệnh:
a) For ... do c) If ... then ...
b) While ... do d) If ... then ... else...
9) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây hợp lệ?
a) For i:=10 to 1 do Writeln(‘A’);
b) For i:=10.5 to 1.5 do Writeln(‘A’);
c) For i=1 to 10 do Writeln(‘A’);
d) For i:=1 to 10 do Writeln(‘A’);
10) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây hợp lệ?
a) x:=10; While x:=10 do x:=x+5;
b) x=10; While x=10 do x=x+5;
c) x:=10; While x=10 do x:=x+5;
d) x=10; While x:=10 do x=x+5;
cho đoạn chương trình sau; sau kết thúc thuật toán giá trị mới của x,y,z là?
x:=1;
y:=2;
z:=3;
for i:=1 to 10 do begin
x:=x*1
y:=x+y*1;
z:=x+y
end;
trong ngôn ngữ Pascal,đoạn chương trình sau đưa ra mà hình kết quả gì ?
For i:=1 to 5 do write(i:3);
Cho đoạn chương trình sau x 0 y 1 z 2 for i : 1 to 10 do x :x + 1 ;y: y + x,z ; Hãy cho biết có bao nhiêu vòng lặp và giá trị của x y z bằng bao nhiêu
Viết chương trình Pascal các phần tử của một dãy số độ dài của dãy cũng được phân tử bàn phím cho đoạn sau n:3 ; k:3 for i : 1 to 5 do m:m+1 k:k+m ; lập bảng chạy cho đoạn phương trình trên Sau khi thực hiện chương trình trên máy tính sẽ thực hiện bao nhiêu vòng lặp
Đọc tiếp
Cho đoạn chương trình sau x = 0 y = 1 z = 2 for i : = 1 to 10 do x :=x + 1 ;y: = y + x,z ; Hãy cho biết có bao nhiêu vòng lặp và giá trị của x y z bằng bao nhiêu
Viết chương trình Pascal các phần tử của một dãy số độ dài của dãy cũng được phân tử bàn phím cho đoạn sau n:=3 ; k:=3 for i := 1 to 5 do m:=m+1 k:=k+m ; lập bảng chạy cho đoạn phương trình trên Sau khi thực hiện chương trình trên máy tính sẽ thực hiện bao nhiêu vòng lặp
1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:0;for i:1 to 3 do s : s+3*i; s:s+5;writeln(s); Kết quả in lên màn hình là? *
A.12
B. 10
C.23
D. 26
2, Kêt quả của câu lệnh For i:1 to 20 do if i mod 32 then write(i:3); *
A.In ra các số lẻ từ 1 đến 20;
B. In ra các số chẵn từ 1 đến 20;
C. In ra các số chia hết cho 3 từ 1 đến 20;
D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;
3, Trong câu lệnh lặp For i:3 to 15 do s:s+i; Có bao nhiêu vòn...
Đọc tiếp
1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? *
A.12
B. 10
C.23
D. 26
2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); *
A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;
3, Trong câu lệnh lặp For i:=3 to 15 do s:=s+i; Có bao nhiêu vòng lặp? *
A. 15; B. 12; C. 13 D. 3;
4, Cho k,m,n nhận giá trị tương ứng 4,5,6; kết thúc câu lệnh sau:X:=n; If ((x mod 2=0)) or (x<=5) then x:=m*k else x:=m div k; thì x có giá trị là ? *
A. 1 B. 0 C. 5. D. 20 5, Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?s:=0; n:=0; while s<=5 do n:= n+1;s:= s+n; * A. 3 B. 6 C. 10 D. kết quả khác 6, Cho a,b,c lần lượt nhận giá trị 10,30,20 . Hỏi sau đoạn chương trình Begin X:=a; If x>a then x:=a; if x>b then x:=b;if x>c then x:=c;end; x có giá trị là? * A. 20 B. 10 C. 30 D. Cả ba đáp án đều sai. 7, Cho x:=7; kết thúc câu lệnh If ((x mod 3=0)) and (x<=8) then x:=x+10; thì x có giá trị là ? * A. 8 B. 10 C. 17 D. 7 8, Cho s và i là biến nguyên. Khi chạy đoạn chương trình s := 1; for i:=1 to 5 do s := s+i; Kết quả in lên màn hình là của s là ? * A. 15 B. 16 C. 11 D. 22 9, Cho biết đoạn chương trình Pascal sau đây, khi kết thúc giá trị của S bằng bao nhiêu? S:=0; n:=0;while S<=3 do begin n:= n+1;S:= s+n; end; * A. 15 B. 10 C. 6 D. 3
Câu 1: Sau khi thực hiện chưng trình pascal sau đây, biến S có giá trị là bao nhiêu ? Var x : integer;
Begin
S:=0
For i:=1 to 10 do
If ( i mod 2) = 0 then S:=S+i;
Readln;
End
A.10 B. 20 C. 30 D. 40
Câu 2: Khi thực hiện đoạn chương trình sau, kết quả trên màn hình là:
So:=1;
While so<10 do Begin
Write (so : %);
So:= So +2;
End.
Câu 15. Trong câu lệnh lặp for i:2 to 100 do begin end; câu lệnh ghép được thực hiện bao nhiêu lần (hay bao nhiêu vòng lặp được thực hiện)?A. 102 B. 101 C. 100 D. 99Câu 16. Xem ví dụ sau trong pascal:Uses crt; Var i:integer; Begin Clrscr; I:1; while i 14 do begin Writeln(‘0’); i : i+1; End; Readln; End.Ví dụ trên ghi ra màn hình bao nhiêu chữ số 0?A. 14; B. 13; C. 15; D. 16;Câu 1...
Đọc tiếp
Câu 15. Trong câu lệnh lặp for i:=2 to 100 do begin end; câu lệnh ghép được thực hiện bao nhiêu lần (hay bao nhiêu vòng lặp được thực hiện)?
A. 102 B. 101 C. 100 D. 99
Câu 16. Xem ví dụ sau trong pascal:
Uses crt; Var i:integer;
Begin
Clrscr; I:=1; while i < 14 do begin Writeln(‘0’); i := i+1; End; Readln; End.
Ví dụ trên ghi ra màn hình bao nhiêu chữ số 0?
A. 14; B. 13; C. 15; D. 16;
Câu 17. điều kiện trong câu lệnh lặp với số lần chưa biết trước thường là :
A. Phép gán B. Câu lệnh đơn C. Câu lệnh ghép D. Phép so sánh
Câu 18. câu lệnh lặp For i:=1 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình 5 dòng chữ trong đó dòng thứ 3 có nội dung là:
A. Day la lan lap thu i B. Day la lan lap thu, i
C. Day la lan lap thu 3 D. Day la lan lap thu , 3