Gv: Phân tích ích lợi của sử dụng biến mảng qua câu lệnh lặp để đọc và ghi dữ liệu ra màn hình thay vì 50 câu lệnh khai báo và 50 câu lệnh đọc ta chỉ cần viết 2 câu lệnh Gv: Đưa ra cách [r]
Trang 1Ngày
8B-8A
Bài 9: LÀM VIỆC VỚI DÃY SỐ
I Mục Tiêu:
1 Kiến thức:
- khái $% %& '
- cú pháp )* %& '
2 Kỹ năng:
- cách khai báo %& ",- in, truy , các " / )* %&
-
3 Thái độ:
- Chú ý nghe &- ": "$ theo : " ; )* giáo viên +> môn
-
II Kiểm tra bài cũ:
?1 Nêu : khác +$ G* câu I$" IJ < K I + . và K I IJ < K I "* + . '
?2 0 cú pháp 2 câu I$" IJ trong ngôn G Pascal mà em M "N '
III Chuẩn bị:
- Giáo viên: Giáo án )- khai thác " > dung, hình &" sgk
- @N sinh: Xem . bài và "Q +1 bài %'
IV Nội Dung Bài Mới:
Hoạt động của Gv + Hs Nội dung cần đạt
Gv: Em "S nhìn "T <$ U hàng B mua
vé, U hàng . khi vào IW
Ta "T <$ X U công <$ 4 có ích I gì?
Hs:…làm cho
nhanh chóng
Gv: Trong I, trình Z <,- + +K trí G
I$ theo dãy, <$ khai báo và / lí G I$ .6 nên
2 & T "[' Thay vì "& < T "[ câu
I$" K nhau, ta có "B dùng vài câu I$" IJ và
"S I " I công <$ cho máy tính ":
"$'
Gv: Nêu ví 5 1 trong sách giáo khoa Cho hs N
và tìm
B .& IS câu "^'
+
1 , em "T <$ khai báo " nào ?
Hs:… %T "S gian và Y "% I;'
Gv: `; X " ví 5 trong sgk và ;
"$ G I$ !B %& '
a* hình <b mô & <$ X U ": "$
+c cách gán cho %d " %> "e K
1 Dãy số và biến mảng:
- aB giúp cho <$ X U ",
$ và 2 &- %N ngôn G I, trình
[ có %> !B G I$ N là !B
%& '
- `G I$ !B %& là %> , " "G
" các " / có "f :- %N " /
[ có cùng %> !B G I$ và N là
!B )* " /'
Trang 2Khi khai báo %> + có !B G I$ là !B
%& - + 4 N là + gì?
Gv: O "$ + %&
Gv: Trong bài này ta "e xét các " / !B K
0, + %& có tác 5 gì?
Cho Hs nghiên
nhóm B .& IS câu "^
+ 2 : " khai báo + 2- câu I$" khai
báo %& "& ": "$ 6 HE
+ Khi khai báo + %& trong %N ngôn G I,
trình "e rõ ít "T K nào?
Gv: a* ra cách khai báo " trong sgk
Gv: i câu I$" "f "T ta khai báo + có tên là
gì? Oj% bao nhiêu " /E gB G I$ %d "
/ )* + là gì?
Hs:… + có tên là chieu_cao, j% 50 " /'
ld " / )* + có !B G I$ K ": '
2 :- cho Hs phân tích ý "m* câu I$" "f 2
Qua ví 5- gv o quát câu I$" khai báo %&
trong pascal
Gv: Phân tích: 7"e K - "e K K là các K
nguyên
Gv: a* ra ví 5 2
Gv: Phân tích ích I )* / 5 + %& qua
câu I$" IJ B N và ghi G I$ ra màn hình
(thay vì 50 câu I$" khai báo và 50 câu I$" N ta
"e < 2 câu I$"q
Gv: a* ra cách < câu I$" IJ B so sánh B%
toán < 1 giá .1 nào 4'
For i:=1 to 50 do
If Diem[i] > 8.5 then Writeln(’Gioi’);
Gv: Cách khai báo và / 5 + %& " ví
5 2 có I gì?
Hs:… !$ T "[ "S gian và công f <
"2 trình
Gv: O& / I em có 50 +- em "/ khai báo %>
+ %& có tên DiemToan?
Hs:…
Var DiemToan: array[1 50] of real;
Gv: ON 1 Hs phân tích ý "m* )* câu I$" khai
báo trên
Gv:
- Khi khai báo %> + có !B G I$ là
!B %& + 4 N là +
%& '
- Giá .1 )* + %& là %> %& - f
là
có "f :- %d K là giá .1 )* + thành
" 2 f '
2 Ví dụ về biến mảng:
- aB làm <$ < dãy K ta ta khai báo + %& 4 !B K 2 f trong
" khai báo
- Khi khai báo + %& "e rõ: tên + %& - K I - !B G I$ )*
" /'
Ví 5
var Chieucao: array[1 50] of real;
var tuoi: array[21 80] of integer;
* Cách khai báo + %& Var <tên +w * *rv "e K w''v "e
K Kws of v!B G I$wt
- aB I B% K )* %d hs ta khai báo + %& B% " sau:
Var Diem: array[1 50] of real;
Có "B thay " "[ câu I$" N và ghi
G I$ ra màn hình +c %> câu I$"
For i:= 1 to 50 do readln(Diem[i]);
Trang 3Hs:… khai báo "[ %&
Gv: 2 : vài + khác hãy khai báo +
%& có tên DiemLi, DiemVan?
2 Hs khai báo
Var DiemVan: array[1 50] of real;
Var DiemLy: array[1 50] of real;
Gv: Trong ": ta nên khai báo > " sau:
Var DiemToan, DiemVan, DiemLy: array[1 50]
of real;
Ta có "B U/ lí B% thi )* %> Hs 5 "B "
Tính B% trung bình )* Lan, Tính B% trung
bình cao "T )* Châu…
a* lên +&
Gv: Sau khi khai báo %> %& - ta có "B làm <$
< các " / )* nó " %> + thông "S '
Gv: ý:
+ Ta gán giá .1- N giá .1 và tính toán < các giá
.1 )* %> " / trong + %& thông qua "e
K 2 f )* " / 4'
Ví 5 Diem[i] là " / "f i )* %& B%'
Gv: a* ví 5 <$ gán giá .1 " / )* %&
" sách giáo khoa
khai báo "y han:
Var DiemToan, DiemLy, DiemVan: array[1 50] of real;
- Sau khi khai báo %> %& - ta có
"B làm <$ < các " / )* nó "
%> + thông "S " gán giá .1-
N giá .1 và ": "$ tính toán < các giá .1 4'
0$ gán giá .1 cho các " / )*
%& có "B ": "$ .: qua câu I$"
A[1] = 5; A[2] = 8;
I$" IJ
For i:= 1 to 5 do readln(a[i]);
V Củng cố - dặn dò:
- Nêu ích I )* <$ / 5 + %& E
- Làm các bài , 1, 2, 3 sách giáo khoa
- 7"Q +1 " bài còn I cho sau
8B-8A
Bài 9: LÀM VIỆC VỚI DÃY SỐ (tt)
I Mục Tiêu:
1 Kiến thức:
2 Kỹ năng:
- cách khai báo %& ",- in, truy , các " / )* %&
-
3 Thái độ:
- Chú ý nghe &- ": "$ theo : " ; )* giáo viên +> môn
-
Trang 4II Kiểm tra bài cũ:
III Chuẩn bị:
- Giáo viên: Giáo án )- khai thác " > dung, hình &" sgk
- @N sinh: Xem . bài và "Q +1 bài %'
IV Nội Dung Bài Mới:
Hoạt động của Gv + Hs Nội dung cần đạt
Gv: Cho Hs N ví 5 3 trong sách giáo khoa
Gv: O& thích ", toán tìm giá .1 I "T
a tiên gán giá .1 K "f "T )* dãy K cho
Max (ban % "S coi K "f "T là K
lớn nhất tạm thời)
+ So sánh K lớn nhất tạm thời này < K
"f 2, K "f 2 I "2 K "f "T %
"S – max thì gán giá .1 )* K "f 2 cho
max " <,- "S B% này, Max là K
I "T )* K "f 1 và "f 2
+ 7f 5 " <,- 9% so sánh max <
T & các K còn I- J K nào I "2 Max
thì I gán giá .1 )* K 4 cho Max Sau khi
so sánh K K cùng )* dãy K thì Max
chính là giá .1 I "T )* dãy K'
Yêu Hs trình bày I ", toán
Gv: Cho Hs
cách < "2 trình :* trên các câu "^
+ Hãy nêu yêu )* "2 trình ?
+ Trong "2 trình M khai báo "G +
gì? Nêu tác
| + ?
+ Theo em %& A có bao nhiêu " / ?
+ Hãy & thích các câu I$" trong " thân
)* "2 trình
Các nhóm Hs
Gv: Trong "2 trình <|* nghiên f ta
Chú ý: {K " / )* %& "& khai
báo +c K 5 "B'
Gv: "T %" Qua ví 5 ta "T : khác
+$ G* S và máy tính khi & ]
công <$ ' Trong "[ tình "K con S
& các bài toán "$ ]& "2 máy tính "['
Còn máy tính I "2 "y con S K <
3 Tìm giá trị lớn nhất và nhỏ nhất của dãy số:
- Ví 5 3 (sgk)
Qua ví 5 ta I ý: {K các " / )*
%& (kích " )* %& q khai báo +c %> K 5 "B'
V Củng cố - dặn dò:
- 0[ nhà N và tìm "B %> K "2 trình Pascal có khai báo và / 5 + %& '
- , < %> K câu I$" khai báo + %& - ôn I$ cách / 5 các câu I$" IJ'
- " I các ! A N - "B và "e" /* "2 trình
Trang 5Ngày
8B-8A
BÀI TẬP
I Mục Tiêu:
1 Kiến thức:
2 Kỹ năng:
- cách khai báo %& ",- in, truy , các " / )* %&
-
- cách < "2 trình )* các bài , 2 &
3 Thái độ:
- Chú ý nghe &- ": "$ theo : " ; )* giáo viên +> môn
-
II Kiểm tra bài cũ:
?1 Nêu cú pháp cách khai báo + %& E
?2 aB ", G I$ cho + %& ta / 5 câu I$" gì?
III Chuẩn bị:
- Giáo viên: Giáo án )- khai thác " > dung liên quan bài "N
- @N sinh: Xem I bài và "Q +1 các bài , trong sách giáo khoa
IV Nội Dung Bài Mới:
Hoạt động của Gv + Hs Nội dung cần đạt
GV: a* ra các bài , 6 SGK và N "N sinh
lên +& .& IS'
@ ;
1) ích chính )* <$ / 5 + %&
là có "B / 5 câu I$" IJ B thay "[
câu I$"- !$% "S gian và công f
< "2 trình Ngoài ra chúng ta còn có
"B I .G và U/ lí "[ G I$ có > dung
liên quan nhau %> cách "$ ]&W
Gv: Cho Hs
IS'
Hướng dẫn:
2) a# án a) Sai L"& thay T "Q +c hai
T "T%t b) và c) Sai, vì giá .1 "^ "T và
I "T )* "e K %& "& là K nguyên; d)
Sai, vì giá .1 H )* "e K %& "& "^
3) a(
4) Không Giá .1 "^ "T và I "T )* "e
K %& "& xác 1" trong " khai
1) Hãy nêu các I ích )* <$ / 5 +
%& trong "2 trình
2) Các khai báo + %& sau H trong Pascal ( hay sai?
Integer;
Real;
Integer;
Integer;
Real;
3) "Có "B xem + %& là %> +
%> tên duy "T' Phát +B 4 ( hay sai?
Trang 6báo "2 trình.
Gv: Cho Hs nêu ", toán, nêu các + và
cách khai báo
Hs: 0 "2 trình : " ; )*
giáo viên
Hướng dẫn: 7"2 trình có "B " sau:
Uses crt;
Var
N, i : Integer;
TB: real;
A: Array[1 100] of integer;
Begin
Clrscr;
Write(‘Nhap phan tu cua
mang, n = ’); read(n);
TB:=0;
Begin
Write(’nhap gia tri thu
‘,I,’ cua mang, a[‘,I,’]
=’);
Readln(a[i]);
TB:=TB+a[i];
End;
TB:=TB/n;
Write(trung binh bang: ‘,
TB);
End
4) Câu I$" khai báo + %& sau H máy tính có ": "$ không?
A: array[1 N] of real;
5 0 "2 trình / 5 + %& B tính giá .1 trung bình )* N K nguyên
", | bàn phím
V Củng cố- dặn dò:
- 0[ nhà xem I bài và "N "> cú pháp khai báo %& '
- Xem và "Q +1 . bài thực hành 7
Trang 7Ngày
Bài thực hành 7:
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH
I Mục Tiêu:
1 Kiến thức:
- ": hành khai báo và / 5 +
- Ôn I$ cách / 5 câu I$" if…then, for…do.
2 Kỹ năng:
- 7) K !m A N - "B và "e" /* "2 trình
- @B và < "2 trình < ", toán tìm giá .1 I "T và "^ "T )*
%> dãy K- tính o dãy K'
3 Thái độ:
- Chú ý nghe &- ": "$ theo : " ; )* giáo viên +> môn
-
II Kiểm tra bài cũ:
EF0 I câu I$" IJ if…then, for…do?
E'0 cú pháp khai báo + %& !B K nguyên và !B K ": E
III Chuẩn bị:
- Giáo viên: Giáo án )- khai thác " > dung liên quan bài "N
- @N sinh: Xem I lí " và "Q +1 các bài , ": hành trong sách giáo khoa
IV Nội Dung Bài Mới:
1 Thực hành ví dụ 3 sách giáo khoa.
* ON Hs nêu yêu bài toán 6 ví 5 3
* C ho Hs làm <$ theo nhóm B gõ "2 trình 6 ví 5 3 trong lý " . '
* Các nhóm N - tìm "B ý "m* câu I$" trong "2 trình
Gv:
- %& A j% bao nhiêu " / ?
- Gv: Yêu Hs 1 " và " "2 trình < các +> G I$ tùy ý
* Các nhóm báo cáo ! ]&- Gv ", xét
2 Bài 1 phần thực hành:
ON Hs N > dung, yêu )* [ bài
Gv: aB < "2 trình )* bài 1, em / 5 "G + nào? Em hãy "/ khai báo các + 4'
Hs:…
Gv: a* " khai báo + (SGK) cho Hs tìm "B và cho các em nêu tác 5 )* | +' Cho các nhóm gõ " khai báo + vào máy
Gv: Cho Hs nghiên f- tìm "B ý "m* các câu I$" trong " thân "2 trình (SGK) Các nhóm Hs gõ " thân "2 trình vào máy; 1 "- /* Id p có) và " "2 trình
< các +> G I$ tùy ý
Các nhóm quan sát ! ]& trên màn hình 7/ $ báo cáo
Gv: ", xét các nhóm
IV Củng cố - dặn dò:
- "X I cách khia báo + %& W
- 7"Q +1 " bài còn I'
-
Trang 8Ngày
Bài thực hành 7:
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt)
I Mục Tiêu:
1 Kiến thức:
- ": hành khai báo và / 5 +
- Ôn I$ cách / 5 câu I$" if…then, for…do.
2 Kỹ năng:
- 7) K !m A N - "B và "e" /* "2 trình
- @B và < "2 trình < ", toán tìm giá .1 I "T và "^ "T )*
%> dãy K- tính o dãy K'
3 Thái độ:
- Chú ý nghe &- ": "$ theo : " ; )* giáo viên +> môn
-
II Kiểm tra bài cũ (không kiểm tra bài cũ, kết hợp kiểm tra trong quá trình thực hành) III Chuẩn bị:
- Giáo viên: Giáo án )- khai thác " > dung liên quan bài "N
- @N sinh: Xem I lí " và "Q +1 " còn I bài , ": hành trong sách giáo khoa
IV Nội Dung Bài Mới:
3 Bài tập 2:
Gv: Nêu yêu )* bài 3 (nâng cao )* bài 1), và Hs "X I'
Gv: 2 : bài 1, theo em phân khai báo < " " nào?
a* ra " khai báo " sgk, cho Hs phân tích ý "m* các câu I$"'
Gv: Cho Hs
+ 0 câu I$" tính trung bình )* %d + trong I'
+ 0 câu I$" tính B% trung bình )* & I theo | môn Toán và G <A'
Gv: Cho Hs nghiên f " thân "2 trình sgk
Hs làm <$ theo nhóm B +o xung các câu I$" trên vào <1 trí thích " trong "2 trình Thêm các I$" "- cho 1 " và " "2 trình < các K I$ "/'
Các nhóm / $ báo cáo
Gv: ", xét các nhóm (có "B cho B%q'
4 Bài tập làm thêm:
Hãy < "2 trình in ra màn hình dãy K ", | bàn phím, tính o dãy K 4'
Yêu Hs nêu ý 6 bài toán, "$ "2 trình
Var
I, n, sum: integer;
A: arrray[1 100] of integer;
Begin
Write(‘Hay nhap do dai cua day so, N = ’); readln(n);
Writeln(’Nhap cac phan tu cua day so:’)
Begin
Write(’a[’,i,’] = ’);
Readln(a[i]) ;
Trang 9Sum:=0 ;
Write(’Day so vua nhap la:’);
Writeln;
Write(’Tong cua day so la: ’,sum);
Readln;
End.
Cho Hs tím "B câu I$"- J +$ câu I$" < <[ in " / )* %& ra màn hình
V Củng cố - dặn dò:
- Gv: ", xét toàn +> ! "f chính M "N trong bài, N Hs N " ghi " và o ! K bài
- ", xét, #" giá S ": hành (ý "f o "f !e I, các nhóm) Tuyên 2 cá nhân
- 0[ nhà ô I %> K câu I$" có [ kiên, câu I$" IJ- khai báo + %& W và "X hs /
5 " lý trogn khi < "2 trình
- , < %> K "2 trình 2 &'
... cố - dặn dị:- Nêu ích I )* <$ / 5 + %& E
- Làm , 1, 2, sách giáo khoa
- 7& #34;Q +1 " I cho sau
8B-8A
Bài. .. bị:
- Giáo viên: Giáo án )- khai thác " > dung, hình &" sgk
- @N sinh: Xem . "Q +1 %''
IV Nội Dung Bài Mới:...
2 Kỹ năng:
- cách khai báo %& ", - in, truy , " / )* %&
-
3 Thái độ:
- Chú ý nghe & - ": "$ theo : "