Đề thi học sinh giỏi môn Tin học 8 năm học 2013-2014

ĐỀ THI HỌC SINH GIỎI MÔN TIN HỌC 8 NĂM HỌC 2013-2014 Thời gian: 150 phút

I. NỘI DUNG ĐỀ Câu 1 (4 điểm): Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím). Câu 2 (4 điểm): Hãy điền các lệnh còn thiếu vào chỗ trống để hoàn thiện chương trình sau:

Program Chao_hoi; uses .......; var Tieptuc: char;

Ten: .......; Begin Tieptuc:='c'; while ……= 'c' do

Begin

write('Nhap ten cua ban'); Readln(…..); writeln('Chao ban ', Ten); ............('Tiep tuc ? c/k'); readln(Tieptuc); end; ……..; End. Câu 3 (6 điểm): Viết chương trình tính điểm trung bình 3 môn (Toán, Lý, Hóa) theo hệ số (2:1:1) sau đó xếp loại như sau:

a) Loại Giỏi: ĐTB >= 8.0 và không có môn nào dưới 6.5

b) Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nào dưới 5

c) Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn dưới 3.5

d) Loại yếu: còn lại

Câu 4 (6 điểm): Viết chương trình nhập vào mảng A là dãy số nguyên, sau đó đưa ra màn hình các số dương trong dãy và tổng các số âm.

- - - - - - - - - -Hết- - - - - - - - - -

Giáo viên ra đề

Võ Thị Cẩm Huyền

ThuVienDeThi.com

II. MA TRẬN ĐỀ

MỨC ĐỘ KIẾN THỨC VÀ THANG ĐIỂM Tên Chủ đề

Nhận biết

Thông hiểu

Vận dụng

Vận dụng ở mức cao hơn

Tổng điểm

Chủ đề 1: Sử dụng biến trong chương trình

Khai báo được các biến chiều dài, chiều rộng, chu vi, diện tích

Viết được công thức tính chu vi, diện tích

Điểm 1 điểm 3 điểm 4 điểm Chủ đề 2: Lặp với số lần chưa biết trước

Khai báo thư viện crt

Khai báo biến kiểu xâu kí tự

Sử dụng câu lệnh while ....do

Điểm 0.5 điểm 1 điểm 2.5 điểm 4 điểm

Chủ đề 3: Câu lệnh điều kiện

- Khai báo được các biến của bài toán - Nhập điểm cho 3 môn

- Sử dụng câu lệnh điều kiện viết được các lệnh để giải bài toán

Điểm 2.25 điểm 3.75 điểm 6 điểm

Chủ đề 4: Mảng một chiều

Khai báo được các biến của bài toán

Sử dụng câu lệnh để giải bài toán

Điểm 1.25 điểm 4.75 điểm 6 điểm

Tổng 0.5 điểm 5.5 điểm 14 điểm 20 điểm

ThuVienDeThi.com

III. ĐÁP ÁN

Câu Đáp án Điểm

Program Chu_nhat; uses crt; Var a, b, S, CV: real;

1 điểm

mỗi biến 0.25 Begin

Write('Nhap chieu dai:'); readln(a); Write('Nhap chieu rong:'); readln(b);

0.5 0.5

1

S := a*b; CV := (a+b)*2; Writeln('Dien tich hinh chu nhat la:',S:15:3); Writeln('Chu vi hinh chu nhat la:',CV:10:3); readln end.

0.5 0.5 0.5 0.5

2 Program Chao_hoi; uses crt; var Tieptuc: char;

Ten: string; Begin Tieptuc:='c'; while tieptuc = 'c' do Begin

write('Nhap ten cua ban'); Readln(Ten); writeln('Chao ban ', Ten);

write('Tiep tuc ? c/k'); readln(Tieptuc); end; readln; End.

0.5

1

1

0.5

0.5

0.5

Program xep_loai_hoc_sinh; uses crt; var t,l,h,tbc, min:real;

xl:string;

1.5 3

Begin write('moi nhap diem toan,ly,hoa: '); readln(t,l,h); Min:=l; if min>t then min:=t; if min>h then min:=h;

0.75 0.5 0.5 0.5

ThuVienDeThi.com

tbc:=(t*2+l+h)/4; if (tbc>=8) and (min>=6.5) then xl:='Gioi' else if (tbc>=6.5) and (min>=5) then xl:='Kha'

else if (tbc>=5) and (min>=3.5) then xl:='Trung binh' else xl:='yeu'; writeln('Diem trung binh:',tbc:0:1,' Xep loai:',xl); readln; End.

0.5 0.25 0.25

0.25 0.25 0.5 0.25

4 Program day_so;

Uses crt; Var

A: array[1..100] of integer; n,i,s:integer; Begin

Clrscr; Write('nhap so phan tu cua mang A:'); readln(n); For i:=1 to n do

Begin

Write('A[',i,']='); readln(a[i]); End; S:=0; Writeln('cac so duong trong mang la: '); For i:=1 to n do

Begin

If a[i] >0 then writeln(a[i]); If a[i] <0 then s:=s+a[i]; End; Writeln('tong cac so am trong mang la:',s); Readln; End.

0.5 0.75

0.5 0.5

0.5

0.25

1

0.5 0.5 0.5 0.5

ThuVienDeThi.com