S9e62+Đáp an HSG tin lớp 9

PHÒNG GD&ĐT BÙ ĐĂNG KỲ THI CHỌN HỌC SINH GIỎI LỚP 9 CẤP TRƯỜNG Trường THCS Minh Hưng NĂM HỌC 2010 – 2011 Đề chính thức Môn thi: TIN HỌC Số báo danh: . . . . . . . Thời gian: 90 phút (không kể thời gian giao đề) Họ Và Tên: . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Lớp: . . . . . . . . . . . . . . . (Trong đề này học sinh có thể sử dụng các ngôn ngữ lập trình: Pascal, C ++ , Visual basic) Câu 2: Viết chương trình tính tổng của n số nguyên dương đầu tiên (tức là: 1+…+n, n ∈ N * ). Câu 3: Tìm tất cả các lỗi có trong chương trình sau: (Chỉ rõ vị trí của lỗi hoặc viết lại hoàn chỉnh chương trình để chương trình không còn có lỗi nào nữa) Program Chuong_Trinh_Doan Tuoi Var kq: integer; x: Integer; BEGIN Clrscr; Writeln('Ban hay lay tuoi cua minh cong 5'); Writeln('Duoc bao nhieu nhan 2'); Writeln('Sau do cong them 10'); Writeln('Duoc bao nhieu nhan 5'); Writeln('Sau do tru di 100'); Write('Moi Ban Nhap Ket Qua Vua Tim Duoc Vao Day: '); Readln(kq); x:=kq/10; Writeln('Hien nay ban ',x:2:0,' tuoi'); Readln END. Câu 4: Hãy viết chương trình thực hiện các phép toán (có sự lựa chọn riêng từng phép toán) có chức năng như một máy tính casio thông thường với 4 phép toán cơ bản là Cộng(+), Trừ(-), Nhân(*), Chia(/). Chú ý phép chia a/b, b#0. Biết Input là nhập vào 2 số a và b cho trước. Câu 1: Viết chương trình tạo hình : ĐÁP ÁN Câu 1: (2đ) USES CRT; BEGIN CLRSCR; WRITELN(' * *'); WRITELN(' * * **'); WRITELN(' * * *'); WRITELN(' *****'); WRITELN(' * *'); WRITELN('*** ***'); END. Câu 2: (3đ) Program Tinh_Tong; Uses crt; Var i, n:integer; tong: Real; BEGIN Clrscr; Write('Nhap mot so nguyen duong (n<=180) n= ');readln(n); tong:=n*(n+1)/2; {Tong:=0; For i:=1 to n do Tong:=tong+i;} Writeln('Tong: 1+2+3+ .+ ',n,' = ',tong:2:0); Readln END. Câu 3: (2đ) Program Chuong_Trinh_Doan_Tuoi; Uses crt; Var kq: integer; x: real; BEGIN Clrscr; Writeln('Ban hay lay tuoi cua minh cong 5'); Writeln('Duoc bao nhieu nhan 2'); Writeln('Sau do cong them 10'); Writeln('Duoc bao nhieu nhan 5'); Writeln('Sau do tru di 100'); Write('Moi Ban Nhap Ket Qua Vua Tim Duoc Vao Day: '); Readln(kq); x:=kq/10; Writeln('Hien nay ban ',x:2:0,' tuoi'); Readln END. Câu 4: (3đ) Program May_Tinh_Casio; uses crt; Var c: char; a, b, tong, hieu, tich, thuong: real; BEGIN Clrscr; Writeln('EM HOC LAM TOAN VOI CASIO'); Write('a= '); Readln(a); Write('b= '); Readln(b); Writeln('Ban Chon Phep Toan Nao?'); Write('Cong(+), Tru(-), Nhan(*), Chia(/): '); Readln(c); tong:=a+b; hieu:=a-b; tich:=a*b; If c='+' then Write(a,'+',b,'= ',tong:3:0); If c='-' then Write(a,'-',b,'= ',hieu:3:0); If c='*' then Write(a,'*',b,'= ',tich:3:0); If c='/' then begin if b<>0 then Write(a,':',b,'= ',a/b:3:0) else Write('Mau=0'); end; Readln END. Minh Hưng, ngày 18 tháng 10 năm 2010 Người ra đề đáp án Giáo Viên Phan Viết Thanh . HỌC SINH GIỎI LỚP 9 CẤP TRƯỜNG Trường THCS Minh Hưng NĂM HỌC 2010 – 2011 Đề chính thức Môn thi: TIN HỌC Số báo danh: . . . . . . . Thời gian: 90 phút (không. Chuong_Trinh_Doan Tuoi Var kq: integer; x: Integer; BEGIN Clrscr; Writeln('Ban hay lay tuoi cua minh cong 5'); Writeln('Duoc bao nhieu nhan 2');