BÀI 18 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON 1 Cách viết và sử dụng thủ tục a) Cấu trúc của thủ tục procedure (danh sách tham số); Begin End; b) Ví dụ về thủ tục Ví dụ Viết thủ tục vẽ hình chữ nhật có dạng như sau Program HCN; Uses Crt; Procedure Ve Hcn; Begin Writeln(‘’); Writeln(‘ ’); Writeln(‘’); End; Begin Ve Hcn; writeln; Ve Hcn; writeln; Ve Hcn; writeln; Readln; End 2 Cách viết và sử dụng hàm a).
BÀI 18: VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Cách viết sử dụng thủ tục a) Cấu trúc thủ tục procedure [(danh sách tham số)]; [] Begin [] End; b) Ví dụ thủ tục Ví dụ: Viết thủ tục vẽ hình chữ nhật có dạng sau ******* * * ******* Program HCN; Uses Crt; Procedure Ve_Hcn; Begin Writeln(‘*******’); Writeln(‘* *’); Writeln(‘*******’); End; Begin Ve_Hcn; writeln; Ve_Hcn; writeln; Ve_Hcn; writeln; Readln; End Cách viết sử dụng hàm a) Cấu trúc hàm Function []:; Trong kiểu liệu integer, real, char, Boolean, string Khác với thủ tục, thân hàm phải có lệnh gán giá trị cho tên hàm: :=; b) Ví dụ hàm Ví dụ Viết chương trình tìm giá trị nhỏ ba số có sử dụng hàm tìm số nhỏ hai số program vdu2; uses crt; var a,b,c:real; function Min(a,b:real):real; begin if a