Tin 8 Tuần 31
Chia sẻ bởi Hoàng Trung Kiên |
Ngày 14/10/2018 |
52
Chia sẻ tài liệu: Tin 8 Tuần 31 thuộc Tin học 8
Nội dung tài liệu:
Tuần 31
Tiết 59 NS: 11/04/2010
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.
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…
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;
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.
Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ?
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.
V. Dặn dò:
- Tiết sau thực hành: “ Bài thực hành số 7 (tt)
Tuần 31
Tiết 59 NS: 11/04/2010
NG: 13/04/2010
Bài thực hành số 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt
Tiết 59 NS: 11/04/2010
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.
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…
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;
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.
Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ?
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.
V. Dặn dò:
- Tiết sau thực hành: “ Bài thực hành số 7 (tt)
Tuần 31
Tiết 59 NS: 11/04/2010
NG: 13/04/2010
Bài thực hành số 7
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Hoàng Trung Kiên
Dung lượng: 61,50KB|
Lượt tài: 0
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)