Chương trình loại thủ tục Chương trình loại thủ tục Bởi: PGS TS NGƯT Phạm Văn Huấn Trong chương nghiên cứu hàm chuẩn, hàm lệnh hàm người lập trình tự xây dựng Trong hàm giới hạn việc tính giá trị, thủ tục chương trình (hay gọi thủ tục người lập trình tự xây dựng) tính số giá trị, thực số thao tác Trong ta học cách viết thủ tục sử dụng thủ tục toán ứng dụng Khai báo gọi chương trình thủ tục Nhiều quy tắc viết sử dụng thủ tục chương trình giống quy tắc hàm chương trình Dưới liệt kê khác biệt thủ tục hàm 1) Một thủ tục không biểu diễn giá trị, tên đại diện cho đoạn chương trình, không định kiểu liệu đầu 2) Dòng lệnh thủ tục thông báo tên thủ tục danh sách đối số SUBROUTINE Tên thủ tục (danh sách đối số) 3) Chương trình gọi thủ tục lệnh CALL có dạng tổng quát sau: CALL Tên thủ tục (danh sách đối số) 4) Thủ tục dùng danh sách đối số không cho đầu vào mà cho giá trị gửi chương trình gọi Các đối số thủ tục dùng lệnh CALL đối số thực tế, đối số sử dụng thủ tục đối số hình thức Các đối số lệnh CALL phải phù hợp kiểu, số lượng thứ tự với đối số thủ tục 1/11 Chương trình loại thủ tục 5) Một thủ tục tính giá trị, nhiều giá trị không giá trị Một thủ tục sử dụng giá trị đầu vào, nhiều giá trị đầu vào giá trị đầu vào 6) Nhãn lệnh, tên biến thủ tục chọn độc lập với chương trình Những biến dùng thủ tục mà đối số thủ tục gọi biến cục bộ, giá trị chúng không xử lý chương trình 7) Cần đặc biệt thận trọng sử dụng mảng nhiều chiều thủ tục Nên định kích thước khai báo kích thước sử dụng thực tế với mảng hai nhiều chiều 8) Giống hàm, lệnh RETURN cuối thủ tục dùng để chuyển điều khiển trở chương trình chính, lệnh END để báo kết thúc thủ tục 9) Trong lưu đồ khối thao tác thực bên thủ tục ký hiệu biểu tượng đồ họa sau đây: 10) Một thủ tục dùng hàm khác gọi thủ tục khác, tự gọi (Trong Fortran 90 cho phép dùng thủ tục đệ quy tự gọi mình.) Những thí dụ ứng dụng chương trình thủ tục Những thí dụ giúp học cách viết thủ tục sử dụng chương trình Thí dụ 27: Chương trình tính đặc trưng thống kê: trung bình, phương sai độ lệch chuẩn chuỗi x gồm n số liệu quan trắc Các công thức sau tính sau: mx = ∑n x i=1 i n ,Dx = ∑n x2 i=1 i n−1 − m2x ,σx = √Dx Ta thấy đại lượng tính hàm riêng biệt Nhưng ta tính 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 2/11 Chương trình loại thủ tục 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 PROGRAM THKE INTEGER N, I REAL X(99), TBINH, PSAI, DLC PRINT *, ' NHAP DO DAI CHUOI ([...].. .Chương trình con loại thủ tục ci,j = ∑mk = 1 ai,kbk,j(i = 1, ,n;j = 1, ,l) Viết thủ tục TICHMT (A, B, N, M, L, C) với các đối số đầu vào là ma trận A, ma trận B , các tham số N, M, L và đối số đầu ra là ma trận C 5 Hệ phương trình đại số tuyến tính n ẩn a11x1 + a12x2 + + a1nxn b1 a21x1 + a22x2 + + a2nxn b2 ... được viết dưới dạng ma trận như sau Ax=b trong đó A = (aij) = ( a11 a12 a1n a21 a22 a2n an1 an2 ann ) () () b1 ;b= b2 bn x1 ;x= x2 xn Hãy viết thủ tục GAUSS (A, B, N, X) nhận vào các mảng A, B, số ẩn N của hệ và tính ra mảng X theo phương pháp loại biến của Gauss Xem giải thích về phương pháp Gauss trong phụ lục 2 11/11 ... 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 2/11 Chương trình loại thủ tục Thấy thủ tục STAT có... khác gọi thủ tục khác, tự gọi (Trong Fortran 90 cho phép dùng thủ tục đệ quy tự gọi mình.) Những thí dụ ứng dụng chương trình thủ tục Những thí dụ giúp học cách viết thủ tục sử dụng chương trình. .. biến thủ tục để tránh định kiểu ngầm định sai 3) Sử dụng lệnh PRINT thủ tục để định vị lỗi 4) Kiểm tra thử thủ tục trước gộp chúng vào chương trình với chương trình khác 5) Kiểm tra thủ tục với