Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (593.81 KB, 6 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b> TRƯỜNG TH & THCS LÃO HỘ </b>
<b> </b>
<b> THI CH N H C SINH GI I - THCS C P </b>
<b>TRƯỜNG </b>
<b> NĂM H C 2018- 2019 </b>
<b> M n Tin h </b>
<i>(Thời gian làm bài 120 phút không kể thời gian giao đề ) </i>
<b>Yêu cầu chung:</b> Học sinh viết chương trình bằng ngơn ngữ Pascal. Tên các File chương
trình được đặt là BAI1.PAS, BAI2.PAS, BAI3.PAS, BAI4.PAS, BAI5.PAS lưu trong thư mục
có tên là số báo danh của thí sinh trên ổ cứng. Ví dụ: Do_Anh_Hao_01
<b>Câu 1 (20 điểm) Chia hết</b>
Cho hai số nguyên dương m, n và số nguyên dương k.
Đếm xem có bao nhiêu số tự nhiên trong đọan [m..n] chia hết cho k
<b>Câu 2 (20 điểm) </b>
<b>Viết hương trình giải quyết các yêu cầu sau: </b>
Một ngân hàng có mức huy động vốn với lãi suất hàng năm là 10%. Một người có số tiền
là 10,000,000 đồng (Mười triệu đồng) và gửi tiết kiệm ở ngân hàng trên. Cứ sau mỗi năm tiền lãi
được cộng gộp vào vốn để trở thành vốn mới để tính lãi cho năm sau. Hỏi để bao lâu ( bao nhiêu
năm) người đó được 100,000,000 đồng (một trăm triệu đồng)?
<b>Lưu ý </b> Số tiền 100,000,000 đồng là số tiền ít nhất có được sau khi gộp lãi vào vốn, khơng
<b>Câu 3 (20 điểm) </b>
<b>Viết hương trình giải quyết yêu cầu sau: </b>
Trong một của hàng có các loại sơn 16kg, 17kg và 21kg. Một người khách cần mua
185kg. Hãy viết chương trình để tính và cho biết cần bán cho người khách nọ bao nhiêu thùng
mỗi loại để không phải bán lẻ thùng nào.
<b>Câu 4 (20 điểm) </b>
<b>Viết hương trình theo á yêu ầu sau: </b>
- Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím (10<=N<=20).
- Chương trình thơng báo kết quả ra màn hình gồm : Chuỗi ban đầu, chuỗi số được
sắp xếp theo chiều tăng dần của các số chẵn và chuỗi số được sắp xếp theo chiều giảm dần
của các số lẻ.
<b>Ví dụ :</b>
- Moi ban nhap vao so N ( Với 10<=N<=20): 10
- Moi ban nhap lan luot day so gom 10 so la cac so nguyen dương:
+ So thu 1: 3
+ So thu 2: 84
+ So thu 3: 75
+ So thu 4: 6
- Chuoi ban dau la: 3, 84, 75, 6, 69, 72, 33, 14, 17, 42
- Chuoi sau khi sap xep tang dan cua cac so chan la: 6, 14, 42, 72, 84
- Chuoi sau khi sap xep giam dan cua cac so le la: 75, 69, 33, 17, 3
<b>––––––––––––––––––– Hết ––––––––––––––––––––</b>
<b> ÁP ÁN VÀ THANG IỂM </b>
<b>Bài 1:(20 điểm)</b>
var m,n,k,d,i:integer;
begin
repeat
write('nhap doan m, n: '); readln(m,n);
write('nhap so nguyen k: '); readln(k);
if (m<0) or (n<0) or (k<0) then writeln('nhap lai!');
until (m>0) and (n>0) and (k>0);
for i:=m to n do
if i mod k=0 then d:=d+1;
writeln('co tat ca ',d,' trong doan', m,'den ',n,' chia het cho ',k);
readln
end.
<b>Bài 2:(20 điểm)</b>
var thang : Byte ;
a , lai , b : Real ;
BEGIN
a:=10; b:=100;
thang :=1 ;
repeat
readln ;
END .
<b>Bài 3:(20 điểm)</b>
Var t16,t17,t21:integer;
Begin
For t16 :=0 to 185 div 16 do
For t17 :=0 to 185 div 17 do
For t21 :=0 to 185 div 21 do
If t16*16+t17*17+t21*21=185 then
Writeln('ban so thung 16 kg la: ',t16,'so thung 17 kg la: ',t17,' so thung 21 kg la:
',t21);
Readln
End.
<b>Bài 4:(20 điểm)</b>
Var i,n,j,d : integer;
Begin
repeat
Write ('Nhap n:');Readln(n);
if (n<2) or (n>100) then writeln(' nhap lai');
until (n>=2) and (n<=100);
Write ('Cac so nguyen to nho hon ',n,' la:');
For i:=2 to n-1 do
Begin
j:=2;
While i mod j <>0 do j:=j+1;
If i=j then begin d:=d+1; write (i:3); end;
end;
writeln(' co tat ca ',d,' so nguyen ton nho hon ',n);
<b>Bài 5:(20 điểm) </b>
Var a:array [1..100] Of integer;
n,i,tg,j,x:integer;
Begin
repeat
Write('Nhap so phan tu cho day N='); Readln(n);
if (n<10) or (n>20) then writeln(' nhap lai');
until (n>=10) and (n<=20);
For i:=1 To n Do
Begin Write('nhap phan tu thu ',i,': ' ); Readln(a[i]); End;
writeln(' chuoi ban dau la:');
for i:=1 to n do write(a[i],' ');
writeln;
For i:=1 to (n-1) do
For j:=i+1 to n do
If a[i] > a[j] then
Begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; End;
WriteLn('Chuoi sau khi sap xep tang dan cac so chan la: :');
For i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
writeln;
For i:=1 to (n-1) do
For j:=i+1 to n do
If a[i] < a[j] then
Website <b>HOC247</b> cung cấp một môi trường <b>h c trực tuyến</b> sinh động, nhiều <b>tiện ích thơng minh</b>, nội
dung bài giảng được biên soạn công phu và giảng dạy bởi những <b>giáo viên nhiều năm kinh nghiệm, </b>
<b>giỏi về kiến thức chuyên môn lẫn kỹ năng sư phạm</b> đến từ các trường Đại học và các trường chuyên
danh tiếng.
<b>I.</b> <b>Luyện Thi Online</b>
- <b>Luyên thi H, THPT QG </b> Đội ngũ <b>GV Giỏi, Kinh nghiệm</b> từ các Trường ĐH và THPT danh tiếng
xây dựng các khóa <b>luyện thi THPTQG </b>các mơn: Tốn, Ngữ Văn, Tiếng Anh, Vật Lý, Hóa Học và
Sinh Học.
- <b>Luyện thi vào lớp 10 chun Tốn: </b>Ơn thi <b>HSG lớp 9</b> và <b>luyện thi vào lớp 10 chuyên Toán</b> các
trường <i>PTNK, Chuyên HCM (LHP-TĐN-NTH-GĐ), Chuyên Phan Bội Châu Nghệ An</i> và các trường
Chuyên khác cùng <i>TS.Trần Nam Dũng, TS. Pham Sỹ Nam, TS. Trịnh Thanh Đèo và Thầy Nguyễn </i>
<i>Đức Tấn.</i>
<b>II.</b> <b>Khoá H c Nâng Cao và HSG </b>
- <b>Tốn Nâng Cao THCS:</b> Cung cấp chương trình Tốn Nâng Cao, Toán Chuyên dành cho các em HS
THCS lớp 6, 7, 8, 9 u thích mơn Tốn phát triển tư duy, nâng cao thành tích học tập ở trường và đạt
điểm tốt ở các kỳ thi HSG.
- <b>Bồi dưỡng HSG Tốn:</b> Bồi dưỡng 5 phân mơn <b> ại Số, Số H c, Giải Tích, Hình H c </b>và <b>Tổ Hợp</b>
dành cho học sinh các khối lớp 10, 11, 12. Đội ngũ Giảng Viên giàu kinh nghiệm: <i>TS. Lê Bá Khánh </i>
<i>Trình, TS. Trần Nam Dũng, TS. Pham Sỹ Nam, TS. Lưu Bá Thắng, Thầy Lê Phúc Lữ, Thầy Võ Quốc </i>
<i>Bá Cẩn</i> cùng đôi HLV đạt thành tích cao HSG Quốc Gia.
<b>III.</b> <b>Kênh h c tập miễn phí</b>
- <b>HOC247 NET:</b> Website hoc miễn phí các bài học theo <b> hương trình SGK</b> từ lớp 1 đến lớp 12 tất cả
các môn học với nội dung bài giảng chi tiết, sửa bài tập SGK, luyện tập trắc nghiệm mễn phí, kho tư
liệu tham khảo phong phú và cộng đồng hỏi đáp sôi động nhất.
- <b>HOC247 TV:</b> Kênh <b>Youtube</b> cung cấp các Video bài giảng, chuyên đề, ôn tập, sửa bài tập, sửa đề thi
miễn phí từ lớp 1 đến lớp 12 tất cả các mơn Tốn- Lý - Hoá, Sinh- Sử - Địa, Ngữ Văn, Tin Học và
Tiếng Anh.
<i><b> Học mọi lúc, mọi nơi, mọi thiết bi – Tiết kiệm 90% </b></i>
<i><b>Học Toán Online cùng Chuyên Gia </b></i>