3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRÒ NỘI DUNG
Hoạt động 1: Ôn tập lí thuyết GV: yêu cầu học sinh nhớ lại kiến thức và
trả lời các câu hỏi.
a) Nêu lại cú pháp khai báo biến mảng.
b) Nêu lợi ích của việc sử dụng biến mảng.
- HS Suy nghĩ và trả lời câu hỏi
Hoạt động 2: Bài tập.
? Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình
- Yêu cầu hs suy nghĩ và viết chương trình.
Program
MAX_MIN_AVG;
Uses crt;
Var a:array[1..20]of
- Hs Suy nghĩ và viết chương trình
Program MAX_MIN_
AVG;
Uses crt;
Var a:array[1..20]of
integer;i,n,max,min,sum:integer;
Begin Clrscr;
Writeln('TIM MAX, MIN,
AVERAGE CUA MOT DAY SO');
integer;i,n,max,min,sum:integer; Begin Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO');
Writeln('---');
Write('Nhap so phan tu cua day n=');
readln(n);
For i:=1 to n do Begin
Write('Nhap a[',i,']=');readln(a[i]);
End;
Min:=a[1];
Max:=a[1]; Sum:=0;
For i:=1 to n do Begin
If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
Sum:=sum+a[i];
End
Writeln('Day so vua nhap la: ');
Writeln('---');
For i:=1 to n do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max);
Writeln('gia tri nho nhat la:',Min);
Writeln('gia tri trung binh la:',Sum/n:6:2);
Readln;
End;
Writeln('--- ---');
Write('Nhap so phan tu cua day n=');
readln(n);
For i:=1 to n do Begin
Write('Nhap a[',i,']=');readln(a[i]);
End;
Min:=a[1];
Max:=a[1];
Sum:=0;
For i:=1 to n do Begin If (Min >
a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
Sum:=sum +a[i];
End
Writeln('Day so vua nhap la: ');
Writeln('--- ----');
F or i:=1 to n do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max);
Writeln('gia tri nho nhat la:',Min);
Writeln('gia tri trung binh la:',Sum/n:6:2);
Readln;
End;
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ
1. Củng cố: Chỉ ra những khiếm khuyết mà học sinh còn mắc phài, yêu cầu khắc phục 2. Hướng dẫn về nhà: về nhà xem trước bài thực hành
Tiết: 62
Tuần: 31
Bài thực hành số 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
I. MỤC TIÊU CẦN ĐẠT 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Ị CỦA GIÁO VIÊN VÀ HỌC SINH 1. Sách giáo khoa, giáo án.
2. Đọc bài trước ở nhà.
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC 1. Ổn định lớp
2. Kiểm tra bài cũ 3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRÒ NỘI DUNG
Hoạt động 1: Bài 1 Chương trình tìm giá trị nhỏ nhất
trong dãy số nguyên P_Min ?
HS chia nhóm làm thực hành.
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 =
Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ?
',Min);
readln;
End. 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.
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 Hoạt động 2: Bài tập 2
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.
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
HS chia nhóm làm thực hành.
GV gợi ý:
- Dùng câu lệnh if…then…
Program Phan_loai;
uses crt;
Var
i, n, G, Kh, TB, K: integer;
A: array[1..100] of real;
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.
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ 2. Củng cố: đánh giá giờ thực hành.
3. Hướng dẫn về nhà: về nhà xem tiếp phần còn lại