Tính điểm TBmHK của các học sinh biết rằng điểm TBmHK bằng trung bình công của điểm TB các môn;2. Hoàn thành bảng báo cáo sau:.[r]
(1)ĐỀ THI KHẢO SÁT GIÁO VIÊN Câu 1: Cho bảng điểm lớp sau:
Hãy sử dụng hàm, công thức, công cụ Microsoft Excel để thực công việc sau:
1 Tính điểm TBmHK học sinh biết điểm TBmHK trung bình cơng điểm TB môn;
2 Xếp loại HL học sinh với điều kiện
Loại Giỏi (G) Khá (K) Trung Bình (TB) Yếu (Y) Kém (Kém) TBmHK từ trởlên 6.5đếncận 8 đến cận 6.5 3.5 đếncận 5 3.5
3 Hoàn thành bảng báo cáo sau:
4 Chỉ hiển thị lên hình học sinh Xếp loại HL “G” Và “K” để in ra. Câu 2: Dùng ngơn ngữ lập trình Pascal thực công việc sau:
(2)Hướng dẫn chấm Câu 1: (6 điểm)
1 Sử dụng lệnh “=AVERAGE(C5:F5)”; (1điểm) Sử dụng lệnh (1điểm)
“=IF(G5<3,"Kém",IF(G5<5,"Y",IF(G5<6.5,"TB",IF(G5<8,"K","G")))) Sử dụng lệnh (2điểm)
Tổng số học sinh “=COUNTA(A5:A100)”
Số lượng học sinh loại giỏi “=COUNTIF(H5:H100,"G") Tỉ lệ % “=(B5/A5)*100
Số lượng học sinh loại Khá “=COUNTIF(H5:H100,"K") Tỉ lệ % “=(D5/A5)*100
Số lượng học sinh loại TB “=COUNTIF(H5:H100,"TB") Tỉ lệ % “=(F5/A5)*100
Số lượng học sinh loại Yếu “=COUNTIF(H5:H100,"Y") Tỉ lệ % “=(H5/A5)*100
Số lượng học sinh loại Kém “=COUNTIF(H5:H100,"Kém") Tỉ lệ % “=(J5/A5)*100
4 Sử dụng công cụ Filter (2điểm)
Trên công cụ chọn Data Filter AutoFilter góc phải Xếp loại HL xuất mũi tên click chuột vào mũi tên chon (Custom…) xuất hộp thoại Custom AutoFilter chon toán tử equals, Or, chọn G, K
Câu 2: điểm (Mỗi thủ tục điểm, chương trình điểm) Program Baitap;
Uses crt;
Type mang = array [1 100] of integer; Var b : mang;
m, chon : integer;
Procedure nhap (var a : mang; var n : integer); var i , j : integer;
Begin
Write('So phan tu cua mang la: '); Readln(n); For i:=1 to n
begin
Write ('a[',i,']= '); Readln(a[i]); End;
for j:=1 to n
Write (a[j]: 4); Writeln; End;
Procedure Tongle ( var a: mang; var n: integer); var i, tong : integer;
Begin
Tong:=0; for i:=1 to n
if a[i] mod 2<>0 then tong:=tong+a[i];
(3)End;
Procedure xoasoam ( var a: mang; var n: integer); Var i, j : integer;
Begin
For i:=1 to n While a[i] <0 Begin
For j:=i to n a[j]:=a[j+1]; n:=n-1; End;
For j:=1 to n Write(a[j] :4); Writeln; end;
Begin Clrscr; Repeat
Writeln('1:Nhap day so'); Writeln('2.Tinh tong le'); Writeln('3.Xoa so am'); Writeln('4.Ket thuc');
Write('Moi chon chuc nang:'); Readln(chon); Case chon of
1: nhap (b,m); 2: tongle(b,m); 3: xoasoam(b,m); 4: Exit;
end;