Đáp án bài kiểm tra 15 phút - mã đề 02 (lần 2)

Sở GD&ĐT Thanh Hóa
Trờng THPT Tĩnh Gia 1
ĐáP án bài kiểm tra 1 tiết
(dùng cho Ban cơ bản khối 11)
Mã đề: 02
I. Phần Trắc nghiệm :
Câu 1: C. Câu 5: B.
Câu 2: A. Câu 6: A.
Câu 3: D. Câu 7: D.
Câu 4: B.
II. Phần Tự luận :
Câu 8:
PROGRAM KT_82;
USES crt;
VAR a,b,c: integer;
BEGIN
clrscr;
write(' nhap so thu nhat: '); readln(a);
write(' nhap so thu hai: '); readln(b);
write(' nhap so thu ba: '); readln(c);
begin
if (a+b>c)and(b+c>a)and(c+a>b) then
writeln('ba so ', a,',',b,',',c,' la 3 canh tam giac')
else
writeln(' khong phai la 3 canh tam giac ');
end;
readln;
END.
Câu 9:
PROGRAM KT_92;
USES crt;

VAR a,b: integer;
BEGIN
clrscr;
write(' nhap vao so thu nhat: '); readln(a);
write(' nhap vao so thu hai: '); readln(b);
while a<>b do
begin
if a>b then
a:= a-b
else
b:= b-a;
end;
if a=b then
writeln(' UCLN la: ',a);
1
readln;
END.
C©u 10:
PROGRAM KT_102;
USES crt;
VAR a: array[1 100] of integer;
i,j,n,tam: integer;
BEGIN
clrscr;
write('nhap so phan tu cua mang: ');readln(n);
for i:= 1 to n do
begin
write('A[',i,']:= '); readln(a[i]);
end;
for i:= 1 to n-1 do

for j:= n downto i+1 do
if a[i]>a[j] then {day khong giam}
begin
tam:= a[i];
a[i]:= a[j];
a[j]:= tam;
end;
writeln(' day sau khi sap xep ');
for i:= 1 to n do
write(a[i]:2);
readln;
END.
2