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.

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?');