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 . 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. 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 _10 1; USES crt; VAR a: array [1 100] of integer; i,j,n,tam:. 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