Câu 35: Đoạn lệnh sau đây sẽ cho kết quả là gì?
ketqua := 1; While ketqua<2 do writrln(ketqua);
A. In ra vô hạn số 1 trên một cột B. In ra các số từ 1 đến 10
C. Chương trình báo lỗi D. In ra vô hạn số 1 trên một dòng
Câu 36: Giả sử a:=2; thì sau câu lệnh For i:=1 to 3 do a:=a*a; a nhận giá trị bằng bao nhiêu?
A. 16 B. 256 C. 64 D. 128
Câu 35: Đoạn lệnh sau đây sẽ cho kết quả là gì?
ketqua := 1; While ketqua<2 do writrln(ketqua);
A. In ra vô hạn số 1 trên một cột B. In ra các số từ 1 đến 10
C. Chương trình báo lỗi D. In ra vô hạn số 1 trên một dòng
cho đoạn chương trình sau a:=1; while a<10 do write ( a); a:=a+1;
Đáp án của bạn:
ABCDCâu 02:
Câu lệnh nào sau đây viết đúngA. 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;Đáp án của bạn:
ABCDCâu 04:
Đoạn chương trình nào sau không bị lỗiA. For i:=1 to n do x:=x+1B. 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ạnB. 1000C. 1000000D. 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. 15B. 5C. 0D. 20Đáp án của bạn:
ABCDCâu 07:
Cú pháp câu lệnh lặp biết trướcA. 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> doC. For < biến đếm> ; = < giá trị đầu> to < giá trị cuối> doD. 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. 11B. 12C. 10D. 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,4B. 3,3C. 2,3D. 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ướcA. While < điều kiện > doB. 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,3B. 3,4C. 3,3D. 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óaA. 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. 15B. 5C. 20D. 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;Đáp án của bạn:
ABCDCâu 15:
Đoạn chương trình nào sau không bị lỗiA. 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+1D. 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. 5B. 20C. 15D. 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. 15B. 0C. 21D. 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;Đá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. 15B. 1C. 5D. 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,3B. 3,3C. 3,2D. 3,4Câu 36: Giả sử a:=2; thì sau câu lệnh For i:=1 to 3 do a:=a*a; a nhận giá trị bằng bao nhiêu?
A. 16 B. 256 C. 64 D. 128
C©u 2: Lệnh Clrscr dùng để làm gì? A. In thông tin ra màn hình. B. Tạm ngưng chương trình. C. Xoá màn hình kết quả. D. Khai báo thư viện. Câu 3: Trong Pascal khai báo hằng bằng từ khóa: A. Const B. Var C. Type D. Uses Câu 4: Câu lệnh nào sau đây dùng để nhập một số từ bàn phím vào biến x? A. Writeln(‘Nhap x = ’); B. Write(x); C. Writeln(x); D. Readln(x); C©u 5: Trong Pascal, khai b¸o nµo sau ®©y lµ ®óng cho khai b¸o biÕn? A. Var tb: real B. Var R = 30; C. Const x: real; D. Var y: integer; Câu 6: Biểu thức toán học (a+1)2 – được viết dưới dạng biểu thức trong Pascal là: A. (a+1)*a+1 – 7*a/2 B. (a+1)*(a+1) – 7*a/2 C. a+1 * a+1 – 7*a/2 D. (a+1)(a+1) – 7a/2 Câu 7: Cách gán giá trị a + b vào biến Tong là: A. Tong:a+b; B. Tong(a+b); C. Tong=a+b; D. Tong:=a+b; Câu 8: Kết quả của phép chia, phép chia lấy phần nguyên và lấy phần dư của hai số nguyên 47 và 5 là: A. 47/5 =9; 47 div 5 = 9 ; 27 mod 5 = 2 B. 47/5 =9; 47 div 5 = 9 ; 27 mod 5 = 9 C. 47/5 =9.4; 47 div 5 = 9 ; 27 mod 5 = 2 D. 47/5 =9.4; 47 div 5 = 2 ; 27 mod 5 = 9 Câu 9: Câu lệnh nào sau đây có kết quả là 3? A. 25 div 6 B. 25 div 7 C. 25 div 8 D. 25 div 9 Câu 10: Cú pháp của câu lệnh For…do là A. For = to do ; B. For := to do ; C. For := to do D. For := to do ; Câu 11: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu? j:=0; For i:=0 to 5 do j:=j+2; A. 20 B. 12 C. 7 D. 5 Câu 12: Câu lệnh lặp For i:=3 to 10 do Begin end; vòng lặp thực hiện bao nhiêu lần a) Không lần nào; b) 7 lần; c) 8 lần; d) 10 lần. Câu 13: Câu lệnh nào sau đây được viết đúng cú pháp? A. While <điều kiện> to ; B. While < câu lệnh > do < điều kiện >; C. While <điều kiện> to do ; D. While <điều kiện> do ; Câu 14: Xác định số lần lặp trong đoạn chương trình sau: A:=5; While A<20 do A:=A+5; A. 1 B. 4 C. 5 D. vô hạn lần Câu 15: Cho đoạn chương trình: X:=10; Repeat X:=X*2; until X>25; X có giá trị là: A. 10 B. 20 C. 26 D. 40 Câu 16: Đoạn chương trình pascal sau: x:= 3 ; While x > 10 do x:=x+3; giá trị của x là: A. 3 B. 6 C. 12 D. 13 Câu 17: Hãy cho biết kết quả của đoạn chương trình A:=10; while A>=10 do write (a); A. Trên màng hình xuất hiện 1 chữ a. C. Trên màng hình xuất hiện số 10. B. Trên màng hình xuất hiện 10 chữ a. D. Chương trình lặp vô hạn lần. Câu 18: Trong các cánh khai báo biến mảng sau đây, cách khai báo nào là hợp lệ: A. Var A: array[1,100] of integer; B. Var A: array[1..100] of integer; C. Var A: array(1..100) of integer; D. Var A: array[1,,100] of integer; Câu 19: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây sai: A. Chỉ số cuối phải nhỏ hơn hoặc bằng 100 C. Kiểu dữ liệu có thể là integer hoặc real B. Chỉ số đầu và chỉ số cuối là hai số nguyên D. Chỉ số đầu chỉ số cuối Câu 20: Xuất dữ liệu từ mảng A có 30 phần tử từ 5 đến 15 thì ta viết lệnh như sau: A. For i:=5 to 15 do Writeln(A); C. Writeln(A[5..15]); B. For i:=5 to 15 do Writeln(A[i]); D. Writeln(A[i]); Câu 21: Biểu tượng của phần mềm Anatomy: A. B. C. D. Câu 22: Trong phần mềm Anatomy, đâu là biểu tượng của hệ thần kinh A. B. C. D. Câu 23: Hệ cơ có chức năng là: A. Giúp lưu thông máu đi khắp cơ thể để nuôi từng tế bào. B. Co, dãn để làm cho xương chuyển động C. Thải các chất độc ra bên ngoài cơ thể. D. Tiếp quản thức ăn từ miệng và tiêu hoá, hấp thụ, biến thức ăn thành năng lượng nuôi cơ thể Câu 24: Trong phần mềm Anatomy, đâu là biểu tượng của hệ tuần hoàn A. B. C. D. Câu 25: Hệ tiêu hóa có chức năng là: A. Giúp lưu thông máu đi khắp cơ thể để nuôi từng tế bào. B. Co, dãn để làm cho xương chuyển động C. Thải các chất độc ra bên ngoài cơ thể. D. Tiếp quản thức ăn từ miệng và tiêu hoá, hấp thụ, biến thức ăn thành năng lượng nuôi cơ thể
Bài 6: Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện và câu lệnh lặp for to do để tính tổng các giá trị chia hết cho 2 và chia hết cho 3 trong phạm vi từ 1 dến N, sau đó in kết quả ra màn hình.
Câu lệnh trong pascal: S:=1; While S< 10 do s:=s*2; Sau khi thực hiện đoạn chương trình trên, giá trị của biến S bằng bao nhiêu? A. 10 B. 12 C. 14 D. 16
Để in ra màn hình giá trị từ một đến 10 của biến điểm y, ta sử dụng câu lệnh: a for I :=1 to 10 writeln (‘I’) b for I:= 1 to 10 do writeln (I ); c for I: = 1 to n do writeln ( I ) ; d for I: = 10 downto 1 do write (I);
For i:=1 to 6 do write(i:3);
a) Số vòng lặp trong câu lệnh trên là bao nhiêu?
b) Kết thúc vòng lặp giá trị của i là bao nhiêu?
c) Cho biết kết quả của câu lệnh trên?
Câu 14 (2,0 điểm): Trong các câu lệnh lặp trong Pascal sau đây đúng hay sai. Vì
sao?
a. While i<5 do i=i+1;
b. While 3=3 do i:=i+1;
c. While x<3 do x:=x+1;
d. For i:=2.5 to 10 do x:=x+1;
Cho biết giá trị của biến S và n sau khi thực hiện đoạn chương trình trên
