Đang tải... (xem toàn văn)
Số vòng lặp không biết trước.. Số lần lặp biết trước.[r]
(1)19 – 2020)
I/ oan tròn ữ đứng trướ p ương án e o đúng: Câu 1: Cú pháp khai báo biến ảng Pascal là:
A.var <Tên mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; B. var <Tên mảng> : aray [<chỉ số đầu>…<chỉ số cuối>] of <kiểu liệu >; C. var <Tên mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; D.var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu liệu >; Câu 2: Chọn khai báo hợp lệ:
A Var a,b: array[1 n] of real; C Var a,b: array[1 : n] of Integer; B Var a,b: array[1 100] of real; D Var a,b: array[1 … 100] of real; Câu 3: Trong lệnh lặp for…do Pascal, vòng lặp, biến đếm thay đổi nào?
A +1 B +1 -1 C Một giá trị D Một giá trị khác Câu 4: Đâu công việc phải thực nhiều lần với số lần biết trước?
A. Hàng ngày em học B. Em bị ốm vào dịp có dịch cúm
C. Đến nhà bà ngoại chơi vào hôm bố mẹ vắng D. Ngày đánh ba lần
Câu 5: o S i biến nguyên i ạy đoạn ương trìn : s:=1;
for i:=1 to s := s *i; writeln(s);
Kết in lên hình :
a s = 72 b s = 101 c s = 55 d s = 120 Câu 6: Một số kiểu liệu passcal:
A Integer, real, byte, char… B Writeln, readln, integer
C For, while, array… D While, do, real…
Câu 7: Câu lệnh phù hợp?
A while (x mod 3=0) s:=s+1; B While (x mod 3) s:= s+1; C While (x mod 3=0) ;do s:= s+1; D While (x:=x mod 3) s:= s+1; Câu 8: Cho đoạn chương trình sau:
S:=20; n:=0; While S>=10 Begin
n:=n+3; S:=S-n; End;
Hãy cho biết giá trị S sau đoạn chương trình trên?
A B C D
Câu 9: Cách khai báo biến đúng? A Var <Kiểu liệu>: <tên biến>; B Var <tên biến>: <kiểu liệu>;
C Var <tên bến>,<kiểu liệu>: <Kiểu liệu>; D Var <Tên bến>,<Kiểu liệu>: <Tên biến>; Câu 10: Cho đoạn chương trình sau:
S:=1; n:=0; While S<=5 Begin
n:=n+1; S:=S+n; End;
(2)A B C D Câu 11: lệnh lặp For to do có:
A Số lần lặp vô hạn B Số vòng lặp phải nhỏ 100 C Số vịng lặp khơng biết trước D Số lần lặp biết trước
Câu 12: Đoạn chương trình sai
A Var x,y: real; begin While (x= 3.5) y:= y+1; end B Var x,y: real; begin While (x< 3.5) y:= y+1; end C Var x,y: real; begin While (x:= 3.5) y:= y+1; end D Var x,y: real; begin While (x> 3.5) y:= y+1; end
Câu 13: Giả sử có dịng lệnh: for i:=0 to 10 S:= 1+i; số lần lặp lệnh S:= 1+i là:
A B C 10 D 11
Câu 14: Sau thực đoạn chương trình sau : j:=1;
for i:=1 to j:=j+2;
Giá trị biến j bao nhiêu:
A B C D 10
Câu 15: Câu lệnh lặp với số lần chưa biết trước có dạng:
A While (biến đếm) (câu lênh); B While (điều kiện) (câu lênh); C While (điều kiện); (câu lênh); D While (câu lệnh1) (câu lênh); Câu 16: Tìm giá trị S đoạn chương trình đây:
S := 0;
For i := to S := S + 1;
A S = 15 B S = 10 C S = D S =
Câu 17: Dòng lệnh for i:=1 to writeln('bbb') đưa hình hàng chứa kí tự bbb?
A B C D
Câu 18:Biến đế vòng lặp For… do có kiểu liệu nào?
A Boolean B Real C Char D Integer
Câu 19: Sau thực đoạn chương trình sau: j:=0; s:=1;
for i:=1 to j:=j+1;
s:=j+1;
Giá trị biến j, biến s bằng?
A j=4;s=3 B j=3;s=4 C j=1;s=2 D j=2;s=3
Câu 20: Giả sử có dịng lệnh: for i:=0 to
a:=1+i;
Số lần lặp lệnh gán a:= 1+i là:
A 11 B C 10 D
Câu 21: Số lần lặp vòng lặp For
A Giá trị cuối – giá trị đầu + B Giá trị đầu – giá trị cuối + C Giá trị cuối + giá trị đầu - D Giá trị cuối – giá trị đầu
Câu 22: Khai báo biến mảng: A : array[1 7] of real; Sử dụng câu lệnh For i:= to readln(A[i]); để gán giá trị cho phần tử biến A từ bàn phím, ta nhập giá trị
(3)II/ B LU :
Câu 1: iền X vào ô o p ù ợp giải t í sao?
Câu 2: a) Sau thực đoạn chương trình sau, giá trị biến j bao nhiêu? j:= 0;
For i:= to j:= j + 2; b) Cho đoạn chương trình sau:
S:=1; n:=0; While S<=5 Begin
n:=n+1; S:=S+n; End;
Hãy cho biết giá trị S bao nhiêu?
Câu : Viết chương trình tính n! (while do)
Câu 4: Viết chương trình (while do)
Q = 1_+ 1/24 + 1/ 34 _+ + 1/n4
Câu 5: Tổng số nguyên dương chia hết cho mảng gồm n phần tử Câu 6: Tổng bình phương số âm mảng gồm n phần tử
Câu 7: Tổng bình phương số lẻ mảng gồm n phần tử
- ÔN T Ố VÀ LÀM BÀI TỐ - 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) if x>5 then a:=b; else m := n; e) for i:=100 to do writeln('A'); f) for i:=1.5 to 10.5 do writeln('A'); g) var B:Array[2,20] of real;
h) var x: real; beginfor x:=4 to 15 do writeln('A'); end i) i:=1; S:=0; While i<=10 S:=S+i ; i:=i+1;