Giáo án Tin học 8 - Tiết 36: Ôn tập thực hành - Năm học 2009-2010

Mục tiêu: - Viết được chương trình Pascal của 3 bài toán tính diện tích hình chữ nhật, tam giác, hình tròn.. Chuẩn bị: GV: Phòng máy.[r]

Trang 1

GIÁO ÁN TIN HỌC 8

Tiết PPCT: 36

Ngày soạn: 28/11/2009

Ngày dạy: / /2009 – / /2009

ÔN TẬP THỰC HÀNH

I Mục tiêu:

- Viết được chương trình Pascal của 3 bài toán tính diện tích hình chữ nhật, tam giác,

hình tròn

II Chuẩn bị:

GV: Phòng máy

HS: SGK, dụng cụ học tập đầy đủ

III Hoạt động dạy học:

1/ Ổn định tổ chức: Yêu cầu hs báo cáo sĩ số, kiểm diện học sinh, nộp câu hỏi TN, nộp

bài tập về nhà (1’)

2/ Kiểm tra bài cũ:

- Đặt câu hỏi chung cho cả lớp:

1 Cho biết thuật toán tính diện tích

hình A được ghép từ hình chữ nhật

và hình bán nguyệt

- Y/c 1 HS lần lượt trả lời các câu hỏi

trên

- Y/c nhóm HS nhận xét, đánh giá

HS trả lời câu hỏi

- 1 HS trả lời các câu hỏi của GV (trình bày trên bảng)

- Nhóm HS nhận xét, đánh giá HS trả lời câu hỏi

- Vấn đáp giữa giáo viên, học sinh để ôn lại bài cũ

- Nhóm HS nhận xét, đánh giá HS trả lời câu hỏi

3/ Bài mới:

Những tiết trước chúng ta

đã ôn tập nhiều về phần lý

thuyết, tiết này, chúng ta sẽ

viết chương trình trên máy

tính

- Y/c Hs ghi nhận đề bài

- Y/c lần lượt 3 Hs lên bảng

viết chương trình

- Y/c Hs nhận xét, sửa chửa

(nếu có)

- Nhận xét bài làm của học

sinh

- Y/c Hs nhập nội dung

chương trình vào môi trường

lập trình Pascal

- Theo dõi, quan sát, trợ giúp

HS

- Viết chương trình theo yêu cầu đề bài

- Nhập nội dung chương trình

- Viết chương trình tính diện tích hình tam giác.

Program Dientichtamgiac; Uses Crt;

Var h,a: Integer;

Begin Clrscr;

Write(‘Nhap do dai canh day a=’);Read(a);

Write(‘Nhap chieu cao h=’);Read(h);

Write(‘Dien tich hinh tam giac la:’ , a*h/2);

Readln;

End

- Viết chương trình tính diện tích hình chữ nhật.

Program Dientichhinhchunhat; Uses Crt;

Var a,b: Integer;

TG

30’

5’

TG

Lop8.net

Trang 2

Begin Clrscr;

Writeln(‘nhap chieu rong hinh chu nhat a=’);Read(a); Writeln(‘nhap chieu dai hinh chu nhat b=’);Read(b); Writeln(‘Dien tich hinh chu nhat la:’ , a*b);

Readln;

End

- Viết chương trình tính diện tích hình tròn.

Program Dientichhinhtron; Uses Crt;

Var r: Integer;

Begin Clrscr;

Write(‘Nhap ban kinh r=’);Read(r);

Write(‘Dien tich hinh vuong la:’ , r*r*3.14);

Readln;

End

4 Củng cố, dặn dò:

* Củng cố:

- Gọi 2 -3 Hs thực hiện lại những

thao tác nhập chương trình

* Dặn dò:

- Yêu cầu hs về nhà xem lại nội dung

lý thuyết - Hs trả lời và nhận xét từng câu hỏi của GV

- Hs trả lời một số câu hỏi của GV đặt ra

9’

TG

Lop8.net