Đáp án bài kiểm tra 1 tiết - mã đề 01 (lần 1)

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 khối 11)
Mã đề: 01
I. Phần Trắc nghiệm:
Câu 1: D. Câu 5: B.
Câu 2: C. Câu 6: C.
Câu 3: B. Câu 7: B.
Câu 4: C.
II. Phần Tự luận:
Câu 8:
PROGRAM KT_81;
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_91;

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);
readln;
END.
Câu 10:
PROGRAM KT_101;
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);
1
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 tang}
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