UBND HUYỆN QUẾ SƠN PHÒNG GD&ĐT KỲ KHẢO SÁT HỌC SINH GIỎI LỚP 6,7,8 CẤP HUYỆN NĂM HỌC 2013-2014 Môn: Tin học - Lớp Thời gian làm bài: 120 phút (Khơng kể thời gian giao đề) ĐỀ CHÍNH THỨC Bài (3,0 điểm): Giai thừa N! (N giai thừa) định nghĩa: tích N số tự nhiên dương Viết chương trình cho phép nhập số tự nhiên N từ bàn phím (với 00) and (n Max then Begin Max:=abs(M[i]); vt_max:=i; End; Writeln('a)So co gia tri tuyet doi lon nhat day la: ',M[vt_max]); am:=0; duong:=0; For i:=1 to n Begin if M[i]>0 then duong:=duong+1; if M[i] duong then writeln('so so duong < so so am'); if am = duong then writeln('so so duong = so so am'); ThuVienDeThi.com 0,5 1,0 1,0 repeat write('Nhap k: ');Readln(k); until (k>0) and (k=A) and (B>=C) then writeln('b) Canh lon nhat la AC'); if (C>=A) and (C>=B) then writeln('b) Canh lon nhat la AB'); 1,0 ok:=false; if A-B=B-C then ok:=true; if A-C=C-B then ok:=true; if B-A=A-C then ok:=true; ThuVienDeThi.com 1,0 if B-C=C-A then ok:=true; if C-A=A-B then ok:=true; if C-B=B-A then ok:=true; if ok then Writeln('c)Cap so cong') else Writeln('c)Khong cap so cong'); readln; End b) Yêu cầu xây dựng test: Yêu cầu Khống chế giá trị hai góc (Tổng < 180) Xác định loại tam giác (Thường, cân, vuông, vuông cân, đều) Xác định cạnh lớn Xác định số đo góc có tạo thành cấp số cộng không Số test Số điểm 0,25 1,25 4 1,00 1,00 (Tổng số test cần xây dựng: 6) (Việc xây dựng test cần đảm bảo yêu cầu vừa kết hợp đánh giá nhiều yêu cầu test để giảm thời gian chấm) ThuVienDeThi.com ... ThuVienDeThi.com UBND HUYỆN QUẾ SƠN PHÒNG GD&ĐT KỲ KHẢO SÁT HỌC SINH GIỎI LỚP 6,7 ,8 CẤP HUYỆN NĂM HỌC 2013- 2014 Môn: Tin học - Lớp HƯỚNG DẪN CHẤM Bài 1: (3,0 điểm) a) Code tham khảo: Program bai1;... hạng liên tiếp cấp số cộng không Biết dãy số gọi cấp số cộng phần tử đứng sau phần tử đứng trước cộng với số không đổi Dãy 30, 60, 90 cấp số cộng số sau số trước cộng 30 60, 60, 60 cấp số cộng số... repeat Write('Nhap so goc ABC: ');Readln(B); Write('Nhap so goc BCA: ');Readln(C); until B+C< 180 ; A:= 180 -(B+C); if (A=B) and (B=C) then writeln('a) ABC la tam giac deu'); if ((A=90) or (B=90) or