bộ đề tin

b) Hai số nguyên tố được gọi là cặp số nguyên tố họ hàng nếu chúng hơn kém nhau 4 đơn vị. là các cặp số nguyên tố họ hàng. c) Số nguyên tố đối xứng là một số nguyên tố bằng trung bình [r]

(1)

PHÒNG GD&ĐT HUYỆN LỤC NAM Trường THCS Bảo Đài

GV đề: Lương Văn Khang

ĐỀ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN Năm học: 2015-2016

Môn thi: Tin 6

Thời gian làm bài: 120 phút

I TRẮC NGHIỆM (30 điểm) 1 Thiết bị nhập chuẩn gồm:

a) Màn hình, máy in b) Máy in, chuột c) Chuột, bàn phím d) Bàn phím, máy in

2 Mọi máy tính muốn sử sụng được, trước tiên phải: a) Có đầy đủ phần mềm ứng dụng

b) Có đầy đủ phần mềm tiện ích c) Có phần mềm hệ thống

d) Khơng cần sử dụng tốt

3 Mơ hình tổng qt q trình xử lí thơng tin là: a) Xử lý > Nhập > Xuất

b) Xuất > Xử lý > Nhập c) Nhập > Xử lý > Xuất d) Xử lý > Xuất > Nhập

4 Nhắp phải Desktop > New > Folder để: a) Tạo thư mục trên My Computer b) Tạo thư mục Desktop

c) Tạo thư mục My Document d) Tạo tập tin Desktop

5 Muốn mở xem nội dung File, ta thao tác: a) Nhắp đôi vào tên File

b) Nhắp phải vào File > Open c) Chọn File, gõ ¿

d) Các thao tác

6 Để truy cập vào trang Web, trước tiên ta cần mở cửa sổ a) My Network Places

b) My Computer c) My Document d) Internet Explorer

7 Khi xóa File đĩa cứng thì: a) File bị xóa hẵn

(2)

8 Điều kiện để khởi động HĐH WinXP là:

a) Phần mềm WinXP chép vào đĩa cứng từ đĩa gốc b) Phần mềm WinXP cài đặt vào nhớ RAM

c) Được chạy trực tiếp từ đĩa gốc

d) Phần mềm WinXP cài đặt vào đĩa cứng từ đĩa cài đặt gốc 9 Cửa sổ My Computer chứa

a) Các tài liệu, hình ảnh có máy b) Các ổ đĩa có hệ thống

c) Các thành phần mạng máy tính d) Các hệ thống Icons

10 Trên Desktop

a) Cho phép có thư mục tên

b) Không cho phép tên thư mục chữ in hoa c) Khơng cho phép có thư mục tên d) Không cho phép ẩn thư mục

11 Tổ hợp phím Ctrl-C, Ctrl-V tương đương với việc: a) Sao chép Di chuyển

b) Di chuyển c) Copy > Paste d) Cut > Paste

12 Trước thoát khỏi Windows:

a) Start > Turn Off Computer > Turn Off b) Start > Turn Off Computer > Standby c) Start > Turn Off Computer > Restart d) Đóng tất cửa sổ mở

13 Để mở cửa sổ Windows Explorer, thao tác: a) Nhắp đúp biểu tượng My Computer

b) Nhắp phải biểu tượng My Computer > Open c) Nhắp phải biểu tượng My Computer > Explore d) Nhắp phải Desktop > Explore

14 Mạng máy tính là:

a) Một nhóm nhiều máy tính kết nối với b) Các máy tính sử dụng hệ điều hành mạng

c) Các máy trạm sử dụng tài nguyên máy chủ d) Tất yếu tố

15 Một số trình duyệt Web phổ biến là: a) Mozilla FireFox

b) Internet Explorer c) Google Chrome d) Tất

(3)

c) Gõ địa IP vào Google Search d) Gõ tên miền vào Yahoo Search 17 Công cụ dùng để:

a) Thay đổi Font cho toàn văn b) Thay đổi kích thước văn in

