Ngôn ngữ lập trình pascal 7 chương trình con hàm và thủ tục

Pascal dành cho Đại học nè các bạn vô đọc đi. miễn phí đó aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Đăng Nhập Đăng Ký Thành viên Diễn đàn Tìm diễn đàn Diễn đàn Recent Posts Lập Trình Pascal Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục Thảo luận 'Pascal' bắt đầu koolkiizz, 31/1/14 koolkiizz Moderator Like 60 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục (Lượt xem: 9,795) Chào mừng đến với loạt hướng dẫn lập trình Pascal ksec.info Chúng ta tìm hiểu cấu trúc Pascal cấu trúc rẽ nhánh, cấu trúc lặp, hôm nay, tìm hiểu cấu trúc khác, chương trình Để biết sao, mời bạn đọc viết I – Khái niệm Khái niệm chương trình con: Turbo Pascal ngôn ngữ có cấu trúc cao Do đó, chương trình lớn chia thành nhiều chương trình với hai mục đích : a) Dễ kiểm tra, dề điều khiển phần chương trình b) Tránh lặp lặp lại đoạn chương trình dùng nhiều lần Điều vừa gây thời gian cho người lập trình vừa làm cho chương trình thêm lôi thôi, thẩm mĩ Thủ tục hàm: Trong Pascal có hai loại chương trình : _ Procedure ( thủ tục ) _ Function ( hàm ) Sự khác hai loại chương trình :Functiontrả lại cho giá trị kết vô hướng thông qua tên củaFunctionvà sử dụng biểu thức CònProcedurekhông trả lại kết thông qua tên nên cácProcedurekhông thể viết biểu thức Cấu trúc Procedure Function: Code: http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 1/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Procedure Ten_thu_tuc ( Khai báo tham số hình thức ) ; (* Khai báo : Label, Const, Type, Var, Procedure Function *) ; Begin (* Thân chương trình *) End ; Function Ten_ham ( khai báo tham số hình thức ) : kieu_du_lieu_cua_ham ; (* Khai báo : Label, Const, Type, Var, Procedure Function *) ; Begin (* Thân chương trình *) End ; Thân chương trình đặt hai chữ Begin End với End kết thúc dấu chấm phẩy ( (.) chương trình dấu chấm Ví dụ thủ tục hàm: Code: Program Vidu ; Uses Crt ; (* Crt Unit chứa chương trình 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) ; Chương trình đọc cặp số nguyên A, B C, D, sau đọc tỉ số số qua Function Chia cuối tính tích tỉ số báo kết Như vậy, nhìn vào thân chương trình ta thấy công việc hình dung cách sáng sủa Đầu tiên, chương trình (CTC) Tieu_de có nhiệm vụ in vài dòng tiêu đề, CTC không cần tham số Procedure Entercó nhiệm vụ vào liệu X, Y, hai tham số hình thức, đồng thời kết Procedure Hai tham số thay hai tham số thực khai báo chương trình A B ta gọi Procedure câu lệnhEnter (A, B), tức A tương ứng với X B tương ứng với Y Lời gọi Enter (A, B)được hiểu đọc vào hai tham số A B Tương tự vậy, lần gọi thứ haiEnter (C, D)sẽ đọc hai giá trị hai tham số thực C D http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 2/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Trong CTC, ta có phần khai báo riêng Trong ví dụ trên, biến OK biến riêng hay thường gọi biến địa phương củaProcedure Enterđể phân biệt với biến toàn cục mô tả chương trình A, B, Z Function Chiacó hai tham số hình thức X Y Ta viết lời gọi Function biểu thức việc tính Z ví dụ Lời gọi Procedure không làm đươc tên Procedure giá trị Khi khai báo Function, ta phải khai báo thêm kiểu liệu Function Trong ví dụ trên,Function Chiacó kiểu Real, khác hai loại CTC Giả sử, để tính giá trị Z = (A / B) / (C / D), ta viết : Code: Z := Chia (Chia(A, B), Chia(C, D)) ; II – Chuyển tham số cho chương trình Chương trình khai báo mà không dùng tham số CTC tính toán trực tiếp với biến toàn cục CTC không dùng đến biến hay thủ tục Tieu_de mà ta xét trước Việc chuyển tham số cho CTC cấu thay tương ứng, cho phép trình lặp lặp lại nhiều lần với "toán hạng" khác Thí dụ Enter (A, B) thay A vào vị trí X, B vào vị trí Y Tương tự với Enter (C, D) Chuyển tham số biến : tham số hình thức phần tiêu đề CTC đặt sau từ khóaVar Với tham biến, tham số thực phải biến không giá trị Thí dụ lời gọi Enter (3, 7) không chấp nhận hai giá trị biến Các tham số thực tham biến thay đổi CTC khỏi CTC giữ giá trị thay đổi Khi khai báo tham số mà từ khóa Var nhóm tham số hình thức tham số nhóm tham số giá trị (tham trị) Khi tham số thực phải biểu thức Tham số hình thức tương ứng coi biến địa phương CTC, nhận giá trị tham số thực giá trị ban đầu vào thời điểm thay vào CTC Chương trình sau thay đổi giá trị tham trị bên CTC phép gán Song trường hợp điều không làm thay đổi giá trị tham số thực Do vậy, tham trị không kết tính toán CTC Sự khác hai loại tham số minh họa ví dụ sau : Code: http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 3/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Program Tham_so ; Var A, B : Integer ; (* - *) Procedure Thidu_Thamso (X : Integer ; Var Y : Integer) ; Begin X := X + ; Y := Y + ; Writeln (X : 6, Y : 6) ; End ; (* - *) BEGIN A := ; B := ; Thidu_Thamso (A, B) ; Writeln (A : 6, B : 6) ; END Kết cho : 14 04 Trong thí dụ trên, thủ tục Thidu_Thamso có hai loại tham số :tham trị Xvàtham biến Y Trước gọi thủ tục với hai tham số thực A B tương ứng A = B = Trong thủ tục ta có hai lệnh làm thay đổi giá trị A B cách tăng thêm Lệnh Writeln (X, Y)cho kết tương ứng Tuy nhiên sau khỏi CTC, lệnh Writeln (X, Y) báo cho ta giá trị B bị thay đổi CTC B tham biến, A giữ nguyên giá trị trước gọi thủ tục, tức A 0, A tham trị Như vậy, chuyển tham số cho CTC, ta muốn bảo vệ giá trị tham số khỏi bị CTC "vô tình phá" tham số phải dùng tham trị Còn tham số muốn dùng để lấy kết CTC đem lại tham số phải tham biến III – Biến toàn cục biến địa phương Xét ví dụ sau : Code: http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 4/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club PROGRAM VI_DU VAR X : Integer ; (* - *) Procedure A ; Var Y : Integer ; Procedure AA ; Var M,N : Integer ; Begin … End ; Procedure AB ; Var M,N : Integer ; Begin End ; Begin Như ta biết, biến khai báo chương trình gọi biến toàn cục Các biến dùng nơi chương trình Các biến khai báo CTC gọi biến địa phương có tác dụng phạm vi CTC hay Bloc Khi CTC kết thúc biến tác dụng theo Để diễn tả tầm tác dụng biến, khai báo, người ta đưa khái niệm mức : chương trình có mức 0, chương trình có mức 1,2, … tùy theo vị trí khai báo Trong hình 2, chương trình A B có mức 1, chương trình AA, AB, BA có mức Sau số quy tắc sử dụng : + Tầm tác dụng tên (biến, hằng, kiểu…) xác định mức Bloc tên khai báo mức Bloc khác có mức cao nằm Bloc chứa khai báo Trong ví dụ vừa rồi, biến Y khai báo CTC A (có mức 1) Như biến Y sử dụng CTC AA AB (là CTC có mức cao nằm CTC A) Ngoài Y sử dụng CTC B, BA, BB chúng CTC A + Tầm quan trọng biến khai báo mức (chương trình chính)là toàn chương trình + Ở mức khác CTC, ta khai báo biến có tên với biến mức khác Tên biến biến mà hai biến khác với tầm quan trọng khác Ví dụ hình 2, CTC B có biến địa phương X chương trình có biến toàn cụa có X Khi CTc biến X địa phương có tác dụng, CTC kết thúc biến toàn cục lại lấy lại tác dụng Hãy xét ví dụ cụ thể sau : Code: http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 5/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Program Tam_Tac_Dung) ; Var I : Integer ; (* Biến I toàn cục *) (* - *) Procedure Dia_Phuong ; Var I : Integer ; (* Biến I địa phương *) Begin I := ; Writeln (I : 6) ; End ; (* *) BEGIN I :=5 ; Writeln(I : 6) ; Dia_Phuong ; Writeln(I : 6) ; END Kết cho : (* giá trị I toàn cục *) (* giá trị I địa phương *) (* giá trị I toàn cục *) Tên biến I dùng cho biến toàn cục biến địa phương Đầu tiên biến I toàn cục nhận giá trị Sau thủ tụcDia_Phuongđược gọi, thủ tục có biến I (biến địa phương) nên biến I toàn cục xem tạm bị treo không dùng đến Biến địa phương lấy giá trị Sau kết thúc chương trình con, biến I địa phương bị biến I toàn cục lại khôi phục lại tác dụng Tất nhiên giữ giá trị giá trị có trước gọi thủ tụcDia_phuong Trong trường hợp thủ tụcDia_phuong, ta muốn chiếu đến biến I toàn cục, ta dùng cách rõ tên chương trình tên biến :Tam_tac_dung.i Cách tham chiếu tương tự ta đường dẫn trực tiếp DOS IV – Tính đệ quy chương trình TrongProcedurevàFunctioncó thể có lời gọi Tính chất dược gọi tính đệ qui Thí dụ tính giai thừa qua định nghĩa : N! = x x x ( N - ) x N định nghĩa : N! = N = N! = N x ( N - )! N >= Khi đó, hàmGiai_thuađược định nghĩa sau : http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 6/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Function Giai_thua( N : Integer ) : Integer ; Code: Begin If N = Then Giai_thua := ; Else Giai_thua := N * Giai_thua( N-1 ) ; End ; Một điều cần lưu ý ta phải thận trọng lường trước việc kết thúc trình đệ qui Trong thí dụ trên, lệnh gán : Code: K := Giai_thua( -1 ) ; khởi động tình đệ qui dài mặt lý thuyết tham số âm bị xử lý sai Ở thí dụ trên, ta khai báo giai_thua Integer nên bị hạn chế : tính với N < N >= 8,Giai_thuasẽ mang giá trị lớn 32767 giới hạn số nguyên Một biện pháp khắc phục ta khai báoGiai_thualà Real Code: Function Giai_thua( N : Integer ) : Real ; Khi sử dụngGiai_thualà Real, ta phải ý sử lý thêm Ví dụ, để viết giá trị củaGiai_thualà số thực sang số nguyên, ta phải sử dụng cách viết có quy cách với phần thập phân bị cắt : Code: Writeln ( Giai_thua(12) : : ) ; Thí dụ tính giai thừa phương diện ví dụ đơn giản dể hiểu Song phương diện kĩ thuật lập trình thí dụ không đẹp người ta tính giai thừa cách tiết kiệm chương trình sau sử dụng lệnh lặp While : Code: http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 7/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Function Giai_thua( N : Integer ) : Integer ; Var I, K :Integer ; Begin I := ; K := ; (* Phải dùng biến địa phươn K để chứa kết trung gia *) While I < N Do Begin I := I + ; K := K * I ; End ; Giai_thua := K ; (* Gán kết từ biến trung gian K vào tên hàm*) End ; Trong cách dùng sau, ta hai ô nhớ địa phương tương ứng với hai biến I K Còn cách dùng trước, lần dùngGiai_thua(N), máy lại phải bố trí thêm ô nhớ chứa kết quảGiai_thuatrung gian Nói chung nên tránh dùng đệ qui mà ta dùng phép lặp để tính toán V – Forward (Tham khảo trước) Các CTC gọi trước có định nghĩa chúng trước có lời khai báo kiểuForward Cách thức viết thể qua ví dụ Lưu ý danh sách tham số hình thức cần liệt kê lời khai báo trước (Forward) lời khai báo chi tiết Code: Program Vi_du_Forward ; Var Alpha : Integer ; (* Khai báo trước Procedure Test2 với từ Forward *) Procedure Test2 ( Var A : Integer ) ; Forward ; (* *) Procedure Test1 ( Var A : Integer ) ; Begin A := A - ; (* Dùng Test2 trước khai báo chi tiết *) If A > Then Test2(A) ; End ; (* *) Procedure Test2 ; Begin A := A Div ; If A > Then Test1(A) ; End ; Ta thấy thủ tụcTest1dùng thủ tụcTest2, thủ tụcTest2lại dùng thủ tụcTest1 Do ta thấy trường hợp định nghĩa thủ tụcTest1vàTest2một cách bình thường mà phải dùng đếnForward VI – Đơn vị chương trình http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 8/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Unit: Trong Pascal, người ta chia nhỏ thư viện CTC thành thư viện nhỏ hơn, thư viện nhỏ gọi mộtUnit(đơn vị chương trình) : CRT Unit chứa CTC xử lý hình ( lệnh Gotoxy, ClrScr ), bàn phím ( Readkey ) PRINTER Unit chứa CTC liệu thủ tục in Writeln ( Lst, ) DOS Unit chứa CTC liệu khai thác hàm Dos SYSTEM Unit chứa CTC liệu hệ thống ( Lưu ý Unit để file TURBO.TPL ( TPL : Turbo Pascal Library ) GRAPH Unit đồ họa, để file riêng có tên làGRAPH.TPU Đây Unit chứa tất CTC đồ họa Vì bạn dùng đồ họa, nhớ phải copy fileGRAPH.TPU STRING có Turbo 7.0 để sử dụng kiểu xâu kí tự kệt thúc kí tự có mã #0 ( kí tự Null ) TURBO3 Unit tạo tương thích với chương trình viế Turbo Pascal 3.0, chứa file TURBO3.TPU GRAPH3 thực CTC vẽ theo kiểu rùa có Turbo 3.0, chứa fileGRAPH3.TPU Tuy nhiên, hai Unit cuối có lẽ bạn dùng đến, phiên Turbo 3.0 chương trình viết phiên cũ "cổ lỗ" rồi, bạn có muốn tìm không ! Việc chia nhỏ thư viện giúp cho chương trình dịch chạy nhanh đọc lại tất CTC nhu cầu Mặt khác, chương trình dịch gọn chứa không dùng đến Người ta nhóm số liệu CTC liên quan lại thành Unit ( đơn vị chương trình ) Các Unit dịch hoàn chỉnh sửa đổi ta dùng ngay, không cần dịch lại chí chúng dùng chung cho nhiều chương trình khác Trong trương hợp có thay đổi Unit có Unit có liên quan bị dịch lại Cách thức Unit: Một Unit bạn tạo đươc chứa file với tên đó, thí dụ KHOI1.PAS Cách thức Unit sau : Unit Khoi1 ; (* Tên Unit thường nên đặt trùng với tên file *) Uses Ten_cac_Unit_khac_can_dung ; Interface (* Khai báo tên thủ tục hàm viết đầy đủ phần Implementation Tên thủ tục hàm khai báo phần tên CTC mà Unit khác cần dùng đến *) Code: http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 9/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Procedure Thidu1 ( Var X, Y : Real ) ; Function TenF ( I, J : Integer ) : Real ; Implementation (* Khai báo kiểu liệu, biến đầy đủ thủ tục hàm Unit *) Const PP = 3.5 ; Var X, Y : Real ; (* Khai báo biến cho Unit *) (* - *) Procedure Thi_du1 ( Var X, Y : Real ) ; Begin End ; (* - *) Function TenF ( I, J : Integer ) : Real ; Begin End ; END (* Kết thúc Unit END có dấu chấm Lưu ý phía chữ BEGIN tương ứng với chữ END kết thúc Unit *) Khi dịch tệp cách ấn Alt _ F9, Turbo Pascal tạo file KHOI1.TPU ( TPU : Turbo Pascal Unit ) Bạn nhớ để dịch Unit bạn soạn thảo, bạn phải ấn Alt _ F9 Ctrl _ F9 Cách gọi Unit: Trong chương trình hay Unit, ta cần dùng đến Unit khác, phần đầu chương trình ta phải viết dòng : Uses Unit1, Unit2, , UnitN ; Các thủ tục ClrScr, Readkey thủ tục dịch sẵn để Unit có tên CRT Vì vậy, muốn dùng nó, ta phải viết : Code: Program SD_Unit ; Uses Crt ; Type BEGIN Clrscr ; END chương trình khác dùng nhiều Unit khác : Code: http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ 10/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Program Vidu_Unit ; Uses Crt, Dos, Graph, Printer ; Các viết khác Chuyển nhà trọn gói Hà Nội 0437 733 733 05/11/2016 Đăng ký tài khoản cá độ 138 Sun Games nhận 1.000.000 VND Hướng Dẫn Đăng Ký Win2888 ▂ ▃ ▄ ▅ ▆ 04/11/2016 04/11/2016 Lô Đề Online Hoa Hồng Khuyến Mãi Lớn 1000$ Win2888 ▂ ▃ ▄ ▅ ▆ 04/11/2016 Đăng ký tài khoản cá độ 138 Sun Games nhận 1.000.000 VND 17/10/2016 chuyển nhà 09/10/2016 chuyển nhà 09/10/2016 chuyển nhà thành hưng chuyển nhà 09/10/2016 08/10/2016 Chuyển nhà thành hưng 001 08/10/2016 Last edited: 3/3/14 koolkiizz, 31/1/14 #1 (You must log in or sign up to reply here.) Comments Sort by Oldest Add a comment Lê Quý Thọ Hay Like · Reply · Apr 19, 2015 7:30am Vợ Cần Bao Nhiêu giúp ích cho người Like · Reply · Nov 3, 2015 4:32pm Thùy Dương em sử dụng if liên tục ko có else cho dến hết chương trình dc ko Like · Reply · Dec 24, 2015 11:46am Bui Hai · Hải Phòng đc bạn Like · Reply · Mar 16, 2016 8:25am Đam'n King'â hay Like · Reply · Jan 29, 2016 7:37pm Load more comments Facebook Comments Plugin Tags: pascal, lập trình pascal, chương trình con, hàm thủ tục, function, procedure Share This Page Tw eet Diễn đàn Lập Trình Like 60 people like this Be the first of your friends Pascal XenForo Add-ons by Brivium ™ © 2012-2013 Brivium LLC Vietnamese Liên hệ với Chúng Giúp đỡ Trang chủ Top Forum softw are by XenForo™ ©2011 XenForo Ltd http://ksec.info/threads/ngon-ngu-lap-trinh-pascal-7-chuong-trinh-con-ham-va-thu-tuc.34/ Điều khoản & Quy định 11/11 [...]...11 /7/ 2016 Ngôn ngữ lập trình Pascal - 7. Chương trình con: Hàm và thủ tục | Ksec Club Program Vidu_Unit ; Uses Crt, Dos, Graph, Printer ; Các bài viết khác Chuyển nhà trọn gói Hà Nội 04 37 733 73 3 05/11/2016 Đăng ký tài khoản cá độ 138 Sun Games và nhận ngay 1.000.000 VND Hướng Dẫn Đăng Ký Win2888 ▂ ▃ ▄ ▅ ▆ 04/11/2016 04/11/2016... dụng if liên tục ko có else cho dến hết chương trình thì dc ko ạ Like · Reply · Dec 24, 2015 11:46am Bui Hai · Hải Phòng đc bạn Like · Reply · Mar 16, 2016 8:25am Đam'n King'â hay quá Like · Reply · Jan 29, 2016 7: 37pm Load 2 more comments Facebook Comments Plugin Tags: pascal, lập trình pascal, chương trình con, hàm và thủ tục, function, procedure Share This Page Tw eet Diễn đàn 4 Lập Trình Like 60... Page Tw eet Diễn đàn 4 Lập Trình Like 60 people like this Be the first of your friends Pascal XenForo Add-ons by Brivium ™ © 2012-2013 Brivium LLC Vietnamese Liên hệ với Chúng tôi Giúp đỡ Trang chủ Top Forum softw are by XenForo™ ©2011 XenForo Ltd http://ksec.info/threads/ngon-ngu-lap-trinh -pascal- 7- chuong-trinh -con- ham-va-thu-tuc.34/ Điều khoản & Quy định 11/11 ... khoản cá độ 138 Sun Games và nhận ngay 1.000.000 VND 17/ 10/2016 chuyển nhà 09/10/2016 chuyển nhà 1 09/10/2016 chuyển nhà thành hưng 3 chuyển nhà 5 09/10/2016 08/10/2016 Chuyển nhà thành hưng 001 08/10/2016 Last edited: 3/3/14 koolkiizz, 31/1/14 #1 (You must log in or sign up to reply here.) 6 Comments Sort by Oldest Add a comment Lê Quý Thọ Hay quá Like · Reply · Apr 19, 2015 7: 30am Vợ Cần Bao Nhiêu ... http://ksec.info/threads/ngon-ngu-lap-trinh -pascal- 7-chuong-trinh-con-ham-va-thu-tuc.34/ 8/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Unit: Trong Pascal, người ta... Code: http://ksec.info/threads/ngon-ngu-lap-trinh -pascal- 7-chuong-trinh-con-ham-va-thu-tuc.34/ 3/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club Program Tham_so... Code: http://ksec.info/threads/ngon-ngu-lap-trinh -pascal- 7-chuong-trinh-con-ham-va-thu-tuc.34/ 4/11 11/7/2016 Ngôn ngữ lập trình Pascal - 7.Chương trình con: Hàm thủ tục | Ksec Club PROGRAM VI_DU