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... MA TRẬN ĐỀ Tên Chủ đề.[r]
(1)ĐỀ THI HỌC SINH GIỎI MÔN TIN HỌC NĂM HỌC 2013-2014 Thời gian: 150 phút I NỘI DUNG ĐỀ Câu (4 điểm): Viết chương trình tính chu vi và diện tích 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 (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' Begin write('Nhap ten cua ban'); Readln(… ); writeln('Chao ban ', Ten); ('Tiep tuc ? c/k'); readln(Tieptuc); end; …… ; End Câu (6 điểm): Viết chương trình tính điểm trung bình môn (Toán, Lý, Hóa) theo hệ số (2:1:1) sau đó xếp loại sau: a) Loại Giỏi: ĐTB >= 8.0 và không có môn nào 6.5 b) Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nào c) Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn 3.5 d) Loại yếu: còn lại Câu (6 điểm): Viết chương trình nhập vào mảng A là dãy số nguyên, sau đó đưa màn hình các số dương dãy và tổng các số âm - - - - - - - - - -Hết- - - - - - - - - Giáo viên đề Võ Thị Cẩm Huyền (2) II MA TRẬN ĐỀ Tên Chủ đề MỨC ĐỘ KIẾN THỨC VÀ THANG ĐIỂM Nhận biết Chủ đề 1: Sử dụng biến chương trình Điểm Chủ đề 2: Lặp với số lần chưa biết trước Điểm Vận dụng Khai báo các biến chiều dài, chiều rộng, chu vi, diện tích điểm Khai báo Khai báo biến thư viện kiểu xâu kí tự crt 0.5 điểm điểm Viết công thức tính chu vi, diện tích - Khai báo các biến bài toán - Nhập điểm cho môn 2.25 điểm - Sử dụng câu lệnh điều kiện viết các lệnh để giải bài toán Chủ đề 3: Câu lệnh điều kiện Điểm Chủ đề 4: Mảng chiều Điểm Tổng Thông hiểu 0.5 điểm Tổng điểm Vận dụng mức cao điểm Sử dụng câu lệnh while điểm 2.5 điểm điểm 3.75 điểm điểm Khai báo Sử dụng câu lệnh để các biến bài giải bài toán toán 1.25 điểm 4.75 điểm điểm 5.5 điểm 20 điểm 14 điểm (3) III ĐÁP ÁN Câu Đáp án Program Chu_nhat; uses crt; Var a, b, S, CV: real; Điểm điểm biến 0.25 Begin Write('Nhap chieu dai:'); readln(a); Write('Nhap chieu rong:'); readln(b); 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 Program Chao_hoi; uses crt; var Tieptuc: char; Ten: string; Begin Tieptuc:='c'; while tieptuc = 'c' Begin write('Nhap ten cua ban'); Readln(Ten); writeln('Chao ban ', Ten); write('Tiep tuc ? c/k'); readln(Tieptuc); end; readln; 0.5 0.5 0.5 0.5 0.5 0.5 0.5 1 0.5 0.5 0.5 End Program xep_loai_hoc_sinh; uses crt; var t,l,h,tbc, min:real; xl:string; 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; tbc:=(t*2+l+h)/4; 1.5 0.75 0.5 0.5 0.5 0.5 (4) if (tbc>=8) and (min>=6.5) then xl:='Gioi' else if (tbc>=6.5) and (min>=5) then xl:='Kha' 0.25 0.25 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 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 Begin Write('A[',i,']='); readln(a[i]); End; S:=0; Writeln('cac so duong mang la: '); For i:=1 to n Begin If a[i] >0 then writeln(a[i]); If a[i] <0 then s:=s+a[i]; End; Writeln('tong cac so am mang la:',s); Readln; End 0.25 0.25 0.5 0.25 0.5 0.75 0.5 0.5 0.5 0.25 0.5 0.5 0.5 0.5 (5)