Bài mới: Hoạt động của thầy Hoạt động của trò Hoạt động 1 17p: Bài 1tt GV: Phân nhóm thực hành HS: Ngồi vào máy tính theo nhóm đã ngồi theo nhóm cũ đã được.. được phân công..[r]
Trang 1Tuần: 31 Ngày soạn: 04/4/2014
BÀI THỰC HÀNH 7: XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (T2)
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
- Hiểu và viết được chương trình với thuật toán tìm giá trị lớn nhất, nhỏ nhất của một dãy
số, tính tổng dãy số
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Ị
1 Chuẩn bị của Giáo viên:
Sách giáo khoa, giáo án, bài tập, phòng máy vi tính
2 Chuẩn bị của học sinh:
- Sách vở, bút ghi, thước kẻ, kiến thức liên quan,
III PHƯƠNG PHÁP
- Thuyết trình, giảng giải, vấn đáp, trực quan
IV TIẾN TRÌNH DẠY HỌC
1 Tổ chức lớp: (1p)
- Ổn định tổ chức Kiểm tra sĩ số
2 Kiểm tra bài cũ: Kết hợp trong giờ thực hành
3 Bài mới:
Hoạt động của thầy Hoạt động của trò Nội dung ghi bài
Hoạt động 1 (17p): Bài 1(tt)
GV: Phân nhóm thực hành
(ngồi theo nhóm cũ đã được
phân)
GV: Y/c HS khởi động phần
mềm TURBO PASCAL Mở
bài thực hành ở tiết trước với
tên Phanloai
d.Gõ tiếp phần thân chương
trình và máy tính sau phần
khai báo, dịch và chạy
chương trình.
HS: Ngồi vào máy tính theo nhóm đã được phân công
HS: Khởi động pm và mở bài thực
hành ở tiết trước với tên Phanloai
- Gõ dịch và chạy thử chương trình trong SGK/80
Program Phan_loai;
uses crt;
Var
i, n, G, Kh, TB, K: integer;
A: array[1 100] of real;
Bài 1:
Viết chương trình nhập điểm 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 khá, giỏi, trung bình, 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
Trang 2Begin clrscr;
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
Hoạt động2 (20p): Bài 2
GV: Y/c HS đọc và nắm rõ
y/c bài 2
a Tìm hiểu ý nghĩa của các
câu lệnh trong sgk/81( tương
tự bài 1)
b Bổ sung các câu lệnh ở bài
2 vào vị trí thích hợp trong
Bài 1, dịch và chạy chương
trình.
HS: Đọc đề Bài 2 và tìm hiểu các y/c
HS: thảo luận nhóm và tìm hiểu ý nghĩa của từng câu lệnh
HS: Bổ sung các câu lệnh ở bài 2 vào vị trí thích hợp trong Bài 1, dịch và chạy chương trình.
Program Xep_loai;
uses crt;
2 Bài 2
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
Trang 3i, 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/ Điểm TB của cả lớp theo từng môn Toán và Ngữ văn
Hoạt động 1 (5p): Cũng cố
- Giáo viên nhận xét và đánh giá tiết thực hành
Hoạt động 1 (2p): Dặn dò
- Về nhà xem trước bài: “ Quan sát hình không gian với phần mềm Yenka
V TỰ RÚT KINH NGHIỆM:
Trang 4