3/ Bài mới: Hoạt động của GV Hoạt động của HS Nội dung - Viết chương trình - HS chia nhóm làm thực hành Chương tìm giá trị nhỏ nhất, Bài 1: trình tìm lớn nhất trong dãy số Program Min_Ma[r]
Trang 1Trang 1
GIÁO ÁN TIN HỌC 8
PPCT: 23 (HKII)
Ngày 15/3/2010
Ngày 22/3/2010 – 27/3/2010
Bài thực hành số 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
I Mục tiêu:
- Làm quen &' &() khai báo và / 0 - "12
- Ôn 4$( cách / 0 câu 4(+ 467 for do
- : ); các *< = >?) +@$ và )+A+ /, )+BC trình
- Thái >E +?) F7 nghiêm túc, yêu thích & )+BC trình >@ +K) +( "E ; công &()2
II Chuẩn bị:
GV: Phòng máy tính
HS: SGK, 0 )0 +?) F7 >Q >:2
III Hoạt động dạy học:
1/ Ổn định tổ chức: Yêu )Q$ hs báo cáo < ;I *@" ( +?) sinh (1’)
2/ Kiểm tra bài cũ:
- S6 câu +T chung cho )1 4'7
1 N )+BC trình / 0 -
"1 >@ +F7 và in các 7+Q / "E
dãy ;I >E dài ):, dãy >BV) +F7 W
bàn phím
- Y/c 1 HS 91 4X các câu +T trên
(ghi trên -12
- Y/c HS +F xét, >.+ giá HS 91
4X câu +T2
- 1 HS 91 4X các câu +T ):, GV
- HS +F xét, >.+
giá HS 91 4X câu +T2
- N[ >.7 \, giáo viên, +?) sinh >@ ôn 4 bài )]2
- Nhóm HS +F xét,
>.+ giá HS 91 4X câu +T2
3/ Bài mới:
- N c+BC trình
tìm giá 9_ +T +[I
4' +[ trong dãy ;
nguyên
- Y/c Hs xem 4
)+BC trình ví 0 3
trang 78
- !F7 -1 )+
)+BC trình, 7+Q
+F7 ;2
- !F7 -1 )+
)+BC trình tìm ;
4' +[I +T +[2
- HS chia nhóm làm +K) hành
Bài 1:
Program Min_Max;
Var
i, n, Min, Max : integer;
A: array[1 100] of integer;
Begin
write('Hay nhap do dai cua day so, N=');
readln(n);
writeln('Nhap cac phan tu cua day so:');
For i:=1 to n do Begin
write('a[',i,']='); readln(a[i]);
End;
Min:=a[1];
for i:=2 to n do
Begin
+BC trình tìm giá 9_ +T
+[I +T
+[ trong dãy ; nguyên?
TG
30’
5’
TG
Lop8.net
Trang 2Trang 2
N )+BC trình
+F7 >@" ):, các
- trong 4'72 Sau >^
in ra màn hình ; -
> * #$1 +?) F7
4 TI khá, TB và
kém
Tiêu )+$k
- ! T 8.0 9l
lên
- ! khá: 6.5 >
7.9
- ! TB: 5.0 >
6.4
- ! kém: B' 5.0
-
4F7 -1 )+
)+BC trình 7+Q
+F7 giá 9_ ):,
"1I 7+Q >" ;
4BV 4 TI khá,
trung bình, $I kém
if Min>a[i] then Min:=a[i];
if max<a[i] then max:=a[i];
end;
write('So nho nhat la Min = ',Min);
readln;
End.
Bài 2:
Program Phan_loai;
uses crt;
Var
i, n, G, Kh, TB, K: integer;
A: array[1 100] of real;
Begin clrscr;
write('nhap so HS trong lop, n= '); readln(n);
writeln('Nhap diem :');
For i:=1 to n do Begin
write(i,' '); readln(a[i]);
End;
G:=0; Kh:= 0; TB:= 0; K:= 0;
for i:=1 to n do
Begin
if a[i] >= 8.0 then G:= G + 1;
if a[i] <5.0 then K:= K + 1;
if (a[i] <8.0 ) and (a[i] >=6.5) then Kh:= Kh + 1;
if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1;
end;
writeln(' Ket qua hoc tap: ');
writeln(G, ' ban hoc gioi ');
writeln(Kh, ' ban hoc kha ');
writeln(TB, ' ban hoc trung binh');
writeln(K, ' ban hoc kem ');
readln;
End
N
)+BC trình +F7
>@" ):,
trong 4'72 Sau >^ in
hình ; -
> * #$1 +?) F7 4
TI khá,
TB và kém Tiêu )+$k
- ! T 8.0 9l lên
- ! khá: 6.5 > 7.9
- ! TB: 5.0 > 6.4
- ! kém:
B' 5.0
4 Củng cố, dặn dò:
* Củng cố:
- Y/c hs 4F7 -1 )+ )+BC trình
bài F7 1 SGK trang 80
* Dặn dò:
- Yêu )Q$ hs &u nhà xem 4 E dung
lý +$I )+$k -_ bài F7 +K) hành
7 theo
- HS: +K) +( theo yêu )Q$ ):, GV
- Hs +K) +( "E ; thao tác theo yêu )Q$ ):, GV
9’
TG
Lop8.net