c) Thay đổi kích thước văn hình d) Tất

18 Chọn File > Page Setup > Margins để : a) Thiết lập hướng giấy in

b) Thiết lập lề giấy in c) Thiết lập giấy in

d) Tất thiết lập

19 Thao tác Lưu trữ văn soạn thảo: a) Menu File > Save

b) Nhắp chọn công cụ c) Dùng tổ hợp phím Ctrl + S d) Tất

20 Muốn khơi phục đoạn văn bị xóa nhầm, ta dùng tổ hợp phím a) Ctrl + C

b) Ctrl + Z c) Ctrl + X d) Ctrl + A

21 Để in văn soạn, ta thực hiện: a) Menu File > Print

b) Cơng cụ

c) Tổ hợp phím Ctrl + P d) Các thao tác 22 Công cụ dùng để:

a) Tô màu gạch chân cho văn b) Tô màu cho văn c) Tô màu chữ cho văn d) Tô màu viền cho văn

23 Với bảng mã UNICODE, Font gõ tiếng Việt là: a) VNI-Times

b) VnTimes

c) Times New Roman d) Tất

24 Muốn xóa kí tự đứng trước trỏ văn bản, ta dùng: a) Phím Delete

b) Phím Tab

(4)

d) Phím Spasebar

25 Cơng cụ có cơng dụng: a) Căn lề trái cho đoạn văn b) Căn cho đoạn văn c) Căn lề phải cho đoạn văn d) Căn lề cho đoạn văn

26 Thao tác thay đổi phông chữ cho đoạn văn bản: a) Menu Edit > Font > …

b) Chọn công cụ c) Chọn công cụ

d) Tất 27 Cửa sổ dùng để:

a) Tạo chữ nghệ thuật đầu đoạn văn b) Tạo kí tự đặc biệt đầu đoạn văn c) Tạo chữ to đầu đoạn văn

d) Thay đổi kích thước Font chữ đầu đoạn văn 28 Thao tác tạo chữ nghệ thuật văn bản:

a) Menu Insert > Picture > WordArt b) Menu Insert > WordArt

c) Menu Insert > Picture > From File d) Menu Insert > Object > WordArt 29 Menu dùng để:

a) Chèn thêm ô vào bảng b) Trộn nhiều ô thành ô c) Tách ô thành nhiều ô d) Xóa chọn

30 Muốn kẻ khung cho bảng biểu, chọn bảng, sau chọn Menu: a) Table > Draw

b) Insert > Border and Shadding c) Table > AutoFormat

(5)

II TỰ LUẬN (70 điểm) Bài (40 điểm)

1) Học sinh soạn thảo văn với nội dung sau lưu trữ vào thư mục ngồi hình với tên thư mục là: ten cua em-bai thi tin 2016

2) Quy định khổ giấy, lề trang in : Khổ giấy : A4, lề : 2,5cm, lề : 2,5cm, lề trái : 3cm, lề phải : 1,5cm

3) Phông chữ: Times New Roman, cỡ 13

HỆ THỐNG DỰ TRỮ BẰNG KỸ THUẬT SỐ HỆ THỐNG DỰ TRỮ BẰNG KỸ THUẬT SỐ

 MAXELL luôn tận dụng kỹ thuật tiên tiến, sáng chế lọai sản phẩm thỏa

mãn yêu cầu người sử dụng.

Sản phẩm MAXELL làm tăng thêm sức chứa liệu thu nhỏ kích thước, kéo dài tuổi thọ sử dụng

Làm cho toànn kiện số liệu lưu trữ bền hơn, đáng tin cậy hơn, sắc sảo và

an toàn hơn.

STT Họ tên Ngàysinh BẢNG ĐIỂM HỌC SINH ĐIỂM TB LOẠIXẾP

TIN CB WORD EXCEL

01 Nguyễn Thị Anh 10/08/93 7.5 6.0 7.5 7.00 Khá

