cho đoạn chương trình sau a:=1; while a<10 do write ( a); a:=a+1;
Hãy cho biết kết quả của a bằng bao nhiêu?
A. In ra từ 1 đến 9
B. In ra từ 1 đến 10
C. lặp vô hạn
D. In ra 10
Đáp án của bạn:
ABCDCâu 02:
Câu lệnh nào sau đây viết đúng
A. While a<b do a=a+1;
B. White a<b do a:=a+1;
C. While a< b do a:=a+1;
D. while a< b do ; a:=a+1
Đáp án của bạn:
ABCDCâu 03:
kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;
Với a= 1; b=4 thì “ kq “ bằng bao nhiêu?
A. 8
B. 2
C. 6
D. 4
Đáp án của bạn:
ABCDCâu 04:
Đoạn chương trình nào sau không bị lỗi
A. For i:=1 to n do x:=x+1
B. For i=1 to n do x:=x+1;
C. For i:=1 to n do x=x+1;
D. For i:=1 to n do x:=x+1;
Đáp án của bạn:
ABCDCâu 05:
với a:=5; b:=6 ; ta có while b> a do b:=b+1;
A. lặp vô hạn
B. 1000
C. 1000000
D. 7
Đáp án của bạn:
ABCDCâu 06:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+i;
A. 15
B. 5
C. 0
D. 20
Đáp án của bạn:
ABCDCâu 07:
Cú pháp câu lệnh lặp biết trước
A. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do;
B. For < biến đếm> = < giá trị đầu> to < giá trị cuối> do
C. For < biến đếm> ; = < giá trị đầu> to < giá trị cuối> do
D. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do
Đáp án của bạn:
ABCDCâu 08:
với d:=0; while
d<n do begin d:=d+1; if d mod 10=0 then n:=n+3; end; wrtite(n); Với n=10 thì cho kết quả cuối cùng của n là bao nhiêu?
A. 11
B. 12
C. 10
D. 13
Đáp án của bạn:
ABCDCâu 09:
Cho đoạn chương trình a:=3; b:=2; while b< a do b:=b+1; kết quả của a,b sau khi kết thúc lặp là
A. 3,4
B. 3,3
C. 2,3
D. 3,2
Đáp án của bạn:
ABCDCâu 10:
Cú pháp câu lệnh lặp chưa biết trước
A. While < điều kiện > do
B. White < phép gán> do;
C. While < điều kiện> do ;
D. White < phép gán> do
Đáp án của bạn:
ABCDCâu 11:
Cho đoạn chương trình a=3; b:=2; while b< a do b:=a; kết quả của a,b sau khi kết thúc lặp là
A. 2,3
B. 3,4
C. 3,3
D. 3,2
Đáp án của bạn:
ABCDCâu 12:
Câu lệnh ghép là câu lệnh đặt giữa từ khóa
A. begin;… end.
B. Begin … end;
C. Begin .. end.
D. begin.. readln.
Đáp án của bạn:
ABCDCâu 13:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+1;
A. 15
B. 5
C. 20
D. 0
Đáp án của bạn:
ABCDCâu 14:
kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;
Với a= 2; b=5 thì “ kq “ bằng bao nhiêu?
A. 2
B. 4
C. 3
D. 1
Đáp án của bạn:
ABCDCâu 15:
Đoạn chương trình nào sau không bị lỗi
A. For i:=10 to 1 do x:=x+1;
B. For i:=1 to 10 do x = x+1;
C. for i:=1 to 10 do x:=x+1
D. For i:=10 to 1 do x:=x+1
Đáp án của bạn:
ABCDCâu 16:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=5 to 1 do x:=x+i;
A. 5
B. 20
C. 15
D. 0
Đáp án của bạn:
ABCDCâu 17:
for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =6 thì kết quả s là?
A. 15
B. 0
C. 21
D. 5
Đáp án của bạn:
ABCDCâu 18:
cho đoạn chương trình sau a:=1; while a<10 do begin write ( a); a:=a+1; end;
Hãy cho biết kết quả của a bằng bao nhiêu?
A. In ra từ 1 đến 10
B. In ra 10
C. In ra từ 1 đến 9
D. lặp vô hạn
Đáp án của bạn:
ABCDCâu 19:
s:= 0; for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =5 thì kết quả s là?
A. 15
B. 1
C. 5
D. 0
Đáp án của bạn:
ABCDCâu 20:
Cho đoạn chương trình a:=3; b:=2; while b< a do begin b:=a; a:=b end; kết quả của a,b sau khi kết thúc lặp là
A. 2,3
B. 3,3
C. 3,2
D. 3,4
Đáp án D
Bạn sửa lại đề chút: ketqua := 1; While ketqua<2 do writeln(ketqua);
Vì đây là vòng lặp với số lần chưa biết trước (while..do) trong câu lệnh chỉ có in ra biến ketqua mà không có lệnh nào làm thay đổi giá trị của biến ketqua, mà điều kiện ketqua<2 (luôn luôn đúng) -> vòng lặp vô hạn -> in vô hạn số 1 trên mỗi dòng (vì dùng writeln)