Nhận xét rằng trong chương trình này hàm tính diện tích tam giác được định nghĩa ở đầu chương trình bởi tên DT và ba đối số hình thức C1, C2, GOC và giá trị của hàm được tính chỉ bằng một lệnh gán (dòng lệnh thứ ba). Trong chương trình, ở các dòng lệnh thứ 10−12 ta gọi hàm ba lần, mỗi lần ta chuyển các biến khác nhau vào vị trí của các đối số hình thức. Kiểu dữ liệu của hàm DT được mô tả tường minh tại lệnh mô tả REAL ở đầu chương trình....
5 FORMAT (1X, 3F7.2) END Nhận xét chương trình hàm tính diện tích tam giác định nghĩa đầu chương trình tên DT ba đối số hình thức C1, C2, GOC giá trị hàm tính lệnh gán (dịng lệnh thứ ba) Trong chương trình, dịng lệnh thứ 10−12 ta gọi hàm ba lần, lần ta chuyển biến khác vào vị trí đối số hình thức Kiểu liệu hàm DT mô tả tường minh lệnh mô tả REAL đầu chương trình Trong chương trình góc cho rađian Nếu góc nhập vào cho độ để không cần chuyển đổi thành rađian trước gọi hàm DT tính diện tích, ta định nghĩa lại hàm DT sau: DT(C1, C2, GOC) = 0.5*C1*C2*SIN (GOC * 3.14159 / 180.0) 8.2.2 Hàm chương trình Thực chất hàm chương trình hàm người lập trình tự xây dựng, người ta cịn gọi hàm người dùng định nghĩa Hàm loại khác với hàm lệnh chỗ tính khơng phải lệnh gán mà số lệnh Hàm chương trình bắt đầu với lệnh khơng thực để đặc tả hàm tên danh sách đối số sau FUNCTION Tên hàm (danh sách đối số) Sau lệnh mơ tả tính tốn, lệnh RETURN chuyển điều khiển chương trình lệnh END báo cho chương trình dịch kết thúc chương trình Tên hàm chọn theo quy tắc tên hằng, tên biến Fortran Tên hàm có ý nghĩa mơ tả ẩn kiểu giá trị hàm chương trình chưa khai báo tường minh Trong danh sách đối số có từ hai đối số trở lên đối số cách dấu phảy Tên đối số có ý nghĩa mô tả ẩn kiểu liệu đối số Tuy nhiên, nên mô tả tường minh đối số hàm phần khai báo biến hàm Trong phần khai báo này, đối số cịn khai báo biến khác dùng nội hàm chương trình Vậy hình dáng tổng quát hàm chuơng trình sau: FUNCTION Tên (đối số 1, đối số 2, ) Các lệnh mô tả đối số, biến cục Các lệnh thực RETURN END Các hàm chương trình viết tách khỏi chương trình nằm sau lệnh END chương trình Trong chương trình chính, cần tới hàm người ta thường dùng lệnh gán để gán giá trị tính hàm vào biến dùng trực tiếp tên hàm biểu thức Những giá trị đối số thực tế gửi vào đối số hình thức phải phù hợp kiểu danh sách đối số Ta xét thí dụ xây dựng hàm cách dùng chương trình qua thí dụ 24 Thí dụ 24: Các mơ hình số thường tính giá trị thành phần kinh hướng Vk vĩ hướng Vv tốc độ gió điểm khác Từ cặp giá trị thành phần kinh hướng vĩ hướng cần tính tốc độ V hướng gió d Tốc độ gió tính cơng thức V = Vk2 + Vv2 , cịn hướng gió (góc vectơ gió hướng bắc) tính theo cơng thức 72 ⎧α ⎪ ⎪180 − α d=⎨ ⎪180 + α ⎪360 − α ⎩ α = 180 π arctg nÕu Vv ≥ 0, Vk > nÕu Vv ≥ 0, Vk < nÕu Vv < 0, Vk < nÕu Vv < 0, Vk > Vv Vk Giả sử giá trị thành phần kinh hướng vĩ hướng tốc độ gió hư sau: n n mx = ∑ xi i=1 n , Dx = ∑ xi2 i=1 n −1 − mx2 , σ x = Dx Ta thấy đại lượng tính hàm riêng biệt Nhưng ta tính ln lúc ba đại lượng cách tổ chức tính chúng thủ tục Chương trình cho phép đọc vào kích thước n giá trị chuỗi x Sau gọi thủ tục STAT để tính đặc trưng thống kê Cuối in kết Thấy thủ tục STAT có tất đối số hình thức, hai đối số đầu vào mảng chiều X kích thước mảng N, ba đối số đầu AVER, VARI STDV Khi gọi thủ tục chương trình chính, ta gửi vào đối số thực tế X, N, TBINH, PSAI DLC Kết tính trung bình, phương sai độ lệch chuẩn thủ tục chương trình lưu vào biến TBINH, PSAI, DLC chương trình Hãy ý rằng: thủ tục chương trình mơđun độc lập, nên tên đối số trùng với tên biến chương trình chính, thí dụ đối số X N Ở ta thấy, chương trình con, định nghĩa kích thước mảng biến N (trong lệnh REAL X(N)) Nhớ điều cho phép chương trình 79 * PROGRAM THKE INTEGER N, I REAL X(99), TBINH, PSAI, DLC PRINT *, ' NHAP DO DAI CHUOI (