MÃ KÍ HIỆU

[*****]

ĐỀ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN
LỚP 9 - Năm học 2018-2019

MÔN: TIN HỌC
Thời gian làm bài: 150 phút
( Đề thi gồm 3 câu, 1 trang)

Bài 1: ( 3.0 điểm) Lưu với tên bai1.pas
Nhập vào 1 chuỗi gồm các số, kí tự. Hãy xóa bỏ các chữ số chẵn. Kiểm tra chuỗi kí tự còn
lại có bao nhiêu kí tự. Xuất kết quả dưới dạng đối xứng của phần còn lại.
Ví dụ:
Nhập: Truongcap2
Xuất: - Chuỗi kí tự còn lại có 9 kí tự
- Chuỗi đối xứng sau khi xóa: TruongcappacgnourT

Bài 2 : (3.5 điểm) Lưu với tên bai3.pas
Một dãy số nguyên là các con số chưa được sắp xếp theo một trật tự nào đó.
Yêu cầu :
Nhập vào 01 dãy n số nguyên (n<=100), viết chương trình
- Sắp xếp dãy số theo chiều tăng dần
- sắp xếp các phần tử chẵn lên đầu dãy theo chiều tăng dần, các phần tử lẻ ở cuối dãy
theo chiều giảm dần.
Ví dụ : n=6
Nhập : { 3 2
1
4
0
7 }
Xuất :
Dãy sắp xếp tăng dần { 0 1 2 3 4 7}
Dãy sắp xếp chẵn tăng, lẻ giảm { 0
2
4
7
3
1 }.
Bài 3 (3.5 điểm) Lưu với tên bai2.pas
. Viết chương trình tính tổng sau:

Với N nhập từ bàn phím sao cho 5đúng tính tổng (kết quả lấy đến 3 chữ số thập phân).
Ví dụ:
Nhập: N=6
Xuất: S=2.462
-----------------------Hết----------------------Thí sinh không được sử dụng tài liệu
Giám thị coi thi không giải thích gì thêm.

MÃ KÍ HIỆU

[*****]

ĐÁP ÁN ĐỀ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN
Lớp 9 - Năm học 2018 - 2019

MÔN: TIN HỌC
(Hướng dẫn chấm gồm 3 trang)

Bài 1 : 3.0 điểm
{Code demo}
PROGRAM XAUKITU;
uses crt;
const so=['0','2','4','6','8'];
var s:string;
   i,dem:integer;
begin
clrscr;
      dem:=0;
      write('Nhap 1 day so:');readln(s);
      i:=1;
      while i<= length(s) do
      if s[i] in so then
      begin
           delete(s,i,1);
           i:=1;
      end
       else inc(i);
      for i:=1 to length(s) do dem:=dem+1;
    writeln('Sau khi xoa cac so chan con ',dem,' kí tự .');
    write('Sau khi xoa cac so chan va bien doi doi xung :',s,' ');
      for i:=length(s) downto 1 do write(s[i]);
readln;
end.
Bài 2: (3.5 điểm)
{code demo}
uses crt;
var a,b,c:array[1..100] of integer;
n,i,j,tam:integer;
begin
clrscr;
write('nhap n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
(*sap xep*)
for i:= 1 to n do
for j:=i+1 to n do

{

if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('mang sau khi sap xep');
for i:=1 to n do
write(a[i]:5);
writeln;
writeln('mang sau khi da sap chan le');
for i:= 1 to n do
if a[i] mod 2 = 0 then
begin
b[i]:=a[i];
write(b[i]:5);
end;
for i:=n downto 1 do
if a[i] mod 2 <> 0 then
begin
c[i]:=a[i];
write(c[i]:5);
end;
{b[i]:=a[i]
else c[i]:=a[i];}
for i:=1 to n do
write(b[i]:5);
write(c[i]:5);}
readln;
end.

Bài 3 : (3.5 điểm):
Program bai3;
Uses crt;
Var
N,i:integer;
S:real;
Begin
Clrscr;
Write('Nhap so tu nhien n='); readln(n);
While ((n<=5) or (n>100)) do
Begin
Write('Nhap lai n thoa man 5Readln;
End.