Chuyển đến nội dung chính

ĐỀ THI CHỌN HỌC SINH GIỎI LỚP 9 CẤP HUYỆN NĂM HỌC 2015-2016 Huyện Tây Hòa

ĐỀ THI CHỌN HỌC SINH GIỎI LỚP 9 CẤP HUYỆN  NĂM HỌC 2015-2016
Huyện Tây Hòa

Bài 1: (6đ )Số nguyên tố
Viết chương trình cho phép nhập số tự nhiên N từ bàn phím.
yêu cầu:
a.       Cho biết số tự nhiên N có phải là số nguyên tố không?
b.      Cho biết số nguyên tố bé nhất lớn hơn N
c.       số song tố là số nguyên tố mà tổng các chữ số của nó cũng là một số nguyên tố. Hãy in ra các số song tố không lớn hơn N. Thông báo không có khi không tìm thấy.
ví dụ:
dữ liệu vào
dữ liệu ra
N=25
a.       So N khong la so nguyen to
b.      so nguyen to be nhat lon hon n la:29
c.       cac so song to khong lon hon n la: 2;3;5;7;11;23
N=31
a.       So N  la so nguyen to
b.      so nguyen to be nhat lon hon n la:37
c.       cac so song to khong lon hon n la: 2;3;5;7;11;23;29
N=1
a.       So N  khong la so nguyen to
b.      So nguyen to be nhat lon hon n la:2
c.       cac so song to khong lon hon n la: KHONG CO

Bài 2:(8đ) Tam giác
Viết chương trình cho phép nhập số nguyên N từ bàn phím là chu vi của một tam giác có các cạnh đều là các số nguyên.
Yêu cầu:
a.       In ra số đo 3 cạnh của tam giác. Thông báo KHONG nếu không có tam giác có  cạnh là số nguyên và có chu vi là N.
b.      Trong các tam giác trên (câu a) có tam giác vuông không?
c.       Trong các tam giác trên (câu a) hãy cho biết diện tích của tam giác có diện tích lớn nhất?

dữ liệu vào
dữ liệu ra
Giải thích
N=3
a)      (1,1,1)
b)      KHONG
c)      0,43
có 1 tam giác
Tam giác (1,1,1) không vuông
0,43 là diện tích lớn nhất của tam giác
N=4
a)      KHONG
b)      KHONG
c)      0,0
khong có tam giác có cạnh nguyên nào có chu vi bằng 4.
không có tam giác nên không có tam giác vuông
không có tam giác nên xuất 0,0
N=7
a)      (1,3,3);(2,2,3)
b)      KHONG
c)      1.98
Có 2 tam giác
không có tam giác vuông trong 2 tam giác trên
1.98 là diện tích lớn nhất
N=12
a)      (2,5,5); (3,4,5); (4,4,4)
b)      CO
c)      6.93
Có 3 tam giác
có 1 tam giác vuông là (3,4,5)
6.93 là diện tích lớn nhất
Bài 3: (6đ) Ước số
Viết chương trình cho phép nhập số nguyên dương N từ bàn phím
yêu cầu:
a)      IN ra tất cả các số ước của số nguyên dương N.
b)      In ra số ước số nguyên dương của số N
c)      In ra số M nhỏ nhất thỏa 0<M<=N có nhiều số ước nguyên dương nhất.
dữ liệu vào
dữ liệu ra
Nhâp so N: 10

cac uoc cua N la: 1;2;5;10
So uoc cua N la:4
so M la:6
Nhap so N:30
cac uoc cua N la: 1;2;3;5;6;10;15;30
So uoc cua N la:8
so M la:24
Nhap so N:0
Nhap so n: (yêu cầu nhập lại số N)


Nhận xét

Bài đăng phổ biến từ blog này

DÃY ĐAN DẤU TRONG PASCAL

DÃY ĐAN DẤU TRONG PASCAL Dãy đan dấu là dãy không có 2 phần tử cạnh nhau có dấu giống nhau. ví dụ: -2 4 -9 5 -23 8 là dãy đan dấu Thủ tục kiểm tra dãy đan dấu trong dãy số: procedure dandau; var i,j:integer;     kt:boolean; begin kt:=true; for i:=1 to N-1 do                 begin                 j:=i+1;                 if a[i] *a[j] >0 then kt:=false;                 end; If kt=true then write('Day A la day dan dau') else write('Day A khong phai day dan dau'); end;

Tam giác số (Pascal)

TAM GIÁC SỐ  (Câu 4. Hội thi Tin Học Trẻ Phú Yên lần thứ XIX - năm 2016)                              7                          3       8                      8      1       0                   2     7        4       4                 4    5      2       6       5 Cho một tam giác gồm các số nguyên không âm (xem hình trên). Hãy viết chương trình tính tổng lớn nhất của các số nằm trên lộ trình từ đỉnh xuống: - Tại mỗi bước đi, lộ trình có thể đi xuống phía bên trái hoặc xuống phía bên phải. - Số hàng trong tam giác lớn hơn...

VÒNG LẶP KHÔNG XÁC ĐỊNH WHILE..DO; REPEAT .. UNTIL

VÒNG LẶP KHÔNG XÁC ĐỊNH  WHILE..DO; REPEAT .. UNTIL - Vòng lặp While..do While <điều kiện > Do  <câu lệnh>; Câu lệnh sau do được thực hiện khi điều kiện được thỏa mãn (điều kiện =true); vòng lặp kết thúc khi điều kiện không thỏa (điều kiện =false) - Vòng lặp Repeat .. until; Repeat <câu lệnh>; Until <điều kiện>; Lặp lại câu lệnh cho đến khi nào  thỏa mãn điều kiện  (điều kiện =true) thì dừng lại;  Bài tập: Nhập vào một số nguyên A thỏa mãn (0<A<100), Tính tổng các số nguyên từ 1 đến A (S=1+2+...+A). Vận dụng câu lệnh While .. do uses crt; var A,I:  Integer; S:longint; begin          a:=0;          while not ((a>0) and (a<100)) do          begin          write('Nhap gia tri cua A:'); read(A);           end;          s:=0...