02 Trần Đình Thọ 12/12/93 8.0 6.5 7.5 7.33 Khá

03 Ngô Thanh Oai 01/08/94 3.0 8.0 9.0 6.67 T bình

04 Hồ Quốc Thái 05/09/93 4.5 4.0 5.5 4.67 Yếu

(6)

Bài (30 điểm) Vẽ mơ hình sau:

(7)

GV đề: Lương Văn Khang Môn thi: Tin 6

Thời gian làm bài: 120 phút Hướng dẫn gồm trang I TRẮC NGHIỆM (30 điểm) Mỗi ý 0,5 điểm

Câu 10 11 12 13 14 15

Đáp án

C C C B D C C D B C C D C D D

Câu 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Đáp án

B C D D D D C C C B C C A B D

II TỰ LUẬN (70 điểm).

Câu Nội dung ( ghi chi tiết lời giải) Điểm

1 1) Học sinh lưu trữ vào thư mục ngồi hình với tên thư mục là: ten cua em-bai thi tin 2016

2) Đặt : Khổ giấy : A4, lề : 2,5cm, lề : 2,5cm, lề trái : 3cm, lề phải : 1,5cm

5 5 3) Học sinh soạn thảo văn với nội dung mẫu

HỆ THỐNG DỰ TRỮ BẰNG KỸ THUẬT SỐ HỆ THỐNG DỰ TRỮ BẰNG KỸ THUẬT SỐ

 MAXELL luôn tận dụng kỹ thuật tiên tiến, sáng chế lọai sản phẩm

mới thỏa mãn yêu cầu người sử dụng.

15 Sản phẩm MAXELL làm tăng

thêm sức chứa liệu thu nhỏ kích thước, kéo dài tuổi thọ sử dụng

Làm cho toànn kiện số liệu lưu trữ bền hơn, đáng tin cậy hơn, sắc sảo an toàn

hơn

(8)

STT Họ tên Ngàysinh

BẢNG ĐIỂM HỌC

SINH ĐIỂM

TB LOẠIXẾP TIN

CB WORD EXCEL

01 Nguyễn Thị

Anh 10/08/93 7.5 6.0 7.5 7.00 Khá

02 Trần Đình

Thọ 12/12/93 8.0 6.5 7.5 7.33 Khá

03 Ngô Thanh

Oai

01/08/94 3.0 8.0 9.0 6.67 T bình

04 Hồ Quốc Thái 05/09/93 4.5 4.0 5.5 4.67 Yếu

15

2

Vẽ mơ hình

30

(9)

GV đề: Lương Văn Khang Môn thi: Tin 7

I TRẮC NGHIỆM (7 điểm)

Câu 1: Giả sử cần tính tổng giá trị C2 D4, sau nhân với giá trị ô A2 Công thức số công thức sau đúng?

A =C2+D4*A2 ; B =(C2+D4)xA2

C =A2*(D4+C2) ; D =(C2+D4)A2

Câu 2: Hãy cho biết kết công thức =AVERAGE(10,20,3,7)?

A ; B 10; C 15 ; D

Câu 3: Ở chế độ ngầm định liệu kiểu số thẳng lề nào?

A Phải; B Trái; C Giữa; D Tất

Câu : Trong A1 có cơng thức =C1+B3 Công thức ta chép ô A1 sang ô C3?

A =E3+D5 ; B =C3+B3 ; C =C3+B5 ; D =E1+D3 Câu 5: Khi lọc liệu xong, để hiển thị toàn danh sách mà tiếp tục làm việc với AutoFilter ta dùng lệnh :

A Data → Filter B Data → Filter nháy chuột xóa đánh dấu AutoFilter

C Data → Filter → Advanced Filter D Data → Filter → Show All Câu 6: Để xem trước in, em sử dụng nút lệnh:

A Print Preview ; B Print ;C Research ;D Find

Câu 7: Nếu khối A2:A5 chứa số 2, 3, 4, thì: =SUM(A2:A5,3) cho kết là:

