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 Bài Bà[r]
Trang 1PHÒ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 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 đo 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= √1+√2+ +√n (co 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 xoa hết các ký tự ch trong xâu đo
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 đo 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ố đo vào mảng sao cho mảng vẫn co thứ tự giảm dần (không được xếp lại mảng)
CHƯƠNG TRÌNH MẪU
Trang 2TT 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
Trang 3CLRSCR;
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
Bài 4
Program DOI_THAP_PHAN_SANG_NHI_PHAN;
Uses Crt;
Var d:array[1 20] of byte;
i, j, n: integer;
0.5
Begin
Clrscr;
Writeln('DOI SO THAP PHAN SANG NHI PHAN:');
Writeln(' -');
Write('Nhap so thap phan la n='); Readln(n);
0.5
i:=1;
Repeat
d[i]:=n mod 2;
n:=n div 2;
i:=i+1;
Until(n=0);
2
Write('So nhi phan la:');
For j:=i-1 downto 1 do Write (d[j]);
Readln;
End
1
Bài 5 Program chen_so_vao_mang;
Uses Crt;
Var A:Array[1 50] of integer;
i, n, tg, j, m: Byte;
0.5
Begin
Clrscr;
Write('nhap so phan tu mang:n= ');readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');Readln(a[i]);
end;
Write('nhap so nguyen m= ');readln(m);
1
For i:=1 to n do
begin
1.5
Trang 4for j:=1 to i do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
end;
For i:=n downto 1 do
For i:=n downto 1 do
if a[i]<=m then
begin
A[i+1]:=a[i];
a[i]:=m;
end;
1.5
Writeln(‘Day so sau khi chen them so la:’);
for i:=1 to n+1 do
write(a[i],' ');
readln;
End
0.5