Tải bản đầy đủ (.pdf) (7 trang)

Giáo án tin học 7_ tiết 16 doc

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (128.2 KB, 7 trang )

Tiết 16
Thực hành

A.MỤC TIÊU
Rèn luyện kỹ năng viết chương trình Pascal trên máy
vi tính về tính giá trị biểu thức .
Thao tác làm việc với máy tính nhanh, chính xác, gọn,
đẹp
B. CHUẨN BỊ:
1.Giáo viên: Phòng máy, phiếu học tập, bài tập thực
hành.
2.Học sinh: Kiến thức bài cũ, vở ghi, đồ dùng học tập.
C.CÁC HOẠT ĐỘNG DẠY HỌC.
1.Ổn định tổ chức
Kiểm tra sĩ số lớp:
Lớp
7A1:…………………………………………
……
Lớp 7A2
:……………………………………………

2.Hoạt động thực hành: Chia lớp làm 2 ca
3.Dạy thực hành:
Khởi động máy, gọi học sinh theo từng nhóm tương
ứng với các máy.
Phát phiếu học tập có nội dung bài tập thực hành cho
học sinh theo từng máy.
Các nhóm máy tiến hành làm bài thực hành.
Hoạt động của giáo viên và học
sinh
Nội dung






GV: Yêu cầu các nhóm thực
hành theo
máy, nhận phiếu học tập và làm
theo yêu cầu của bài thực hành







Tiết 16: Thực hành
Bài tập thực hành
1. Cho a, b, d, h lần lượt là số đo
ba cạnh của một tam giác và số
đo chiều cao tương ứng của cạnh
có số đo là a. Viết chương tính
chu vi và diện tích tam giác đó.
2. Viết chương trình tính giá trị
của biểu thức
A = ( 3 – m )x
2
+ 2mx + m
+ 2
Chữa bài thực hành
1.

Program Tam_giac ;
Var a, b, d, h, S , C :

HS: Thực hành








GV: Hướng dẫn theo từng máy
yêu cầu học sinh trong cùng một
máy thay đổi nhau để thực hành.


Real;
Begin
Write(‘Tinh chu vi và dien tich
cua tam giac’);
Write (‘ Cho biet so do canh a
= ‘);
Readln ( a );
Write (‘ Cho biet so do canh b
= ‘);
Readln ( b );
Write (‘ Cho biet so do canh d
= ‘);
Readln ( d );

Write (‘ Cho biet so do chieu
cao h = ‘);











HS: Thực hành

Readln ( d );
S : = ( a * h ) / 2;
C : = ( a + b + d );
Writeln (‘ Dien tich cua tam
giac là : ‘, S : 4 : 1 );
Writeln (‘ Chu vi cua tam giac
la : ‘, C : 4 : 1 );
Readln ;
End.
2.
Program
Tinh_gia_tri_bieu_thuc ;
Var A, x, m : Real;
Begin
Write(‘Tinh gia tri cua cac bieu

thuc’);
Write (‘ Cho biet gia tri cua
m = ‘);
Readln ( m );
Write (‘ Cho biet gia tri cua x =
‘);
Readln ( x );
A : = (3 – m) * x * x + 2 * m * x
+ m + 2 ;
Writeln (‘ Gia tri cua bieu thuc
A = ‘, A : 4 : 1 );
Readln ;
End.
4.Củng cố và hướng dẫn về nhà
Yêu cầu học sinh chữa bài thực hành vào vở
Ôn lại tất cả các kiến thức đã học để cho tiết ôn
tập
Yêu cầu học sinh tắt máy trước khi nghỉ
D.RÚT KINH NGHIỆM:
………………………………………………………………
………………………………………………………………
………………………………………………………………
………………………………………………………………
………………………………………………………………
………………………………………………………………
………………………………………………………………
……

===========================


×