zunia.vn

Tuyển sinh 2024 dành cho Gen-Z

zunia.vn

» Tài Liệu Phổ Thông

» Đề thi - Kiểm tra

Đề thi học sinh giỏi môn Tin học lớp 9 cấp trường năm 2018-2019 có đáp án - Trường TH&THCS Lão Hộ

Chia sẻ: Adelaide2510 Adelaide2510 | Ngày: | Loại File: PDF | Số trang:3

Báo xấu

84
lượt xem 6
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Mời các bạn cùng tham khảo Đề thi học sinh giỏi môn Tin học lớp 9 cấp trường năm 2018-2019 có đáp án - Trường TH&THCS Lão Hộ để phục vụ tốt cho công tác giảng dạy, bồi dưỡng học sinh giỏi và học tập môn Tin học lớp 9. Đây còn là tài liệu tham khảo hữu ích cho các bạn học sinh chủ động củng cố, nâng cao kiến thức tại nhà.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Đề thi học sinh giỏi môn Tin học lớp 9 cấp trường năm 2018-2019 có đáp án - Trường TH&THCS Lão Hộ

ĐỀ THI CHỌN HỌC SINH GIỎI - THCS CẤP TRƯỜNG TRƯỜNG TH & THCS LÃO HỘ NĂM HỌC 2018- 2019 Môn: Tin học ĐỀ CHÍNH THỨC (Thời gian làm bài 120 phút không kể thời gian giao đề ) ( Đề thi có 01 trang ) Yêu cầu chung: 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 Câu 1: (20 điểm) Chia hết 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 Câu 2: (20 điểm) Viết chương trình giải quyết các 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 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)? Lưu ý: 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 nhất thiết là phải số tiền chính xác cần tìm. Câu 3: (20 điểm) Viết chương trình giải quyết yêu cầu sau: 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. Câu 4: (20 điểm) Viết chương trình giải quyết yêu cầu sau: Viết chương trình nhập vào một số nguyên dương N, Với 2
ĐÁP ÁN VÀ THANG ĐIỂM (Có thể làm bằng ccách khác) 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 (m0); 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ài 2: (20 điểm) var thang : Byte ; a , lai , b : Real ; BEGIN a:=10; b:=100; thang :=1 ; repeat lai := a * 10 / 100 ; a := a + lai ; thang := thang + 1 ; until a >= b ; writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ', thang mod 12 ,' thang .') ; writeln (' Khi do so tien ban rut ra duoc la ', a ,',000,000 dong .') ; readln ; END . Bài 3: (20 điểm) 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ài 4: (20 điểm) Var i,n,j,d : integer; Begin repeat Write ('Nhap n:');Readln(n); if (n100) then writeln(' nhap lai'); until (n>=2) and (n
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); readln; End. 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 (n20) then writeln(' nhap lai'); until (n>=10) and (n 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 Begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; End; WriteLn('Chuoi sau khi sap xep giam dan cac so le la: :'); For i:=1 to n do if a[i] mod 20 then write(a[i],' '); ReadLn; End.

CÓ THỂ BẠN MUỐN DOWNLOAD

THÔNG TIN

TRỢ GIÚP

HỖ TRỢ KHÁCH HÀNG

Theo dõi chúng tôi

Chịu trách nhiệm nội dung:

Nguyễn Công Hà - Giám đốc Công ty TNHH TÀI LIỆU TRỰC TUYẾN VI NA

LIÊN HỆ

Địa chỉ: P402, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM

Hotline: 093 303 0098

Email: support@tailieu.vn

Giấy phép Mạng Xã Hội số: 670/GP-BTTTT cấp ngày 30/11/2015 Copyright © 2022-2032 TaiLieu.VN. All rights reserved.