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