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.


ĐÁ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=`