- Viết một chương trình có sử dụng hàm hoặc thủ tục.
4) Sử dụng thư viện:
Muốn sử dụng các thủ tục và hàm chuẩn của một thư viện nào đó (trừ system) phải dùng lệnh khai báo:
Uses unit1,unit2,…,unit N
Trong đó, uses là từ khoá, unit1, unit2,… là tên các thư viện (được viết cách nhau bởi dấu phẩy) Khai báo này phải là lệnh đầu tiên trong phần khai báo (nghĩa là nó chỉ viết sau khai báo tên chương trình)
Ví dụ : uses crt,dos,graph;
4) Tổng kết nội dung, đánh giá cuối bài:
- Giới thiệu một số thư viện, thủ tục và hàm trong Pascal. - Một số thủ tục dung vẽ hình đơn giản như hình vuơng, hình trịn
5)Dặn dò , kế hoạch học tập tiết sau :
- Tìm hiểu cách sử dụng hàm và thủ tục, khả năng về đồ hoạ trong Pascal. - Lưu ý khi sử dụng nhiều thư vịên cần phải khai báo như thế nào
IV) Những vấn đề cần rút kinh nghiệm:.
Ngày soạn : 20 / 03 / 2010
Chương IV: KIỂU DỮ LIỆU CÓ CẤU TRÚC
BAØI TẬP VAØ THỰC HAØNH 8
Tiết PPCT : 49
I)Mục đích, yêu cầu: 1) Kiến thức :
- Khả năng đồ hoạ của Pascal.
2) Kỹ năng:
- Vẽđược một số hình ảng đơn giản như đường thẳng, hình vuơng, hình chữ nhật, elip…
3) Thái độ: II) Chuẩn bị: II) Chuẩn bị:
1) Tài liệu, bài tập:
- Sách giáo khoa, giáo án , một số bài tập và câu hỏi trong sách giáo khoa.
2) Dụng cụ , thiết bị:
- Phòng máy. Máy chiếu.
III) Tiến trình lên lớp:
1) Ổn định, tổ chức lớp: sỉ số, tình hình chuẩn bị trước tiết học, trật tự lớp.
2) Kiểm tra bài cũ:
- Các bài tập trong BT & TH 7 - Sơ nét về đồ hoạ.
3) Bài giảng:
a) Chương trình sau đây vẽ các đường gấp khúc “ ngẫu nhiên “ nhờ thủ tục Lineto, mỗi đoạn có một màu ngẫu nhiên. Vị trí bắt đầu vẽ là tâm của màn hình. Kết thúc việc vẽ bằng cách nhấn một phím bất kì. Chạy thử chương trình và quan sát kết quả trên màn hình
uses crt;
var stop:boolean;
function DetectInit (path : string): integer; var drive,mode :integer;
begin
drive := 0;
InitGraph(drive, mode, path); DetectInit := GraphResult; End;
If Detectinit(‘C:\TP\BGI’) <> 0 then Begin
Write(‘Loi do hoa . Nhan phim enter de ket thuc’); Readln;
End Else Begin
Randomize;
Moveto (Getmaxx div 2, Getmaxy div 2); stop : = false;
While not (stop) do Begin
Setcolor(Random(GetMaxColor)); {Thiet lap mot cach ngau nhien}
Lineto (Random(Getmaxx), Random(Getmaxy)); Delay(200); Stop :=Keypressed; End; End; ClsoeGraph; End.
4) Tổng kết nội dung, đánh giá cuối bài:
- Giới thiệu môi trường đồ hoạ trong Pascal. - Định vị màn hình
- Vẽ các hình đơn giản
5)Dặn dò , kế hoạch học tập tiết sau :
- Oân tập kiến thức đã được học. - Đặt câu hỏi ơn tập
IV) Những vấn đề cần rút kinh nghiệm:.