Đề thi HSG tin THCS năm 2012-2013

PHÒNG GIÁO DỤC VÀ ĐÀO TẠO
THỊ XÃ GIA NGHĨA
KỲ THI HỌC SINH GIỎI BẬC THCS
CẤP THỊ XÃ NĂM HỌC 2011 – 2012


MÔN THI: TIN HỌC 9
Thời gian: 150 phút (không kể thời gian giao đề)
Hãy sử dụng ngôn ngữ lập trình Pascal để viết các chương trình sau:
QUY ƯỚC TÊN TẬP TIN VÀ TÊN CHƯƠNG TRÌNH
Bài
Tên tệp tin
Tên chương trình

Bài 1
Bai1.pas
Nhan_hai_so_nguyen

Bài 2
Bai2.pas
Tong_can

Bài 3
Bai3.pas
Xoa_ki_tu

Bài 4
Bai4.pas
So_nhi_phan

Bài 5
Bai5.pas
Sap_xep_chen_them

Bài 1. (4 điểm)
Viết chương trình nhập từ bàn phím hai số nguyên dương, mỗi số gồm ba chữ số và in chi tiết kết quả phép nhân ra màn hình như ví dụ sau:
456
x
789
------
4104
3648
3192
-----------
359784
Bài 2. (3 điểm)
Viết chương trình nhập vào từ bàn phím một số nguyên dương n (n≤1000), sau đó tính và in lên màn hình giá trị của T (kết quả lấy đến 6 chữ số thập phân):
T=
(có n dấu căn bậc hai)
Bài 3. (3 điểm)
Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch. In ra màn hình xâu St sau khi xóa hết các ký tự ch trong xâu đó.
Bài 4. (4 điểm) Viết chương trình nhập một số nguyên n từ bàn phím. Chuyển số n vừa nhập thành số nhị phân ?
Ví dụ: Nhap n= 7
So 7 chuyen thanh so nhi phan la : 111
Nhap n= 101
So 101 chuyen thanh so nhi phan la : 1100101
Bài 5. (6 điểm) Nhập vào một mảng các số nguyên.
a/ Xếp lại mảng đó theo thứ tự giảm dần.
b/ Nhập vào một số nguyên từ bàn phím. Chèn số đó vào mảng sao cho mảng vẫn có thứ tự giảm dần. (không được xếp lại mảng)
CHƯƠNG TRÌNH MẪU
TT bài
Chương trình mẫu
Điểm

Bài 1
Program nhan_hai_so;
Uses Crt;
Var m, n: Integer;
i: byte; l: longint;
0.5


Begin
Clrscr;
Repeat
Write(`Nhap so co 3 chu so: m= `);Readln(m);
Write(`Nhap so co 3 chu so: n= `);Readln(n);
Until (m<1000) and (n<1000);
0.5


l:=m*n;
Writeln;
Writeln(m:12);
Writeln(`x`:7);
Writeln(n:12);
writeln(`-------`:13);
1


i:=12;
while n>0 do
begin
Writeln(m*(n mod 10):i);
n:= n div 10;
i:=i-1;
end;
1.5


Writeln(`-------`:13);
Writeln(l:12);
Readln;
End.
0.5

Bài 2
Program chen_so_vao_mang;
Uses Crt;
Var n, i: integer;
t:real;
0.5


Begin
Clrscr;
Write(`nhap so n= `);readln(n);
0.5


 t:=0;
for i:=1 to n do
t:=sqrt(t+sqrt(i));
1.5


 Writeln(`Gia tri bieu thuc la: `,t:10:6);
readln;
End.
0.5

Bài 3
Program xoa_xau;
Uses Crt;
Var st: string;
ch: char;
i: Integer;
0.5


Begin
CLRSCR;
Write(`Nhap xau: `);readln(st);
Write(`nhap ki tu can xoa: `);readln(ch);
0.5


 i:= 1;
While i<= length(st) do
Begin
if st[i]=ch then Delete(st,i,1)
elses
i:=i + 1;
1.5


 Writeln(`Xau sau khi xoa la: `,st);
readln;
End.
0.5