dụng biến mảng: - Viết lại cách khai báo biến - Có thể thay rất nhiều của ví dụ trên với số học sinh câu lệnh lặp và in dữ tối đa của lớp là 40.. liệu bằng một câu lệnh - Cách khai báo v[r]
Trang 1Trang 1
GIÁO ÁN TIN HỌC 8
PPCT: 21 (HKII)
Ngày 7/3/2010
Ngày
I Mục tiêu:
- Làm quen %& %'( khai báo và / các , !0
- 1 cách tìm giá 34 5& *6 và giá 34 *7 *6 (8+ dãy :
- Rèn 5#' )= > tìm giá 34 5& *6 và giá 34 *7 *6 (8+ dãy :
II Chuẩn bị:
GV: 10 A*/
HS: SGK, / (/ *D( EA FG F8
III Hoạt động dạy học:
1/ Ổn định tổ chức: Yêu (G# hs báo cáo = :C )J! ' *D( sinh (1’).
2/ Kiểm tra bài cũ:
- KL câu *7 chung cho (0 5&A
1 NO 5'# !0 là gì?
2 Nêu cách khai báo , !0P
- Y/c 1 Hs 30 5Q các câu *7 trên
- Y/c 2 Hs *E xét, F-* giá
- *E xét, F-* giá FJ! :
- 1 HS 30 5QC ghi ,0
- Hai HS *E xét, F-* giá HS 30 5Q câu
*7 và FT *4 FJ! :
- @6 F-A O+ giáo viên, *D( sinh FJ ôn 5 bài (V
- Nhóm HS *E xét, F-* giá HS 30 5Q câu
*7
3/ Bài mới:
- Yêu (G# HS FD( ví / 2.
- @ 5 cách khai báo ,
(8+ ví / trên %& : *D( sinh
: F+ (8+ 5&A là 40
- Cách khai báo và /
, *Z trên có 5[ gì?
- ?0 thích %T 5[ ích (8+ %'(
/ , !0C
- KD( ví / 2
- Có *J thay 36 *T# câu 5'* 5LA và in O 5'# ,\
!] câu 5'* 5LA VD: For i:=1 to 50 do readln(Diem[i]);
- B / , !0 !] cách
*'# "#0 trong R lý O 5'#
VD For i:=1 to 50 do
if Diem[i]>8.0 then Writeln (‘Gioi’); hay khai báo *T#
, Var Toan, Van, li: array [1 50] of real; gán giá 34 cho các A*G (8+ , !0
A[1]:=5; A[2]:=9;
2 Ví dụ về biến mảng:
[ ích (8+ %'(
/ , !0
- Có *J thay 36 *T# câu 5'* 5LA và in O 5'# ,\ !] câu 5'* 5LA VD: For i:=1 to 50
do readln(Diem[i]);
- B / , !0
!] cách *'# "#0 trong
R lý O 5'# VD For i:=1 to 50 do
if Diem[i]>8.0 then Writeln (‘Gioi’); hay khai báo *T# , Var Toan, Van, li: array [1 50] of real; gán giá
34 cho các A*G (8+ , !0 A[1]:=5; A[2]:=9;
TG
10’ Hoạt động 1: Tìm hiểu Ví dụ về biến mảng (tt)
5’
TG
Trang 2Trang 2
- Ví / 3: @ (*Zl trình
*EA vào dãy : nguyên n và
in ra màn hình : 5& *6C
*7 *6
- Hãy trình bày cách khai báo
, trong (*Zl trình?
- *G thân (*Zl trình A*0
% *Z * nào?
- ?0 thích m A*G (8+
(*Zl trình: *G *EA giá
34 cho ,C A*G )J! tra các
giá 34 (8+ !0 FJ tìm : 5&
*6C *7 *6
Program MaxMin;
uses crt;
Var
i, n, Max, Min: integer;
A: array[1 100] of integer;
Begin clrscr;
write('Hay nhap do dai cua day so, = '); readln(n);
writeln('Nhap cac phan tu cua day so:');
For i:=1 to n do Begin
write('a[',i,']=');
readln(a[i]);
End;
Max:=a[1]; Min:=a[1];
for i:=2 to n do begin if Max<a[i] then Max:=a[i];
if Min>a[i] then Min:=a[i]
end;
write('So lon nhat la Max = ',Max);
write('; So nho nhat la Min
= ',Min);
readln;
End
- s nghe
3 Tìm giá trị lớn nhất
và giá trị nhỏ nhất của dãy số:
program MaxMin;
uses crt;
Var
i, n, Max, Min: integer;
A: array[1 100] of integer;
Begin clrscr;
write('Hay nhap do dai cua day so, = '); readln(n);
writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin
write('a[',i,']='); readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
for i:=2 to n do begin if Max<a[i] then Max:=a[i];
if Min>a[i] then Min:=a[i]
end;
write('So lon nhat la Max = ',Max);
write('; So nho nhat
la Min = ',Min);
readln;
End
4 Củng cố, dặn dò:
* Củng cố:
- [ ích (8+ %'( / , !0
* Dặn dò:
- *#t ,4 bài EA m 4, 5 sgk trang
79 và bài *u( hành 7
- Hs 30 5Q và *E xét câu *7 (8+ GV
- Hs 30 5Q !] : câu
*7 (8+ GV FL ra
9’
TG
Hoạt động 2: Tìm hiểu cách tìm giá trị lớn nhất và giá
trị nhỏ nhất của dãy số.
20’
Trang 3Trang 1