De ktra tin 8

TRƯỜNG THCS TRẦN HƯNG ĐẠO CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM
ĐỘC LẬP-TỰ DO-HẠNH PHÚC

KIỂM TRA MÔN TIN HỌC 8
THỜI GIAN 45 PHÚT
TRẮC NGHIỆM:
Câu 1: cho đoạn chương trình sau, hãy chọn kết quả đúng khi thực hiện chương trình.
Program ct1;
Uses crt;
Const c=3;
Var a,b:integer;
Begin
a:=50; b:=a/c;
End.
16 B. 15 C. 16,6666 D. Tất cả đều sai
Câu 2:Chọn phương án đúng trong các phương án khi thực hiện chương trình.
Var c:integer;
Begin
C:=18- (15div3+(12 mod 5));
Writeln( c);
Readln;
End.
12 B. 11 C. 11.5 D. Tất cả đều sai
Câu 3: cho chương trình sau:
Var x,y,z;
Begin
Write(nhap x,y); readln(x,y);
x:=3; y:=5;
x:=y;
y:=x+2;z:=x+y;
writeln(ket qua la =’,x,’ ‘,y,’ ‘,z);
readln;
End.
Hãy cho biết kết quả khi thực hiện chương trình trên.
x=5; y=7; z=12 B. x=3;y=7;z=10 C. x=3;y=5; z=8 D. x=5; y=7;z=11
Câu 4: cho đoạn chương trình sau:
Program ct3;
Var x,y,z:integer;
Begin
x:=3; y:=4;
z:=x; x:=y;y:=z:
writeln(x,y);
readln;
End.
Hãy cho biết kết quả cuối cùng là bao nhiêu.
x=3;y=4 B. x=4;y=3 C. x=1;y=3 D. x=4;y=2
TỰ LUẬN:
Viết chương trình tính diện tích và chu vì hình tròn. Biết R là một dữ liệu kiểu số tự nhiên và được nhập từ bàn phím.( hãy sử dụng khai báo hằng đối với những giá trị không đổi trong bài).
Viết chương trình tính diện tích và chu vi tam giác vuông.Biết độ dài 2 cạnh góc vuông được nhập từ bàn phím và có kiểu dữ liệu số nguyên.

--------------------------HẾT----------------------------
Đáp án:
Trắc nghiệm: 1.D 2. 11 3.A 4.B
Tự luận:
Program cv-dt;
Uses crt;
Var R:integer; const phi=3.14;
Begin
Write(‘nhap R=’); readln(R);
S:=phi*R*R;
P:=2*phi*R;
Writeln(‘ Dien tich la=’,s:4:2);
Write(‘ chu vi la=’,p:4:2);
End.
Program tamgiacvuong;
Var a, b,c:integer;
P,S: Real;
Begin
Write(‘nhap a=’); readln(a);
Write(‘nhap b=’);readln(b);
c:=sqrt(a*a+b*b);
s:=1/2*a*b;
p:=a+b+c;
writeln(‘dien tich la=’,s:4:2);
writeln(‘Chu vi la=’,p:4:2);
readln;
End.

TRƯỜNG THCS TRẦN HƯNG ĐẠO CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM
ĐỘC LẬP-TỰ DO-HẠNH PHÚC

KIỂM TRA MÔN TIN HỌC 8
THỜI GIAN 45 PHÚT
TRẮC NGHIỆM:
Câu 1: Cho đoạn chương trình sau:
Program ct3;
Var x,y,z:integer;
Begin
x:=3; y:=4;
z:=x; x:=y;y:=z:
writeln(x,y);
readln;
End.
Hãy cho biết kết quả cuối cùng là bao nhiêu.
x=3;y=4 B. x=4;y=3 C. x=1;y=3 D. x=4;y=2
Câu 2: Cho đoạn chương trình sau, hãy