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.. Tiến trình thực hành: Hoạt động của thầy Hoạt động của trò Nội dung Chương trình tìm gi
Trang 1Tuaàn 31
NG: 13/04/2010
Bài thực hành số 7
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ị:
Nội dung bài thực hành, máy tính điện tử
III Tiến trình thực hành:
Hoạt động của thầy Hoạt động của trò Nội dung
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
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);
Chương trình tìm giá trị nhỏ nhất trong dãy
số nguyên
P_Min ?
Trang 2Viế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…
readln;
End.
Bài 2:
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
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
IV Nhận xét
Giáo viên nhận xét và đánh giá tiết thực hành
Trang 3V Dặn dò:
- Tiết sau thực hành: “ Bài thực hành số 7 (tt)
Tuaàn 31
NG: 13/04/2010
Bài thực hành số 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt)
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ị:
Nội dung bài thực hành, máy tính điện tử
III Tiến trình thực hành:
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
Chương trình tính tổng dãy số, in ra màn hình dãy số vừa nhập
Trang 4Bổ 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
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.
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;
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
Trang 5IV Nhận xét
Giáo viên nhận xét và đánh giá tiết thực hành
V Dặn dò:
- Về nhà xem lại bài để chuẩn bị tốt cho bài kiểm tra 45 phút ở tiết sau
