Làm ví dụ về Funtion trong Pascal cho vui

[NguyenLoan]

Program Vidu ; Uses Crt ; (* Crt là một Unit chứa các chương trình con về màn hình, bàn hình... *) Var A, B, C, D : Integer ; Z : Real ; (* ---------------------------------------------------------------------- *) Procedure Tieu_de ; Begin Writeln (' **************************************** ') ; Writeln (' * MINH HOA CHUONG TRINH CON * ') ; Writeln (' **************************************** ') ; End ; (* ------------------------------------------------------------------- *) Procedure Enter (Var X, Y : Integer ) ; Var OK : Char ; Begin Repeat Write (' Tu so = ') ; Readln (X) ; Write (' Mau so = ') ; Readln (Y) ; Write (' Co sua so lieu khong (c, k) ? ') ; OK := Readkey ; Writeln ; Until (OK = ' K ') or (OK = ' k ') ; End ; (* ------------------------------------------------------------------- *) Function Chia (X, Y : Integer) : Real ; Begin If Y <> 0 Then Chia := X / Y Else Begin Writeln (#7,' Khong chia duoc cho 0.') ; (* Máy sẽ báo lỗi nếu mẫu số là 0 *) Halt ; (* Thu tuc Halt dung chuong trinh lai *) End ; End ; (* ------------------------------------------------------------------- *) BEGIN Tieu_de ; Enter (A, B) ; Enter (C, D) ; Z := Chia (A, B) * Chia (C, D) ; Writeln (' Ti so (A / B) * (C / D) la : ', Z) ; Writeln (' Hay an Enter de ket thuc ! ') ; Readln ; END.