UBND HUYỆN THANH OAI PHỊNG GD&ĐT ( Đề thi có 01 trang ) ĐỀ THI CHỌN HỌC SINH GIỎI LỚP - THCS CẤP HUYỆN NĂM HỌC 2015 - 2016 Môn: Tin học (Thời gian làm 150 phút không kể thời gian giao đề ) Yêu cầu chung làm bài: Mỗi thí sinh tạo thư mục thư mục gốc ổ đĩa D: để lưu thi Tên thư mục có dạng SBDxyz Trong xyz số báo danh thí sinh Bài làm câu hỏi thi lưu file đặt tên BAI1.PAS, BAI2.PAS, BAI3.PAS, BAI4.PAS Kết xuất hình theo dạng cho ví dụ gồm tên câu hỏi kết Đối với câu hỏi có nhiều kết ghi tất kết tìm Trường hợp khơng có kết xuất KHONG Câu 1: (4,0 điểm): Viết chương trình tính chu vi, diện tích hình vng có cạnh a (được nhập từ bàn phím) Câu 2: (5,0 điểm): Viết chương trình tìm ước chung lớn (UCLN) hai số với yêu cầu sử dụng thuật toán Euclid Thuật toán Euclid: Nếu a chia hết cho b (a chia b dư 0) UCLN(a,b) b Nếu a chia b dư r UCLN(a,b) = UCLN(b,r) Câu 3: (3,0 điểm): Viết chương trình tính diện tích tam giác có ba cạnh a,b,c (được nhập từ bàn phím) Câu (4,0 điểm): Viết chương trình giải phương trình ax + b = (Các hệ số a, b nhập từ bàn phím) Câu (4,0 điểm): Viết chương trình nhập số tự nhiên n cho < n ≤100, nhập sai yêu cầu nhập lại nhập tính tổng sn: Sn 1.2 2.3 3.4 n.(n 1) 3.4 4.5 5.6 (n 2)(n 3) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Hết~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Người duyệt đề Người đề Đặng Thị Quỳnh ThuVienDeThi.com HƯỚNG DẪN CHẤM THI CHỌN HSG LỚP - THCS CẤP HUYỆN NĂM HỌC 2015 – 2016 Mơn: Tin học Bài 1: Mẫu chương trình: Program HINH_VUONG; uses crt; 0,5đ Var canh: real; Begin clrscr; 0,5đ Write('Nhap dai canh:');readln(canh); 1đ Writeln('Chu vi hinh vuong la:',4*canh:10:2); 1đ Writeln('Dien tich hinh vuong la:',canh*canh:10:2); readln 1(đ) end Bài 2: Mẫu chương trình: Program UCLN; uses crt; 0,5đ var a,b,r:byte; begin clrscr; 0,5đ writeln('CHUONG TRINH TIM UCLN CUA HAI SO'); write('Nhap a: ');readln(a); 0,5đ write('Nhap b: ');readln(b); 0,5đ r:=a mod b; 0,5đ while r begin 0,5đ b:=r; 0,5đ a:=b; r:=a mod b; 0,5đ end; write('UCLN cua hai so la: ',b); readln 1đ end Bài 3: Mẫu chương trình Program TAM_GIAC; uses crt; Var a,b,c,p,S: real; 0,5đ Begin clrscr; Write('Nhap canh a:');readln(a); Write('Nhap canh b:');readln(b); 0,5đ Write('Nhap canh c:');readln(c); p:=(a+b+c)/2; 0,5đ S:= sqrt(p*(p-a)*(p-b)*(p-c)); 0,5đ Write('Dien tich tam giac la:',s:10:2); ThuVienDeThi.com readln end Bài 4: Mẫu chương trình: Program Phuong_trinh_bac_nhat; uses crt; var a,b:real; begin clrscr; Writeln(' CHUONG TRINH GIAI PT ax + b = 0'); Write('Nhap he so a = ');readln(a); Write('Nhap he so b = ');readln(b); if (a0) then writeln('phuong trinh',a:10:2,'x + ',b:10:2,'= 0',' co nghiem x =;',-b/a:10:2); if (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem'); if (a=0) and (b0) then writeln('Phuong trinh vo nghiem'); readln end 1đ 0,5đ 0,5đ 0,5đ 1đ 0,5đ 1đ Bài 5: Program TinhTong; Uses Crt; Var n,i:Integer; s:Real; BEGIN ClrScr; Write(‘Nhap so tu nhien n=');Readln(n); While ((n100) Begin Write(‘Nhap lai n thoa man < n