D\lop\ KT_ten vµ Viết chương trình Pascal nhập vào dãy gồm n (n<=100) điểm="" trung="" bình="" của="" học="" sinh.="" tìm="" điểm="" trung="" bình="" cao="" nhất.="">=100)>
Var i,n : integer;
Max: Real;
A: array[1.100] of Real;
Begin
clrscr;
Write('nhap so hoc sinh'); Readln(n);
For i:=1 to n do
Begin
write('a[',i,']='); readln(a[i]);
End;
Max:= A[1];
For i:= 2 to n do If Max < a[i]="" then="" max:="">
Writeln(' diem cao nhat la', Max:5:2);
readln;
End.
KIỂM TRA MỘT TIẾT ( KT thực hành 2 tiết) TuÇn 33 TiÕt 66 Ngµy so¹n: 05/04/2010 Ngµy d¹y: 13/04/2010 I. môc tiªu 1. KiÕn thøc - Kiểm tra kiến thức của HS về phần mảng 2. Kü n¨ng - Luyện kỹ năng viết chương trình trên máy cho HS 3. Th¸i ®é - Nghiªm tóc lµm bµi II. CHUẨN BỊ 1. Giáo viên a. Phương pháp: Trùc quan b. Phương tiện: Giáo án, ®Ò kiÓm tra 2. HS: Sách, vở đọc trước bài ở nhà. III. TIẾN TRÌNH DẠY - HỌC 1.Ổn định lớp - Ổn định trật tự - Kiểm tra sĩ số 2. Kiểm tra bài cũ 3. KiÓm tra GV: Phát đề cho HS HS: Nhận đề và làm trên máy 1. Em h·y khëi ®éng Pascal vµ lu bµi theo ®êng dÉn sau: D\lop\ KT_ten vµ Viết chương trình Pascal nhập vào dãy gồm n (n<=100) điểm trung bình của học sinh. Tìm điểm trung bình cao nhất. Đáp án và biểu điểm Đáp án Biểu điểm - lu bµi ®óng ®êng dÉn,®óng tªn Program P_Max; uses crt; Var i,n : integer; Max: Real; A: array[1..100] of Real; Begin clrscr; Write('nhap so hoc sinh'); Readln(n); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Max:= A[1]; For i:= 2 to n do If Max < A[i] then Max:= A[i]; Writeln(' diem cao nhat la', Max:5:2); readln; End. 1 0.25 0.25 0.5 0.5 0.5 0.25 0.25 0.5 1 0.25 0.5 0.25 1.5 1.5 0.5 0.25 0.25 4. Cñng cè 5. Dặn Dò - Häc sinh vÒ nhµ ôn bài, tiết sau chúng ta «n tËp ®Ó thi HK2 IV. RÚT KINH NGHIỆM
Tài liệu đính kèm: