- Cú kỹ năng tạo hỡnh nhờ vào cỏc lệnh và điều khiển được cỏc hỡnh học khụng gian đơn giản mà học sinh vẽ.
XỬ Lí DÃY SỐ TRONG CHƯƠNG TRèNH
(tiếp theo)
1. Mục tiờu
a. Về 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
b.Về kĩ năng
- Củng cố cỏc kĩ năng đọc hiểu và chỉnh sửa chương trỡnh.
c. Về thỏi độ
- Tớch cực tham gia cỏc hoạt động học tập. - Cú ý thức bảo vệ tài sản.
2. Chuẩn bị của GV và HS
a. Chuẩn bị của GV
- SGK, SGV, SBT, tài liệu, Giỏo ỏn
- Đồ dựng dạy học như mỏy tớnh, projector, phũng mỏy thực hành...
b. Chuẩn bị của HS
- Đọc trước bài học
- Học thuộc kiến thức lý thuyết
3.Tiến trỡnh dạy học
a. Kiểm tra bài cũ :
Kết hợp trong bài học
Đặt vấn đề
Trong bài học hụm nay chỳng ta sẽ đi làm 1 số bài tập thực hành về: Làm việc với dĩy số.
b. Giảng nội dung bài mới (40’)
Hoạt động của thầy Hoạt động của trũ Nội dung
Chương trỡnh tớnh tổng dĩy số, in ra màn hỡnh dĩy số vừa nhập. Bài 1: Program P_Sum; Var i, n, Sum : integer; A: array[1..100] of integer; Begin
write('Hay nhap do dai cua day so, N
Bài 1: (20’)
Chương trỡnh tớnh tổng dĩy số, in ra màn hỡnh dĩy số vừa nhập.
HS chia nhúm làm thực hành.
Bổ sung và chỉnh sửa chương trỡnh trong BT2 (tiết 59 ) để nhập 2 loại điểm Toỏn và Ngữ văn của cỏc bạn. Sau đú in ra màn hỡnh :
a/ điểm TB của mỗi bạn trong lớp theo cụng thức:
Điểm TB = (Điểm toỏn + điểm văn)/2 b/ Điểm TB của cả lớp theo từng mụn Toỏn và Ngữ văn HS chia nhúm làm thực hành. = '); readln(n);
writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Sum:=0;
for i:=1 to n do Sum:= Sum + a[i];
write('Day so vua nhap la: '); for i:=1 to n do write(a[i], ' '); writeln;
write('Tong day so la = ',Sum); readln; End. Bài 2: Program Xep_loai; uses crt; Var i, n: integer;
TBtoan, TBvan: real;
diemT, diemV: array[1..100] of real; Begin clrscr; writeln('Diem TB : '); For i:=1 to n do write(i,' . ',(diemT[i] + diemV[i])/2:3:1); TBtoan: =0; TBvan: =0; For i:=1 to n do Begin TBtoan: = TBtoan + diemT[i] ;
TBvan: = TBvan + diemV[i] ;
end;
TBtoan: = TBtoan /n; TBvan: = TBvan /n; writeln('Diem TB mon Toan :
Bài 2: (20’) Bổ sung và chỉnh sửa chương trỡnh trong BT2 (tiết 59 ) để nhập 2 loại điểm Toỏn và Ngữ văn của cỏc bạn. Sau đú in ra màn hỡnh : a/ điểm TB của mỗi bạn trong lớp theo cụng thức: Điểm TB = (Điểm toỏn + điểm văn)/2 b/ Điểm TB của cả lớp theo từng mụn Toỏn và Ngữ văn
',TBtoan :3:2);
writeln('Diem TB mon Van: ',TBvan :3:2);
readln;
End.
c. Củng cố luyện tõp (4’)
Giỏo viờn nhận xột và đỏnh giỏ tiết thực hành.
d. Hướng dẫn HS tự học ở nhà (1’)
- Học thuộc cấu trỳc lệnh.
- Về nhà học bài, chuẩn bị tiết sau Kiểm tra (TH)
Ngày soạn: 30/04/2011 Ngày giảng:
Giảng lớp 8A: 02/05/2011 Giảng lớp 8B: 04/05/2011
Tiết 67