Phần khai báo dùng để xác định các hằng, biến và cũng có thể xác định chương trình con khác được sử dụng trong thủ tục. Dãy câu lệnh được việt giữa cặp tên dành riêng begin và end tạo t[r]
(1)ƠN TẬP HỌC KÌ II MƠN TIN HỌC 1 Khái niệm chương trình con
Chương trình dãy lệnh mô tả số thao định thực nhiều vị trí chương trình
Lợi ích chương trình con
Tránh việc phải viết lặp lặp lại dãy lệnh Hỗ trợ việc thực chương trình
Phục vụ cho q trình trừu tượng hóa Mở rộng khả ngôn ngữ
Thuận tiện cho việc phát triển, nâng cấp chương trình
2. Phân loại cấu trúc chương trình con Chương trình gồm loại:
Hàm (function)là chương trình thực số thao tác trả
giá trị qua tên Ví dụ hàm tốn học hay xử lý xâu: Sin (x) nhận giá trị thực x trả giá trị x Sqrt (x) nhận giá trị trả giá trị bậc x Length (x) nhân xâu x trả độ dài xâu x
Thủ tục (procedure) chương trình thự thao tác định
nhưng không trả giá trị qua tên Ví dụ thủ tục vào/ra chuẩn hay thủ tục xử lý xâu: Writeln, readln, delete, insert,…
Cấu trúc chương trình
<phần đầu> [<phần khai báo>]
<phần thân> Phần khai báo
Phần khai báo có khai báo biến cho liệu vào ra, biến dùng chương trình
Phần thân
Phần thân chương trình dãy câu lệnh thực để từ liệu vào ta nhận liệu hay kết mong muốn
Tham số hình thức
Các biến khai báo cho liệu vào/ra gọi tham số hình thức chương trình Tham số thực sự
Chương với tham số biến chứa liệu vào tương ứng với tham số hình thức đặt cặp ngoặc (và)
3 Cấu trúc thủ tục Thủ tục có cấu trúc sau
Procedure <tên thủ tục> [<danh sách tham số>]; [<phần khai báo>]
Begin
[<dãy lệnh>] End;
(2)Phần khai báo dùng để xác định hằng, biến xác định chương trình khác sử dụng thủ tục
Dãy câu lệnh việt cặp tên dành riêng begin end tạo thành thân thủ tục
4. Cấu trúc hàm
Function <tên hàm> [(<danh sách tham số>)]: <kiểu liệu>; [<phần khai báo>]
Begin
<tên hàm>: = <biểu thức>; End;
5. CRT
Thư viện CRT chứa thủ tục liên quan đến việc quản lí khai thác hình bàn phím , cho phép người lập trình điều khiển việc đưa liệu hình xây dựng hình bàn phím, dùng bàn phím điều khiển chương trình sử dụng âm để xây dụng chương trình mơ Các thủ tục tiện ích khác:
Thủ tục textcolor(color) đặc màu cho chữ hình Thủ tục textbackground (color) đặt màu hình Thủ tục GotoXY (x, y) đưa trỏ đến cột x dòng y
6. GRAPH
Thư viện GRAPH chứa hàm, thủ tục liên quan đến chế độ đồ họa loại hình khác cho phép thực thao tác đồ họa vẽ điểm, đường, tô màu
Các thiết bị chương trình đồ họa
Màn hình làm việc hai chế độ: chế độ văn chế độ đồ họa hình ảnh đồ họa xây dụng từ điểm sáng Mỗi điểm sáng điểm ảnh điểm ảnh đơn vị sở chế độ đồ họa
Khởi tạo chế độ đồ họa
Thủ tục thiết lập chế độ đồ họa:
Procedure initgraph (var driver, mode: integer; path: string); đó - driver số hiệu chương trình điều khiển BGI;
- mode số hiệu dộ phân giải; - path đường dẫn đến tệp BGI
Thủ tục vẽ điểm, đoạn thẳng
- Đặt màu cho nét vẽ
procedure setcolor (color: word) - Thủ tục vẽ điểm
procedure putpixel (x, y: integer; color: word); x, y tọa độ điểm
Vẽ đoạn thẳng xác định hai tọa độ đầu cuối
- procedure line (x1, y1, x2, y2: integer)
Đoạn thẳng nối điểm với điểm có tọa độ (x, y):
- procedure lineto (x, y: integer);
Vẽ đoạn thẳng nối điểm với điểm có tọa độ tọa độ cộng với gia số (dx, dy)
- procedure linerel (dx, dy: integer);
Hàm xác định giá trị lớn hình (x y) để biết độ phân
giải hình
- function getmaxX: integer; - function getmaxY: integer
Thủ tục chuyển trỏ tới tọa độ
(3) Vẽ đường trịn có tâm tâm (x,y), bán kính r:
- procedure circle (x,y: integer; r: word);
Vẽ cung elip có tâm điểm (x, y) với bán kính trục Xr, Yr từ gốc
khởi đầu stAngle đến góc kết thúc endAngle:
- procedure ellipse (x, y, integer; st, end, Xr, Yr: word)
Vẽ hình chữ nhật:
- procedure rectangle (x1, y1, x2, y2) Bảng màu:
Tìm giá trị nhỏ ba số Program minbaso;
Var a, b, c, real;
Function (a, b: real): real; Begin
If a<b then min: = a else min:= b End;
Begin
Write (‘nhap vao ba so: ’);
Readln (‘so nho nhat ba so la: ‘ ,min (min (a, b), c)); Readln
End.
Thủ tục cắt dán để tạo xâu abcd bcda
Type str79 = string [79];
Procedure catdan (s1: str79; var s2: str79); Begin
S2:= copy (s1,2,length (s1) -1) + s1 [1]; End;
Thủ tục giữa
Procedure cangiua (var s: str79); Var i, n: integer;
Begin
Màu Tên Giá trị
Đen Black
Xanh trời Blue
Xanh Green
Xanh lơ Cyan
Đỏ Red
Tím Mangenta
Vàng Yellow 14
(4)N:= length (a); N:= (80-n) div 2;
For i:= to n s:= ‘ ’ + s; End;
Chương trình vẽ hình Program graphdemo; Uses graph;
Var
Gd, gm: integer;
Xm, ym, xmaxD4, ymaxD4: word; Begin
Gd:= detect;
Initgraph (gd, gm, ‘C:\TP\BGI’);
Xm:= getmax div 2; ym:= getmaxy div 2); (Vẽ hình chữ nhật với nét vẽ màu vàng) Setcolor (yellow);
Rectangle (10, 10, xm, ym); Readln;
(vẽ đường tròn màu xanh lá, tâm (450; 100) bán kính 50) Setcolor (lightgreen);
Circle (450, 100, 50); Readln;
(vẽ elip màu đỏ) Setcolor (red);
Ellipse (100, 200, 0, 360, 50, 120); Readln;