1. Trang chủ
  2. » Giáo Dục - Đào Tạo

Đề thi học sinh giỏi môn Tin học lớp 9 cấp trường năm 2020-2021 có đáp án - Trường THCS TT Hương Sơn

9 12 1

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 9
Dung lượng 294,76 KB

Nội dung

Nhằm giúp các bạn học sinh đang chuẩn bị bước vào kì thi có thêm tài liệu ôn tập, TaiLieu.VN giới thiệu đến các bạn Đề thi học sinh giỏi môn Tin học lớp 9 cấp trường năm 2020-2021 có đáp án - Trường THCS TT Hương Sơn để ôn tập nắm vững kiến thức. Chúc các bạn đạt kết quả cao trong kì thi!

TRƯỜNG THCS TT HƯƠNG SƠN KỲ THI HỌC SINH CHỌN HSG MƠN : TIN HỌC KHỐI LỚP VỊNG Năm học 2020 - 2021 Thời gian làm 150 phút (Không kể thời gian phát đề) ĐỀ BÀI Bài 1: (5 điểm) Nhập vào mảng chiều gồm dãy số nguyên N phần tử Hãy xóa phần tử trùng mảng in kết hình Câu 2: (5 điểm) Xâu kí tự định nghĩa xâu bao gồm chữ tiếng anh Một xâu viết thu gọn, bao gồm số thứ tự kèm theo tần số xuất liên tiếp nhóm đó! VD: AACCBBB< >A2B2C3 XCAABAABAABCCADADCADCAABAABCCADADY< >X(C(A2B)3C2(AD)2)2Y (AB)2(QXA)3< >ABABQXAQXAQXA Hãy viết chương trình thu gọn giải mã (hay nén giải nén) xâu Câu 3: (5 điểm) Viết chương trình trừ số tự nhiên lớn khơng q 255 kí tự in kết hình VD : 456789 – 345678 = 111111 542879654 – 123 = 542879532 Câu 4: (5 điểm) Viết chương trình thao tác mảng chiều với công việc sau: + Nhập xuất mảng chiều + Đếm số lần xuất giá trị mảng + Tìm giá trị lớn mảng chiều nhập vào Chú ý - Học sinh làm xong phải lưu vào ổ đĩa D:\SBD với tên: BAI1.PAS, BAI2.PAS, BAI3.PAS, BAI4 PAS - Tất liệu nhập từ bàn phím xuất kết hình - Giám thị coi thi khơng giải thích thêm Hết - - TRƯỜNG THCS TT HƯƠNG SƠN KỲ THI HỌC SINH CHỌN HSG MÔN : TIN HỌC KHỐI LỚP VÒNG Năm học 2020 - 2021 Thời gian làm 150 phút (Không kể thời gian phát đề) BIỂU ĐIỂM - Khai báo biến : 0,5 điểm Nhập liệu: điểm Xử lý thuật toán: điểm Xuất liệu 0,5 điểm Chương trình chạy đúng: điểm ĐÁP ÁN - Các chương trình tham khảo Chú ý: - Học sinh làm theo cách khác mà điểm tối đa - Chương trình chạy tính điểm Bài Program Bai1; Const Max=100; Var a:Array[1 Max] Of Integer; i,j,k,n:Integer; Begin Write('-Nhap so phan tu mang: '); Readln(n); For i:=1 To N Do Begin Write('-Phan tu A[',i,']= '); Readln(a[i]); End; i:=2; While i

Ngày đăng: 27/05/2021, 04:33

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN