Cả A và C đều đúng; Câu 4: Để chạy chương trình ta nhấn tổ hợp phím:A. Hoán đổi giá trị cho nhau;.[r]
Trang 1Họ, tên thí sinh: Lớp:
TRẮC NGHIỆM:
Câu 1: Cho đoạn chương trình:
S:= 0; for i:= 2 to 20 do S:= S + 20 div i;
Nếu chuyển qua vòng lặp while…do là:
S:= 0; while (i<=20) do Begin S:= S + 20 div i; i:= i+1; End;
Khi đó, i ban đầu được gán bằng:
Câu 2: x:= 12.87; writeln(x:5:1); trên màn hình sẽ là:
Câu 3: Biểu thức x2 + y2 ≤ R2 được biểu diễn trong pascal là:
A x*x + y*y <=R*R; B sqr(x) + sqr(y) <sqr(R);
C sqrt(x) + sqrt(y) <=sqrt(R); D Cả A và C đều đúng;
Câu 4: Để chạy chương trình ta nhấn tổ hợp phím:
Câu 5: Cho đoạn chương trình:
S:= 0; for i:= 3 to 6 do S:= S + 10 mod i;
Giá trị của S sau vòng lặp là:
Câu 6: Cho đoạn chương trình:
Var a,b: integer;
Begin
Writeln(‘Nhap a va b: ’); readln(a, b); a:= sqr(b); b:=sqrt(a);
Writeln(‘Gia tri moi cua a= ’,a,‘ cua b= ’,b);
Readln; End
Chạy chương trình trên giá trị của a và b sẽ:
A a = b2, b : giữ nguyên; B a : giữ nguyên, b = a2;
Câu 7: Để kiểm tra số N bắt kỳ có chia hết cho cả 4 và 6 hay không ta dùng câu lệnh:
A If( N mod 4 = 0) or (N mod 6 = 0) then… C If (N mod 12 = 0) then…
B If (N mod 4 = 0) and (N mod 6 = 0) then… D Hoặc B hoặc C.
Câu 8: Cho đoạn chương trình:
Var x,y: integer;
Begin
Writeln(‘Nhap x va y: ’); readln(x, y); x:= x+y; y:= x-y; x:= x-y;
Writeln(‘Gia tri moi cua x= ’,x,‘ cua y= ’,y);
Readln; End
Chạy chương trình trên giá trị của x và y sẽ:
Câu 9: Để tính tổng S= 1+ 4+9+16+25+36+49+64+81+100+121+144, ta có thể gán và sử dụng vòng lặp như
Câu 10: Để tính 10! ta có thể gán và sử dụng vòng lặp như thế nào?
S:=……; for i:= downto… do S:=……… ;
TỰ LUẬN:
Câu 1:Cho n >100, và 2 số 0< a < b < 10 bất kì nhập từ bàn phím, lập trình tính tổng bình phương các số mà n
chia hết cho các số trong khoảng từ a tới b
Câu 2: Viết chương trình nhập 1 số nguyên dương tính tích các số chẳn từ 1 đến số đã nhập.