D CỦNG CỐ ẶN ề (5’)
xử lí dãy số trong chơng trình
A – THỜI GIAN
1. Số tiết: 02 2. Ngày soạn: 1/1/2010
3. Ngày giảng:………...|………|………..|………..|
B – MỤC ĐÍCH YấU CẦU1. Kiến thức 1. Kiến thức
- Làm quen với việc khai bỏo và sử dụng cỏc biến mảng
2. Kỹ Năng
- ễn luyện cỏch sử dụng cõu lệnh lặp for…do và cách sử dụng biến mảng. - Củng cố cỏc kĩ năng đọc, hiểu và chỉnh sửa chương trỡnh.
3. Thỏi độ: Nghiờm tỳc
C – CHUẨN BỊ
1. Giỏo viờn: giỏo ỏn, mỏy chiếu
2. Học sinh: Kiến thức cũ, sỏch, vở.
D - HOẠT ĐỘNG DẠY VÀ HỌC
1 -ổn định lớp
2 - Kiểm tra bài cũ (5')
? Hĩy cho một số vớ dụ về lặp với số lần chưa biết trước.
3 - Bài mới (35')
HOẠT ĐỘNG dạy - học NỘI DUNG
GV: Đưa ra bài tập 1 SGK ? Gọi học sinh nờu ý tưởng - GV hướng dẫn
HS: Làm bài tập
Begin
clrscr;
write(‘Nhap so cac ban trong lop, n =
Bài 1. 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ỏ, trung bỡnh và kộm (theo tiờu chuẩn từ 8.0 trở lờn đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khỏ, từ 5.0 đến 6.4 đạt trung bỡnh và dưới 5.0 xếp loại kộm).
‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do Begin write(i,’. ‘); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5)
then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5)
then Trungbinh:=trungbinh+1 end;
writeln(‘Ket qua hoc tap:’); writeln(Gioi,’ ban hoc gioi’); writeln(Kha,’ ban hoc kha’);
writeln(Trungbinh,’ ban hoc trung binh’);
writeln(Kem,’ ban hoc kem’); readln
End.
GV: Đưa ra bài tập 2 SGK ? Gọi học sinh nờu ý tưởng - GV hướng dẫn
HS: Làm bài tập Phần khai bỏo:
Var
i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of
real;
Phần thõn chương trỡnh:
begin
writeln('Diem trung binh:');
for i:=1 to n do writeln(i,'. ',(DiemToan[i] +DiemVan[i])/2:3:1); TbToan:=0; TbVan:=0; for i:=1 to n do begin TbToan:=TbToan+DiemToan[i]; TbVan:=TbVan+DiemVan[i] end; TbToan:=TbToan/n; TbVan:=TbVan/n; writeln('Diem trung binh mon Toan: ',TbToan:3:2);
writeln('Diem trung binh mon Van: ',TbVan:3:2);
end.
a) Xem lại cỏc vớ dụ 2 và vớ dụ 3, bài 9 về cỏch sử dụng và khai bỏo biến mảng trong Pascal.
b) Liệt kờ cỏc biến dự định sẽ sử dụng trong chương trỡnh. Tỡm hiểu phần khai bỏo dưới đõy và tỡm hiểu tỏc dụng của từng biến:
program Phanloai;
uses crt;
Var
i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;