Các chơng trình con là thành phần của Turbo Pascal bao gồm:
• Các hàm số học:ABS, ARCTAN, COS, SIN, EXP,LN,SQRT,SQR.
• Các hàm vô hớng:SUCC,PRED, ODD.
• Các hàm chuyển đổi: CHR, ORD, ROUND, TRUNC.
• Hàm Frac(x) cho giá trị là phần thập phân của x. • Hàm Int(x) cho giá trị là phần nguyên của x.
• Hàm Random, cho giá trị là số ngẫu nhiên nằm trong khoảng 0 và 1. • Hàm Random(n), cho giá trị số thực nằm trong khoảng từ 0 và n (n là số nguyên).
• Thủ tục Randomize, là thủ tục đảm bảo cho hàm Random chạy với một số ngẫu nhiên. Nên gọi thủ tục này trớc khi gọi Random.
• Hàm Upease(ch), cho ký tự chữ lớn tơng ứng với ch.
• Hàm KeyPressed (trong Crt), hàm cho kết quả True nếu ta gõ một ký tự, False nếu không gõ.
• Hàm ReadKey (trong Crt), đọc một ký tự từ bàn phím. • Thủ tục GotoXY (X,Y);(trong Crt).
• Hai hàm Wherex, Wherey cho toạ độ con trỏ.
• Thủ tục ClrScr;(trong Crt), xóa toàn bộ màn hình và đặt con trỏ vào vị trí phía trên, bên trái.
• Thủ tục ClrEof;(trong Crt), xoá toàn bộ các ký tự bên phải con trỏ màn hình, sau khi xoá con vẫn ở nguyên tại chỗ.
• Thủ tục DelLine;(trong Crt), xoá toàn bộ dòng màn hình chứa con trỏ, sau đó dồn các dòng ở phía lên.
• Thủ tục InsLine;(trong Crt), xen một dòng vào màn hình từ vị trí con trỏ. • Thủ tục LowVideo và NormVideo;(trong Crt), sau khi gọi LowVideo, mọi ký tự hiện ra màn hình đều có độ sáng yếu cho tới khi gọi thủ tục NormVideo.
• Thủ tục Delay(Time); (trong Crt), tạo ra khoảng thời gian trễ (khoảng ms). Time là một số nguyên. Delay thờng đợc dùng để làm chậm chơng trình lại cho ta quan sát, khảo sát...
• Thủ tục Sound(F) và NoSound; tạo ra âm thanh với tần số là F (F: số nguyên) cho đến khi ta gọi NoSound.
• Thủ tục Halt (trong System), dừng hoạt động chơng trình và trở về hệ điều hành.
• Thủ tục Exit, khi gặp thủ tục này trong chơng trình con thì kết thúc ch- ơng trình con đó và quay về chơng trình gọi nó.
• ...
Ví dụ 1
Dùng Sound(F), Delay(n) và NoSound để phát âm, kéo dài và tắt âm thanh.
Program AmThanh; Uses Crt; Var i:Integer; Begin For i:=100 To 1000 Do Begin
Sound(i); Delay(50); NoSound;
End; End.
Ví dụ 2: Dùng hàm Random để tạo các số ngẫu nhiên và dùng hàm Keypressed để điều khiển: Program ToSoNganNhien; Uses Crt; Procedure NgauNhien; Var Ch:Char; Begin Randomize; Repeat Writeln(Random); Until Keypressed; End; Begin NgauNhien; End.
Câu hỏi và bài tập
1. Thế nào là biến toàn cục và biến cục bộ cho ví dụ? 1. Nói rõ sự khác nhau giữa tham biến và tham biến trị? 2. Khi nào thì cần tham biến? Cho ví dụ minh hoạ. 3. Khi nào thì cần tham biến trị? Cho ví dụ minh hoạ.
4. Để đỡ rắc rối trong việc truyền tham biến nhiều khi ta khai báo biến toàn cục cho mọi chơng trình con, nhng phơng pháp này có hạn chế gì? Hãy chỉ ra.
5. X là biến toàn cục, trong thủ tục A cũng có khai báo biến X (cục bộ), đứng trong A nếu dùng X thì X đó là gì?(toàn cục hay cục bộ).
6. Cho xâu a=’0123456789’ hãy lâp một chơng trình con đảo thành a=’9876543210’ bạn thử viết cho cả đệ quy và không đệ quy.
7. Lập trình (theo kiểu thủ tục) giải phơng trình bậc nhất hai ẩn sau: ax+by=c.
Chơng 8: Kiểu bản ghi (Record).