LOGO Nguyễn Đức Cảnh Nguyễn Đức Cảnh Nguyễn Đức Cảnh Ví dụ 1: Xét hình chữ nhật có dạng sau. * * * * * * * * * * * * * * * * * * * * * * * * Ta có thể vẽ hình chữ nhật trên bằng cách sau. Writeln(‘* * * * * * * * * *’); Writeln(‘* *’); Writeln(‘* *’); Writeln(‘* * * * * * * * * *’); 1. Cách viết và sử dụng thủ tục: Nguyễn Đức Cảnh 1. Cách viết và sử dụng thủ tục: Ví dụ: Thủ tục vẽ hình chữ nhật Program VD_Thutuc1; Procedure ve_HCN; Begin Writeln(‘* * * * * * * * * *’); Writeln(‘* *’); Writeln(‘* *’); Writeln(‘* * * * * * * * * *’); End; Begin Ve_HCN; Writeln;writeln; Ve_HCN Writeln;writeln; Ve_HCN; end. Nguyễn Đức Cảnh 1. Cách viết và sử dụng thủ tục: a. Cấu trúc của thủ tục Thủ tục có cấu trúc như sau: Procedure <Tên thủ tục>[(<Danh sách các tham số>)]; [<Phần Khai báo>] Begin [<Dãy các lệnh>] End; Chú ý: Sau tên dành riêng End kết thúc chương trình chính là dấu chấm (.) Còn sau End kết thúc thủ tục là dấu chấm phẩy (;) Nguyễn Đức Cảnh 1. Cách viết và sử dụng thủ tục: a. Ví dụ về thủ tục ********************************** * * * * * * ********************************** Dài Vẽ cạnh trên của HCN Vẽ hai cạnh bên Vẽ cạnh dưới FOR i:=1 to chdai DO WRITE( * ); WRITELN;‘ ’ FOR J:=1 to chrong -2 DO Begin Write( * );‘ ’ For i:=1 to chdai - 2 do Write( );‘ ‘ Writeln( * )‘ ’ end; FOR i:=1 to chdai DO WRITE( * ); WRITELN;‘ ’ Rộng . *’); Writeln(‘* *’); Writeln(‘* * * * * * * * * *’); 1. Cách viết và sử dụng thủ tục: Nguyễn Đức Cảnh 1. Cách viết và sử dụng thủ tục: Ví dụ: Thủ tục vẽ hình chữ nhật Program VD_Thutuc1; Procedure. dành riêng End kết thúc chương trình chính là dấu chấm (.) Còn sau End kết thúc thủ tục là dấu chấm phẩy (;) Nguyễn Đức Cảnh 1. Cách viết và sử dụng thủ tục: a. Ví dụ về thủ tục ********************************** *. *’); End; Begin Ve_HCN; Writeln;writeln; Ve_HCN Writeln;writeln; Ve_HCN; end. Nguyễn Đức Cảnh 1. Cách viết và sử dụng thủ tục: a. Cấu trúc của thủ tục Thủ tục có cấu trúc như sau: Procedure <Tên thủ