-Về kỹ năng: + Hs thực hành khai báo và sử dụng biến mảng + Hs ôn luyện cách sử dụng câu lệnh if … then, for…do + Hs hiểu và viết được chương trình với thuật toán tìm giá trị lớn nhất, n[r]
Trang 1Tuần 57,58 Ngày soạn:
Bài thực hành 7: Xử lý dãy số trong chương trình
I./ Mụcđích yêu cầu:
-Về kiến thức: Hs nhắc lại cách khai báo dãy, chỉ số, phần tử của dãy
-Về kỹ năng:
+ Hs thực hành khai báo và sử dụng biến mảng
+ Hs ơn luyện cách sử dụng câu lệnh if … then, for…do
+ Hs hiểu và viết được chương trình với thuật tốn tìm giá trị lớn nhất, nhỏ nhất của một dãy số, tính tổng của dãy số
-Về thái độ: Hs cĩ thái độ cẩn thận trong viết chương trình, tạo thĩi quen học tập khoa học
II./ Phương pháp,phương tiện:
-Phương pháp trực quan, thực nghiệm, thảo luận và nêu vấn đề
III./ Lưu ý sư phạm:
IV./ Hoạt động dạy học:
Hoạt động của giáo viên Hoạt động của HS Nội dung bài học
HĐ1: Kiểm tra bài cũ (5 phút)
HĐ2: Thực hành bài 1,2
-GV: Chương trình tìm giá trị
nhỏ nhất trong dãy số nguyờn
P_Min ?
-GV yêu cầu hs chia nhĩm làm
thực hành
-GV: 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á, TB và
kém
-Tất cả hs đọc đề
và chuẩn bị
-Hs tổ chức thực hành theo nhĩm
Bài 1:
Program P_Min;
Var
i, n, Min : 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;
Min:=a[1];
for i:=2 to n do if Min>a[i] then
Min:=a[i];
write('So nho nhat la Min = ',Min); readln;
End.
Bài 2:
Program Phan_loai;
uses crt;
Var
i, n, G, Kh, TB, K: integer;
A: array[1 100] of real;
Trang 2Tiê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
-GV cho hs chia nhóm làm thực
hành
-GV gợi ý:
Dùng câu lệnh if…then…
-GV: Viết chương trình tính tổng
dãy số, in ra màn hình dãy số vừa
nhập
-GV cho hs chia nhóm làm thực
hành
-Hs tổ chức thực hành theo nhóm
-Hs tổ chức thực hành theo nhóm
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
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];
write('Day so vua nhap la: ');
for i:=1 to n do write(a[i], ' ');
writeln;
write('Tong day so la = ',Sum); readln;
End.
Trang 3-GV:Bổ sung và chỉnh sửa
chương trình trong BT2 để 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
-GV cho hs chia nhóm làm thực
hành theo nhóm
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.
V.Củng cố, dặn dò:
VI./ Rút kinh nghiệm tiết dạy