III. Tiến trình bài dạy: 1 Ổn định lớp:
Bài thực hành số 7 (tt)
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
I. Mục tiêu:
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ị:
- GV: SGK, giáo án, tài liệu tham khảo
- Chuẩn bị phòng thực hành đủ số máy hoạt động tốt - HS: Học kỹ lý thuyết, đọc trước bài thực hành
III. Phương pháp:
- Phân nhóm Hs thực hành.
- Đặt vấn đề, đưa ra yêu cầu để học sinh trao đổi và thực hành trên máy.
- Gv quan sát, hướng dẫn các nhóm thực hành, nhận xét công việc của từng nhóm.
IV. Tiến trình dạy và học:
1. Ổn định lớp
2. Phân việc cho từng nhóm thực hành.3. Bài mới: 3. Bài mới:
T/g Hoạt động của thầy Hoạt động của trò Nội dung
10p 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à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 = '); 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];
Chương trình tính tổng dãy số, in ra màn hình dãy số vừa nhập.
28p
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. (adsbygoogle = window.adsbygoogle || []).push({});
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 : ',TBtoan : 3:2);
writeln('Diem TB mon Van: ',TBvan : 3:2); readln; End. 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 4. Nhận xét (5 phút)
Giáo viên nhận xét và đánh giá tiết thực hành.
5. Dặn dò: (2 phút)
Tuần: 32 Ngày soạn: 11/04/2011 Tiết: 61