1. Trang chủ
  2. » Vật lý

de thi hoc sinh gioi mon tin hoc 9

4 14 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 4
Dung lượng 12,76 KB

Nội dung

Biết rằng ta gọi số “đối xứng” với số a là số nguyên dương thu được từ a bằng cách đảo ngược thứ tự các chữ số của a.[r]

(1)

phòng giáo dục đào tạo thủy

đề thi chọn học sinh giỏi lớp THCS năm học 2014 - 2015 môn tin học

Thời gian: 150 phút, không kể thời gian giao đề

(§Ị thi cã 01 trang) Bài 1. (4,0 điểm)

Viết chương trình nhập số tự nhiên n tính giá trị biểu thức Sn:

1

2

n

n S

n

    

Tên tập tin: D:\Thi HSG<SBD>\Bai1.pas D:\Thi HSG<SBD>\Bai1.doc

Bài 2.(4,0 điểm)

Viết chương trình kiểm tra số tự nhiên N (N<10000) nhập vào từ bàn phím có phải số hồn chỉnh hay khơng?

Biết số hồn chỉnh số có tổng ước nhỏ nó Ví dụ: Số có ước nhỏ 1, 2, Tổng ước + + = Vậy gọi số hoàn chỉnh

Tên tập tin: D:\Thi HSG<SBD>\Bai2.pas D:\Thi HSG<SBD>\Bai2.doc

Bài 3. (7,0 điểm)

Viết chương trình nhập từ bàn phím hai số ngun dương a, b thực hiện: a) In số đối xứng số nguyên dương a đối xứng số nguyên dương b b) In tổng số đối xứng với a số đối xứng với b

Biết ta gọi số “đối xứng” với số a số nguyên dương thu từ a cách đảo ngược thứ tự chữ số a

Ví dụ: nhập số a = 12, số b = 23 cho kết quả:

a) Số đối xứng với số a = 12 21; Số đối xứng với số b = 23 32

b) Tổng số đối xứng với a = 12 số đối xứng với b = 23 là: 21 + 32 = 53 Tên tập tin: D:\Thi HSG<SBD>\Bai3.pas

D:\Thi HSG<SBD>\Bai3.doc

Bài 4.(5,0 điểm)

Viết chương trình tạo mảng bao gồm N số nguyên tố Số tự nhiên N nhập từ bàn phím

Tên tập tin: D:\Thi HSG<SBD>\Bai4.pas D:\Thi HSG<SBD>\Bai4.doc

-Hết -

Họ tên thí sinh: SBD

* Lưu ý: Cán bộ coi thi giải thích gì thêm.

(2)

CẤP HUYỆN NĂM HỌC 2014 – 2015

Môn: Tin học

Hướng dẫn chấm máy tính

Chấm theo Test thử, test giám khảo cho điểm test

Bài (4,0 điểm)

Test Nhập số n Kết (In hình) Điểm

1 1 0.50000 0,5 đ

2 2 1.16667 0,5 đ

3 50 46.48119 1,0 đ

4 100 95.80272 1,0 đ

5 1000 993.51353 1,0 đ

Lưu ý: Đây kết làm tròn đến chữ số thập phân.

Bài (4,0 điểm)

Test Nhập số n Kết (In hình) Điểm

1 2 Khơng số hồn chỉnh 1,0 đ

2 6 Số hoàn chỉnh 1,0 đ

3 496 Số hoàn chỉnh 1,0 đ

4 8128 Số hoàn chỉnh 1,0 đ

Bài (7,0 điểm)

Test Nhập số a Nhập số b

Kết (In hình)

Điểm Số đối

xứng số a

Số đối xứng số b

Tổng hai số đối xứng a,b

1 12 23 21 32 53 1,5 đ

2 123 456 321 654 975 1,5 đ

3 1357 2468 7531 8642 16173 2,0 đ

4 2809 2014 9082 4102 13184 2,0 đ

Bài (5,0 điểm)

Test Nhập số n Kết (In hình) Điểm

1 1 1,0 đ

2 3 2; 3; 1,0 đ

3 10 2; 3; 5; 7; 11; 13; 17; 19; 23; 29 1,5 đ

4 50 2; 3; 5; 7; ; 227; 229 1,5 đ

Hướng dẫn chấm giấy.

Bài Chương trình Điểm

1

(4,0đ) Program Bai1;Uses Crt;

Var

n, i: Integer; s: Real;

1,0 đ

BEGIN

Clrscr; Write(‘ Nhap so tu nhien n= '); Readln(n);

(3)

s:= 0;

For i:= to n s:= s + i/ (i + 1); 1,5 đ

Writeln(‘ Gia tri bieu thuc Sn la: ’,s:5:5); Readln

END.

1,0 đ

2 (4,0đ)

Program Bai2; Uses Crt;

Var

n, i, s: Longint;

1,0 đ

BEGIN

Clrscr; Write(‘ Nhap so tu nhien n: '); Readln(n);

0,5 đ

s:= 0;

For i:= to n -

If n mod i = then s:= s + i;

1,5 đ

If s = n then writeln(n, ‘ : la so hoan chinh ’)

Else writeln(n, ‘ : khong la so hoan chinh ’) Readln

END.

1,0 đ

3 (7,0đ)

Program Bai3; Uses crt;

Var a, b: Longint;

1,0 đ

Function DX(a: integer):integer; Var so: Integer;

Begin

so:= 0; Repeat

so:= so*10+a mod 10; a:= a div 10;

Until a = 0; DX:= so; end;

2,0 đ

BEGIN Clrscr;

Write(' Nhap so a= '); readln(a); Write(' Nhap so b= '); readln(b);

1,0 đ

Writeln('So doi xung so ',a,' la: ',DX(a));

Writeln('So doi xung so ',b,' la: ',DX(b)); 2,0 đ

Writeln('Tong cua hai so doi xung la: ',DX(a)+DX(b)); readln;

END.

(4)

4 (5,0đ)

Program Bai4; Uses crt;

Var

a:Array[1 1000] of Integer; i, n: Byte;

j, k: Integer; kt:boolean;

2,0 đ

BEGIN clrscr;

Write(' Nhap kich thuoc N cua mang: '); Readln(n); a[1]:= 2;

For i:= to n do Begin

j:= a[i-1]; Repeat Inc(j); kt:= True;

For k:= to j div do

If j mod k = then kt:= False; Until kt;

2,0 đ

a[i]:= j; End;

Writeln(' Mang N so nguyen to dau tien: '); For i:=1 to n Write(a[i]:4);

Readln; END.

1,0 đ

*Lưu ý:Học sinh có nhiều cách giải khác nhau, giám kháo cho điểm tương ứng phần đó.

Ngày đăng: 05/03/2021, 11:36

w