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 số nguyên dương a b chiều dài chiều rộng hình chữ nhật Tính in kết diện tích hình chữ nhật Ví dụ: Nhập a=5; b= → Diện tích hình chữ nhật 40 Bài 2: (3 điểm) Viết chương trình nhập vào số nguyên dương a,b,c Xét xem số vừa nhập có phải độ dài tam giác hay khơng? Ví dụ: Nhập a=3, b=4, c=9 → a,b,c cạnh tam giác Nhập a= 4, b=3, c=5 → a,b,c cạnh tam giác Bài 3: (5 điểm) Viết chương trình nhập vào dãy số nguyên dương In hình kết tổng số vừa nhập Ví dụ: Nhập số thứ 1: Nhập số thứ 2: Nhập số thứ 3: Nhập số thứ 4: Nhập số thứ 5: → Tổng 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 canh cua tam giac) Else Writeln (‘a,b,c khong phai la 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 Begin Write (‘ Nhap so thu’,i); Readln (A[i]); End; S:= 0; For i:= to N S:= S+A[i]; Writeln (‘Tong cac so co 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 ... 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... 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 canh... (‘a,b,c khong phai la 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