- Cỏch khai bỏo đơn giản một biến
2. Hướng dẫn về nhà: về nhà học bài và xem tiếp trước bài tập
Tiết: 61 Ngày Soạn:31/03/2011
Tuần: 31 Ngày dạy :29/03/2011
BÀI TẬPI. MỤC TIấU CẦN ĐẠT I. MỤC TIấU CẦN ĐẠT
1. Kiến thức:
- Viết chương trỡnh Pascal sử dụng biến mảng. 2. Kĩ năng:
- Rốn luyện khả năng đọc chương trỡnh, tỡm hiểu tỏc dụng và kết hợp cỏc cõu lệnh. 3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
1.GV: Sỏch giỏo khoa, mỏy tớnh điện tử. 2.HS: Sỏch, vở ,đọc bài ở nhà.
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ: dữ liệu kiểu mảng là gỡ? Cỏch khai bỏo mảng trong pascal. 3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRề NỘI DUNG
Hoạt động 1: ễn tập lớ thuyết
GV: yờu cầu học sinh nhớ lại kiến thức và trả lời cỏc cõu hỏi.
a) Nờu lại cỳ phỏp khai bỏo biến mảng. b) Nờu lợi ớch của việc sử dụng biến mảng.
- HS Suy nghĩ và trả lời cõu hỏi
? Viết chương trỡnh nhập vào một dĩy số nguyờn cú n phần tử. In ra màn hỡnh phần tử nhỏ nhất, phần tử lớn nhất và giỏ trị trung bỡnh của danh sỏch ra màn hỡnh
- Yờu cầu hs suy nghĩ và viết chương trỡnh.
Program
MAX_MIN_AVG; Uses crt;
Var a:array[1..20]of
- Hs Suy nghĩ và viết chương trỡnh Program MAX_MIN_ AVG; Uses crt; Var a:array[1..20]of integer;i,n,max,min,sum:integer; Begin Clrscr;
Writeln('TIM MAX, MIN,
AVERAGE CUA MOT DAY SO'); integer;i,n,max,min,sum:integer; Begin
Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO');
Writeln('---'); Write('Nhap so phan tu cua day n='); readln(n); For i:=1 to n do Begin Write('Nhap a[',i,']=');readln(a[i]); End; Min:=a[1]; Max:=a[1]; Sum:=0; For i:=1 to n do Begin
If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i]; Sum:=sum+a[i];
End
Writeln('Day so vua nhap la: '); Writeln('---');
For i:=1 to n do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min); Writeln('gia tri trung binh
la:',Sum/n:6:2); Readln; End;
Writeln('--- ---');
Write('Nhap so phan tu cua day n='); readln(n); For i:=1 to n do Begin Write('Nhap a[',i,']=');readln(a[i]); End; Min:=a[1]; Max:=a[1]; Sum:=0; For i:=1 to n do Begin If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
Sum:=sum +a[i];
End
Writeln('Day so vua nhap la: '); Writeln('--- ----'); F or i:=1 to n do Write(a[i]:4); Writeln; Writeln('Gia tri lon nhat la:',Max);
Writeln('gia tri nho nhat la:',Min);
Writeln('gia tri trung binh la:',Sum/n:6:2);
End;
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ
1. Củng cố: Chỉ ra những khiếm khuyết mà học sinh cũn mắc phài, yờu cầu khắc phục
2. Hướng dẫn về nhà: về nhà xem trước bài thực hành
Tiết: 62 Ngày Soạn:31/03/2011
Tuần: 31 Ngày dạy :29/03/2011
Bài thực hành số 7
XỬ Lí DÃY SỐ TRONG CHƯƠNG TRèNH I. MỤC TIấU CẦN ĐẠT
1. Kiến thức:
- Làm quen với việc khai bỏo và sử dụng biến mảng. - ễn luyện cỏch sử dụng cõu lệnh lặp for..do
2. Kĩ năng:
- Củng cố cỏc kĩ năng đọc hiểu và chỉnh sửa chương trỡnh. 3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch viết chương trỡnh để thực hiện một số cụng việc.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
1. Sỏch giỏo khoa, giỏo ỏn. 2. Đọc bài trước ở nhà.
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ 3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRề NỘI DUNG
Chương trỡnh tỡm giỏ trị nhỏ nhất trong dĩy số nguyờn P_Min ?
HS chia nhúm làm thực hành. Program P_Min; Var i, n, Min : 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 if Min>a[i] then Min:=a[i];
write('So nho nhat la Min =
Chương trỡnh tỡm giỏ trị nhỏ nhất trong dĩy số nguyờn
P_Min ?
',Min); readln;
End. Viết chương trỡnh nhập
điểm của cỏc bạn trong lớp. Sau đú in ra màn hỡnh số bạn đạt kết quả học tập loại giỏi, khỏ, TB và kộm. Tiờu chuẩn: - Loại giỏi: 8.0 trở lờn - Loại khỏ: 6.5 đến 7.9 - Loại TB: 5.0 đến 6.4 - Loại kộm: dưới 5.0 Hoạt động 2: Bài tập 2
Viết chương trỡnh nhập điểm của cỏc bạn trong lớp. Sau đú in ra màn hỡnh số bạn đạt kết quả học tập loại giỏi, khỏ, TB và kộm. Tiờu chuẩn: - Loại giỏi: 8.0 trở lờn - Loại khỏ: 6.5 đến 7.9 - Loại TB: 5.0 đến 6.4 - Loại kộm: dưới 5.0 HS chia nhúm làm thực hành. GV gợi ý: - Dựng cõu lệnh if…then… 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.
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ2. Củng cố: đỏnh giỏ giờ thực hành. 2. Củng cố: đỏnh giỏ giờ thực hành.
3. Hướng dẫn về nhà: về nhà xem tiếp phần cũn lại
Tiết: 63 Ngày dạy: Bài thực hành số 7 (tt)