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