IV. TIẾN TRèNH DẠY HỌC
XỬ Lí DÃY SỐ TRONG CHƯƠNG TRèNH
I. Mục đớch, yờu cầu:
- Làm quen với việc khai bỏo và sử dụng cỏc biến mảng. - ễn luyện cỏch sử dụng cõu lệnh lặp for..do
- Củng cố cỏc kỹ năng đọc hiểu và chỉnh sửa chương trỡnh.
II. Chuẩn bị:
- GV: Một số bài thực hành, mỏy tớnh… - HS: Chia nhúm để thực hành
III. Tiến trỡnh dạy học:
HĐ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 kết qủ học tập loại G, K, TB,kộm theo tiờu chuẩn: 8.0 trở lờn G, 6.5 đến 7.9 K, 5.0 đến 6.4 TB, dưới 5 kộm.
Hoạt động giỏo viờn Hoạt động học sinh
- GV yờu cầu HS nờu ý tưởng của bài toỏn - Cỏc biến sẽ sử dụng,cỏch khai bỏo biến mảng.
- Giải thuật của bài toỏn + nhập số học sinh + viết lệnh nhập điểm
+ độm số học sinh giỏi, khỏ, trung bỡnh, kộm
+ In kết quả xếp loại ra màn hỡnh
- Cho HS dựa vào thuật toỏn soạn thảo chương trỡnh trờn mỏy.
- Kiểm tra lỗi chớnh tả, chỉnh sửa lỗi và cho chạy chương trỡnh với cỏc bộ dữ liệu thớch hợp
* GV chỉnh sử và đưa ra chương trỡnh đỳng
Program phanloai;
Uses crt;
Var I,n,G,K,TB,kem: integer; diem: array [1..100] of real; BEGIN
Clrscr;
Write(‘nhap so HS trong lop n=’); readln(n); Writeln(‘nhap diem:’);
{nhập điểm}
For i:=1 to n do Begin
Write(‘diem[‘,1,]=’); readln(diem[i]); end; G:=0; K:=0; TB:=0; kem:=0;
{dem so học sinh kha_gioi_TB_kem}
For i:= 1 to n do Begin
If diem[i] >=8.0 then G:=G +1;
If (diem[i] <8.0) and (diem[i] >6.5) then K:=K+1; If(diem[i]<6.5) and (diem[i]>=5.0 then TB:=TB+1; If diem[i] <5.0 then K:=K+1;
End;
{in kết quả}
Writeln(‘ Ket qua học tap:’); Writeln(G,‘ Ban hoc giỏi’); Writeln(K,‘ Ban hoc kha’);
Writeln(TB,‘ Ban hoc trung bỡnh’); Writeln(kem,‘ Ban hoc kem’); Readln;
HĐ2: Viết chương trỡnh sử dụng biến mảng để nhập từ bàn phớm cỏc phần tử của một dóy số, độ dài của dóy cũng được nhập từ bàn phớm. Sau đú tớnh tổng cỏc phần tử của mảng đú.
Hoạt động giỏo viờn Hoạt động học sinh
- Gọi HS nờu cỏch khai bỏo bài toỏn - Cho HS tự thực hiện cỏch nhập móng
tương tự như cỏc bài đó học
- Cho HS dựa vào thuật toỏn soạn thảo chương trỡnh trờn mỏy.
- Kiểm tra lỗi chớnh tả, chỉnh sửa lỗi và cho chạy chương trỡnh với cỏc bộ dữ liệu thớch hợp * GV chỉnh sử và đưa ra chương trỡnh đỳng
Program CT;
Var a:array[1..100] of integer; S,i:integer;
Begin
Writeln(‘nhap do dai cua day n=’); Readln(n); {nhập mảng} For i:=1 to n do Begin Writeln(‘a[‘,i,’]=’); Readln(a[i]); End; {tớnh tổng s} S:=0;
For i:=1 to n do S:= s + a[i];
Writeln(‘ tong cua ‘,n,’ phan tu la:’,s); Readln;
End.
D. Tổng kết đỏnh giỏ:
- Lưu ý một số tồn tại trong quỏ trỡnh thực hành.
- Tuyờn dương những học sinh làm tốt, động viờn khớch lệ những học sinh cũn thao tỏc chậm. - Về nhà phõn tớch làm lại cỏc bài tập.