Tải bản đầy đủ (.docx) (2 trang)

ĐỀ THI HỌC SINH GIỎI MÔN TIN HỌC KHỐI 9

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 (39.69 KB, 2 trang )

PHÒNG GIÁO DỤC&ĐÀO TẠO CHỢ MỚI
TRƯỜNG THCS NGUYỄN VĂN CƯNG

ĐỀ THI HỌC SINH GIỎI CẤP TRƯỜNG
NĂM HỌC: 2018 – 2019
MÔN: TIN HỌC
Thời gian làm bài: 60 phút

Bài 1: (2 điểm)
Viết chương trình nhập vào 2 số nguyên dương a và b là chiều dài và chiều rộng
của hình chữ nhật. Tính và in kết quả của diện tích hình chữ nhật đó
Ví dụ: Nhập a=5; b= 8 → Diện tích hình chữ nhật là 40
Bài 2: (3 điểm)
Viết chương trình nhập vào 3 số nguyên dương a,b,c. Xét xem 3 số vừa nhập có
phải là độ dài của tam giác hay không?
Ví dụ: Nhập a=3, b=4, c=9 → a,b,c không phải là 3 cạnh của tam giác
Nhập a= 4, b=3, c=5 → a,b,c là 3 cạnh của tam giác
Bài 3: (5 điểm)
Viết chương trình nhập vào 1 dãy số nguyên dương. In ra màn hình kết quả tổng
của các số vừa nhập
Ví dụ:

Nhập số thứ 1: 6
Nhập số thứ 2: 2
Nhập số thứ 3: 7
Nhập số thứ 4: 8
Nhập số thứ 5: 1

→ Tổng các số vừa nhập là: 24
DUYỆT CỦA BAN GIÁM HIỆU


GIÁO VIÊN BỘ MÔN

NGUYỄN THỊ TRÀ MY

PHÒNG GIÁO DỤC&ĐÀO TẠO CHỢ MỚI

ĐÁP ÁN ĐỀ THI HỌC SINH GIỎI CẤP TRƯỜNG


TRƯỜNG THCS NGUYỄN VĂN CƯNG

NĂM HỌC: 2018 – 2019
MÔN: TIN HỌC

Câu 1: (2 điểm)
Chương trình
Var a,b,S: integer;
Begin
Write (‘Nhap chieu dai a=’); Readln (a);
Write (‘Nhap chieu rong b=’); Readln (b);
S:= a*b;
Writeln (‘Dien tich hinh chu nhat la’, S);
End.

Điểm
0.5 điểm
0.5 điểm
0.5 điểm
0.5 điểm


Câu 2: (3 điểm)
Chương trình
Var a,b,c: integer;
Begin
Write (‘Nhap a=’); Readln (a);
Write (‘Nhap b=’); Readln (b);
Write (‘ Nhap c =’); Readln (c);
If ((a+b)>c and (a+c)>b and (b+c)>a) then
Writeln (‘a,b,c la 3 canh cua tam giac)
Else Writeln (‘a,b,c khong phai la 3 canh cua tam giac);
End.

Điểm
0.5 điểm
1.0 điểm
1.0 điểm
0.5 điểm

Câu 3: (5 điểm)
Chương trình
Var i,N,S: integer;
A: array [1..50] of integer;
Begin
Write (‘Nhap so phan tu cua mang’); Readln (N);
For i:=1 to N do
Begin
Write (‘ Nhap so thu’,i); Readln (A[i]);
End;
S:= 0;
For i:= 1 to N do S:= S+A[i];

Writeln (‘Tong cac so co trong day la’,S);
End.

Điểm
1.0 điểm
0.5 điểm
2.0 điểm

0.5 điểm
0.5 điểm
0.5 điểm



×