(10)

Câu 8: Trong bảng tính Excel, giả sử A2 chứa số 5, B8 chứa số 10 Khi công thức

=MAX(MIN(A2,B8,7), 9) cho kết là:

A B C D 10

Câu 9: Trong công thức để tính trung bình cộng liệu khối A1:A5, công thức viết sai

A =Average(a1:a5) B =SUM(A1:A5)/5

C = Average(A1:A5)/5 D =(A1+A2+A3+A4+A5)/5

Câu 10: Để tính tổng giá trị E3 F7, sau nhân với 10% Cơng thức sau viết sai?

A = SUM(E3,F7)*10% B =SUM(E3:F7)*10% C = (E3 + F7)*10% D =E3*10% + F7*10%

Câu 11: Nếu chép công thức ô D4 sang E5 bảng đây, giá trị ô E5

A B 11

C D 14

Câu 12: Nếu chép công thức ô D4 sang ô E3 bảng đây, giá trị E3

A 13 B

(11)

Câu 13: Nếu di chuyển công thức ô D4 sang ô E3 bảng đây, giá trị ô E3

A B

C D #REF!

Câu 14: Nếu chép công thức ô E4 sang ô F3 bảng đây, giá trị F3

A B

C D #REF!

II TỰ LUẬN (13 điểm)

Câu 1: (1 điểm) Hãy điền tác dụng nút lệnh tương ứng với số hình sau:  

`

(12)

………

 ……… ……… ……… ……… Câu 2: (1 điểm) Hãy nối câu bảng sau:

Câu Hỏi Đáp án

1 Hàm tính trung bình cộng a MAX

2 Hàm xác định giá trị lớn b NEW Để mở bảng tính ta chọn nút lệnh c SAVE Để lưu bảng tính vào ổ đĩa ta chọn nút lệnh d AVERAGE

1-……… ; 2-………; 3-……… ; 4-……… Câu 3: (1 điểm) Hãy ghép hai cột cho đúng

1 Portrait a Lề Landscape b Lề

3 Top c Hướng giấy đứng

4 Bottom d Hướng giấy ngang

1-……… ; 2-………; 3-……… ; 4-……… Câu 4: (1 điểm) Hàm công thức định nghĩa từ trước, hàm tính tổng có tên là ……… Hàm Average dùng để tính………., hàm xác định giá trị lớn ……… Hàm ………… dùng để xác định giá trị nhỏ

Câu 5: (3 điểm)

(13)

……… ……… ……… ………

b) Nêu cách chép công thức ô G2 sang ô G3, G4, G5

……… ……… ………

Câu 6: (3 điểm) Để lọc liệu ta làm ?

……… ……… ……… ………

……… ………

Câu 7: (3 điểm) Hãy nêu bước tạo biểu đồ ?

……… ……… ……… ……… ………

………

(14)

……… ………

HD CHẤM THI

CHỌN HỌC SINH GIỎI CẤP HUYỆN Năm học: 2015-2016

Môn thi: Tin 7

Thời gian làm bài: 120 phút Hướng dẫn gồm trang I TRẮC NGHIỆM (7 điểm) Mỗi ý 0,5 điểm

Câu 10 11 12 13 14

Đáp án

C B A A D A D A A B B D C C

II TỰ LUẬN (13 điểm).

Câu Nội dung ( ghi chi tiết lời giải) Điểm

1

 Chọn phông chữ (kiểu chữ)  Chọn cở chữ

 Chữ đậm

 Căn thẳng lề trái

0.25 0.25 0.25 0.25 1- c; 2- a; 3- b; 4- c; 0.25 0.25 0.25 0.25

1 - c - d - a - b

0.25 0.25 0.25 0.25 SUM;

Trung bình cộng; Max; Min 0.25 0.25 0.25 0.25

(15)

C7 =Min(C2:C5) C8 =Max(C2:C5) E9 =Sum(C2:F2)

0.5 0.5 0.5

5b

Chọn ô G2 nháy nút lẹnh Copy

Sau chon từ G3 đến G5 nháy phím Paste Chương trình tự điều chỉnh địa công thức ô chép công thức

0.5 0.5

6

+ Bước : Chọn dạng biểu đồ

Nháy nút Chart Wizard công cụ , hộp thoại , sau ta nháy chuột chọn dạng biểu đồ, nháy nút Next để sang bước

+ Bước : Xác định miền liệu

Nháy chuột chọn miền liệu mục Data range, chọn dãy liệu cần minh họa theo hàng hay cột, nháy nút Next để sang bước

+Bước : Ghi thơng tin giải thích biểu đồ

Ghi giải tiêu đề biểu đồ, giải trục ngang, giải trục đứng, nháy nút Next để sang bước

+ Bước : Chọn vị trí đặt biểu đồ

Chọn vị trí lưu biểu đồ Sheet mở hay Sheet Cuối nháy Finish để kết thúc

0.5 0.5 0.5 0.5 0.5

0.5

7

Bước Chuẩn bị:- Nháy chuột chọn vùng có liệu cần lọc

- Mở bảng chọn Data , trỏ vào lệnh Filter nhỏy chọn AutoFilter bảng chọn

Bước Lọc:- Nháy vào nút hàng tiêu đề cột cột cần lọc

Chọn giá trị cần lọc danh sách điều kiện nhu sau : (All)

(Top 10…) (Costom.) ……

0.5

(16)

Môn thi: Tin 8

ĐỀ

Yêu cầu chung: Chơng trình đợc viết ngơn ngữ lập trình FREE PASCAL TORBO PASCAL.

Bài (6 điểm): Giai thừa

N! (N giai thừa) định nghĩa: tích N số tự nhiên dương Viết chương trình cho phép nhập số tự nhiên N từ bàn phím (với 0<N12) thực hiện:

a) Tìm N! = 1.2.3 N b) Tìm S=

1! + 2!+

1 3! + +

1 N!

c) Xóa tất chữ số tận N! xuất kết hình Ví dụ:

Bài 2(7 điểm): Dãy số

Viết chương trình cho phép nhập dãy gồm N số nguyên a1, a2, an từ bàn phím thực hiện:

a) Tìm số có giá trị tuyệt đối lớn dãy số vừa nhập Trong trường hợp có nhiều số có giá trị tuyệt đối lớn ghi số tìm

(17)

c) Nhập k từ bàn phím cho biết vị thứ phần tử ak dãy Việc xếp vị thứ thực hiện: Số có giá trị lớn xếp vị thứ 1, hai số có giá trị xếp vị thứ Khi có hai nhiều số vị thứ k khơng có số xếp vị thứ k+1 (Ví dụ: Có số có vị thứ khơng có số có vị thứ 2)

Ví dụ:

Bài 3(7 điểm): Tam giác

Viết chương trình cho phép nhập số đo hai góc ABCvà BCAcủa tam giác ABC từ bàn phím thực hiện:

a) Cho biết tam giác ABC tam giác (Tam giác thường, tam giác vuông, tam giác cân, tam giác vuông cân, tam giác đều)? Câu trả lời không thừa (Ví dụ: Đã trả lời tam giác khơng trả lời tam giác cân; trả lời tam giác vng cân khơng trả lời tam giác vuông không trả lời tam giác cân)

b) Xác định cạnh lớn tam giác Trong trường hợp có nhiều cạnh lớn cần tất cạnh

c) Xét xem số đo ba góc tam giác ABC có ba số hạng liên tiếp cấp số cộng không Biết dãy số gọi cấp số cộng phần tử đứng sau phần tử đứng trước cộng với số khơng đổi

(18)

PHỊNG GD&ĐT HUYỆN LỤC NAM Trường THCS Bảo Đài

HD CHẤM THI

Môn thi: Tin

Hướng dẫn gồm trang

1a Program bai1; Var i,n:integer; p:longint; x,s: real; Begin

repeat

Write('Nhap so N: ');Readln(n); until (n>0) and (n<=12);

p:=1;

for i:=1 to n p:=p*i; Writeln('a) ',n,'!= ',p);

0,5

0,5 0,5 1b x:=1; s:=0;

For i:=1 to n Begin

x:=x/i; s:=s+x; End;

Writeln('b) S = ',s:12:10);

0,5 0,5 0,5

0,5 1c while p mod 10 = p:=p div 10;

Writeln('c) Sau xoa chu so khong: ',p); Readln;

End

(19)

Var n,i, am, duong, max, vt_max, k, vthu:integer; M: array[1 20] of integer;

Begin

Write('Nhap N: ');Readln(n); For i:=1 to n

begin Write('M[',i,']='); Readln(M[i]); End; 0,5 0,5

2a Max:=abs(M[1]); vt_max:=1; For i:=2 to n

if abs(M[i])> Max then Begin

Max:=abs(M[i]); vt_max:=i; End;

Writeln('a)So co gia tri tuyet doi lon nhat day la: ',M[vt_max]);

0,5 0,5 0,5 0,5 2b am:=0; duong:=0;

For i:=1 to n Begin

if M[i]>0 then duong:=duong+1; if M[i]<0 then am:=am+1;

End;

Write('b) So sanh: ');

if am < duong then writeln('so so duong > so so am'); if am > duong then writeln('so so duong < so so am'); if am = duong then writeln('so so duong = so so am');

0,5 0,5 0,5 0,5

2c repeat

write('Nhap k: ');Readln(k); until (k>0) and (k<=n); vthu:=1;

for i:=1 to n

if M[k]<M[i] then vthu:=vthu+1; Write('c) So thu k co vi thu la: ',vthu); readln; End 0,5 0,5 0,5 0,5 3a Program bai3;

Var A,B,C:real; ok:boolean;

(20)

Begin repeat

Write('Nhap so goc ABC: ');Readln(B); Write('Nhap so goc BCA: ');Readln(C); until B+C<180;

A:=180-(B+C);

if (A=B) and (B=C) then writeln('a) ABC la tam giac deu'); if ((A=90) or (B=90) or (C=90)) then

if ((A=45) or (B=45) or (C=45)) then writeln('a) ABC la tam giac vuong can')

else writeln('a) ABC la tam giac vuong');

if ((A=B) or (A=C) or (B=C)) and (A<>90) and (B<>90) and (C<>90) and (A<>60) then writeln('a) ABC la tam giac can');

if (A<>B) and (B<>C) and (C<>A) and (A<>90) and (B<>90) and (C<>90) then writeln('a) ABC la tam giac thuong');

0,5

0,5 0,5

0,5 0,5 0,5 3b if (A>=B) and (A>=C) then writeln('b) Canh lon nhat la BC');

if (B>=A) and (B>=C) then writeln('b) Canh lon nhat la AC'); if (C>=A) and (C>=B) then writeln('b) Canh lon nhat la AB');

0,5 0,5 0,5 3c ok:=false;

if A-B=B-C then ok:=true; if A-C=C-B then ok:=true; if B-A=A-C then ok:=true; if B-C=C-A then ok:=true; if C-A=A-B then ok:=true; if C-B=B-A then ok:=true;

if ok then Writeln('c)Cap so cong') else Writeln('c)Khong cap so cong');

readln; End

0,5

(21)

Môn thi: Tin

Thời gian làm bài: 120 phỳt Yêu cầu chung: Chơng trình đợc viết ngơn ngữ lập trình FREE PASCAL TORBO PASCAL.

Bài (8,0 điểm): Số nguyên tố.

Viết chương trình cho phép nhập số nguyên dương N thực

a) Với số nguyên dương N ký hiệu S(N) tổng tất số ngun tố khơng vượt q N Hãy tính S(N) với N nhập

b) Hai số nguyên tố gọi cặp số nguyên tố họ hàng chúng đơn vị Hãy in cặp số nguyên tố họ hàng có số ngun tố khơng vượt q N

Ví dụ: (3, 7), (7, 11), (13, 17), (19, 23), (37, 41) cặp số nguyên tố họ hàng c) Số nguyên tố đối xứng số nguyên tố trung bình cộng số nguyên tố liền trước liền sau In số nguyên tố đối xứng khơng vượt q N

Ví dụ: số nguyên tố đối xứng = (3 + 7):2

d) Số nguyên tố P gọi số nguyên tố đảo ngược viết chữ số P theo chiều ngược lại số số nguyên tố In số nguyên tố đảo ngược không lớn N

Ví dụ: 13 số nguyên tố đảo ngược 13 31 số nguyên tố Ví d :ụ

Nhập Xuất Giải thích

N= a) S(N) = 17 b) NTHH: (3, 7) c) NTĐX:

d) NTĐN: 2; 3; 5;

S(7) = 2+3+5+7 = 17

(3, 7) cặp số nguyên tố họ hàng = (3 + 7):

Các số có chữ số số đối xứng nó

(22)

b) NTHH: (3, 7); (7, 11); (13, 17); (79, 83)

c) NTĐX: 5; 53

d) NTĐN: 2; 3; 5; 7; 11; 13; 79; 97

(3, 7); (7, 11); (13, 17); (79, 83) cặp số nguyên tố họ hàng

5 = (3 + 7): 2; 53 = (47 + 59): 11 đảo ngược 11

79 đảo ngược 97 số nguyên tố Bài (6,0 điểm): Chữ số.

Viết chương trình cho phép nhập số nguyên dương N (N<106)

a) Cho biết xếp lại chữ số số N để số chia hết cho khơng? (In hình CO KHONG)

b) Thực xóa số chữ số bên phải số N để số chia hết cho In số In KHONG khơng thể xóa để số chia hết cho

c) Thực xếp lại chữ số số N để số có giá trị lớn Ví d :ụ

N=2014 a) CO b) KHONG c) 4210

Có thể lại 4210; 1240 chia hết cho

Lần lượt xóa, số 2014; 201; 20; khơng chia hết cho

4210 số lớn tất số xếp N= 19441 a) KHONG

b) 1944 c) 94411

Không thể để số chia hết cho

Số 1944 (xóa chữ số bên phải) chia hết cho 9441 số lớn tất số xếp Bài 3: (6,0 điểm) Tam giác

Viết chương trình cho phép nhập số nguyên N chu vi tam giác có cạnh số nguyên

a) In số đo ba cạnh tam giác Thông báo KHONG khơng có tam giác có cạnh số ngun có chu vi N

b) Trong tam giác (Câu a) có tam giác vng khơng?

c) Trong tam giác (Câu a) cho biết diện tích tam giác có diện tích lớn nhất?

Ví d :ụ

N= a) (1; 1; 1) b) KHONG c) 0.43

Có tam giác

Tam giác (1; 1; 1) không vuông

0.43 diện tích lớn tam giác

N= a) KHONG

b) KHONG c) 0.0

Khơng có tam giác có cạnh nguyên có chu vi

Khơng có tam giác nên khơng có tam giác vuông

(23)

N=7 a) (1; 3; 3); (2; 2; 3) b) KHONG

c) 1.98

Có tam giác

Khơng có tam giác vng tam giác

1.98 diện tích lớn N=12 a) (2; 5; 5); (3; 4; 5); (4; 4; 4)

b) CO c) 6.93

Có tam giác

Có tam giác vng (3; 4; 5) 6.93 diện tích lớn

- HẾT -PHÒNG GD&ĐT HUYỆN LỤC NAM

Trường THCS Bảo Đài GV đề: Lương Văn Khang

HD CHẤM THI

Môn thi: Tin

Hướng dẫn gồm trang

1

Program Nguyen_to; Var N,a,b,i:integer; P:longint;

ok:boolean;

0.5 Function NT(N:integer):Boolean;

Var i:integer; Begin

NT:=n>1;

For i:=2 to n-1

if n mod i = then NT:=false; End;

0.5

0.5 Function DAO(N:integer):integer;

Var tam:integer; Begin

Tam:=0; While N>0 Begin

Tam:=Tam*10+(N mod 10); N:=N div 10;

End;

DAO:=Tam; End;

0.5

(24)

1a

Begin

Write('Nhap so N: ');readln(N); P:=0;

For i:=2 to N if NT(i) then P:=P+i; Writeln('a) S(N)= ',P);

0.5

1b

Write('b) So nguyen to ho hang: '); ok:=false;

For i:=2 to N-4

if NT(i) and NT(i+4) then Begin Write('(',i,';',i+4,');'); ok:=true; end;

if not ok then writeln('KHONG CO') else Writeln;

0.5

0.5 0.5

1c

ok:=false;

Write('c) So nguyen to doi xung: '); For i:=5 to N

Begin a:=i-1;

While not NT(a) and (a>0) a:=a-1; b:=i+1;

While not NT(b) b:=b+1;

if NT(i) and NT((a+b) div 2) then Begin Write(i,';'); ok:=true end;

end;

if not ok then Writeln('KHONG CO') else Writeln;

0.5

1d

ok:=false;

Write('d) So nguyen to dao nguoc: ');

For i:=2 to N if NT(i) and NT(DAO(i)) then Begin Write(i,'; '); ok:=true end;

if not ok then writeln('KHONG CO') else writeln; Readln; End 0.5 0.5 Program chu_so;

Var N, NN, S,i,j,k, tam: integer; OK:boolean;

M: array[1 10] of byte; Begin

Repeat Write('Nhap so N:');Readln(N); until n>=0;

0.5

(25)

2a

NN:=N; OK:=false; While NN>0 Begin

if NN mod =0 then ok:=true; NN:=NN div 10

End;

Write('a) Chia het cho 5:');

If OK then Writeln('CO') else Writeln('KHONG');

0.5

2b

OK:=false; NN:=N;

While NN>0 Begin

if NN mod = then Begin OK:=true; Write(NN,'; '); NN:=NN div 10;

End;

Write('b) Chia het cho 9:');

If OK then Writeln else Writeln('KHONG');

0.5

2c

NN:=N;k:=0; While NN>0 Begin

k:=k+1;

M[k]:=NN mod 10; NN:=NN div 10; End;

For i:=1 to k For j:=i+1 to k if M[i]<M[j] then Begin

Tam:=M[i]; M[i]:=M[j]; M[j]:=Tam; End;

Write('c) So lon nhat xep duoc la:'); For i:=1 to k Write(M[i]);

Readln; End

0.5

(26)

3

Program Tam_giac; Var N,a,b,c:integer; p,S,H,SM:real; OK:boolean; Begin

Write('Nhap so N:');Readln(N);

0.5

3a

Write('a) Cac tam giac co the la:'); For a:=1 to n-2

For b:=a to n - a For c:=b to n - a-b

if (c<(a+b)) and (a+b+c=N) then write('(',a,';',b,';',c,'); '); Writeln;

0.5 0.5

0.5

3b

Write('b) Tam giac vuong chu vi N:'); OK:=false;

For a:=1 to n-2 For b:=a to n - a For c:=b to n - a-b

if (c<(a+b)) and (a+b+c=N) and(a*a + b*b = c*c) then OK:=true;

if OK then Writeln('CO') else Writeln('KHONG');

0.5

3c

SM:=0;

For a:=1 to n-2 For b:=a to n - a For c:=b to n - a-b

if (c<(a+b)) and (a+b+c=N) then Begin

p:=(a+b+c)/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c)); if S>SM then SM:=S;

End;

Writeln('c) Dien tich lon nhat la: ',SM:2:2); Readln;

End

0.5

(27)

Định dạng
Số trang	27
Dung lượng	180,44 KB