bai 18 vi du ve su dung chuong trinh con

NHIIỆT LIỆT CHÀO MỪNG CÁC THẦY, CÁC CÔ VỀ DỰ GIỜ THĂM LỚP Giáo viên: Nguyễn Thị Thu Hương Học sinh : Lớp 11 Hố TRƯỜNG TRUNG HỌC PHỔ THƠNG CHUYÊN LƯƠNG VĂN TỤY BÀI 18 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Đặng Hữu Hoàng CẤU TRÚC CỦA THỦ TỤC a) VÍ DỤ VỀ THỦ TỤC Lập chương trình vẽ hình chữ nhật dấu * có kích thước khác Hãy viết thủ tục Ve_HCN dấu * với chiều dài, chiều rộng Vẽ cạnh HCN For i:=1 to chdai write (‘*’); dài Writeln; Vẽ hai cạnh bên ********************************** * * * * rộng * * ********************************** For j:=1 to chrong - Begin Write(‘*’); For i:=1 to chdai - Write(‘ ‘); Writeln(‘*’) end; Vẽ cạnh For i:=1 to chdai write(‘*’); Writeln; Program vidu; Uses crt; var a,b: byte; Procedure Ve_HCN( chdai,chrong:integer); Var i,j: integer; Begin For i:=1 to chdai write(‘ * ’); Writeln; For j:=1 to chrong-2 begin write(‘ * ’); for i:=1 to chdai-2 write(‘ ‘); writeln(‘ * ’); end; For i:=1 to chdai Do write(‘ * ’); writeln; end; Begin CLRSCR; Ve_HCN(25,10); Writeln; a:=5 ; b:=10; Ve_HCN(a,b); readln; End Cấu trúc thủ tục ? CÁCH VIẾT VÀ SỬ DỤNG THỦ TỤC b) CẤU TRÚC CỦA THỦ TỤC Procedure[()]; [] Begin [] End; Program vidu; Biến tồn cục Tham số hình thức Uses crt; var a,b: byte; Procedure Ve_HCN( chdai,chrong:integer); Var i,j: integer; Biến cục Begin For i:=1 to chdai write(‘ * ’); Writeln; For j:=1 to chrong-2 begin write(‘ * ’); for i:=1 to chdai-2 write(‘ ‘); writeln(‘ * ’); end; For i:=1 to chdai Do write(‘ * ’); writeln; end; Tham số thực (tham trị) Begin CLRSCR; Ve_HCN(25,10); Writeln; a:=5 ; b:=10; Ve_HCN(a,b); readln; End 1 CẤU TRÚC CỦA THỦ TỤC c) VÍ DỤ VỀ THỦ TỤC Lập chương trình hốn đổi giá trị hai số a, b TG:=X; X Y TG CẤU TRÚC CỦA THỦ TỤC c) VÍ DỤ VỀ THỦ TỤC Lập chương trình hốn đổi giá trị hai số a, b TG:=X; X:=Y; X Y TG CẤU TRÚC CỦA THỦ TỤC c) VÍ DỤ VỀ THỦ TỤC Lập chương trình hốn đổi giá trị hai số a, b TG:=X; X:=Y; Y:=TG; X Y TG VÍ DỤ Quan sát sách giáo khoa trang 99, chương trình VD_thambien1 Program VD; Uses crt; var a,b: integer; Biến toàn cục Biến cục Procedure Hoan_doi(Var x,y:integer); Var TG: integer; Begin TG:= x; x:= y; y:=TG; end; Tham số hình thức Begin Clrscr; a:= ; b:= 10; Writeln( a:6 , b:6); Hoan_doi(a,b); Writeln( a:6 , b:6); readln; End Tham số thực (tham biến) CẤU TRÚC CỦA HÀM Cấu trúc hàm? Function[()]: ; [] Begin [] := End; So sánh giống khác hàm thủ tục? Giống: có cấu trúc tương tự, có tham số Khác: tên hàm phải quy định kiểu liệu Trong thân hàm phải có := VÍ DỤ VỀ HÀM Lập chương trình thực việc rút gọn phân số, có sử dụng hàm tính ước số chung lớn (ƯCLN) hai số nguyên Quan sát chương trình Có biến sử dụng chương trình? Các biến: tuso, mauso, A, sodu Các biến khai báo chỗ chương trình? Các biến tuso, mauso, A khai báo chương trình Biến sodu khai báo chương trình VÍ DỤ VỀ HÀM Lập chương trình cho biết giá trị nhỏ ba số nhập từ bàn phím, có sử dụng hàm tìm số nhỏ hai số Quan sát chương trình Thực tháng 04 năm 2010 ... BÀI 18 VÍ DỤ VỀ CÁCH VI? ??T VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Đặng Hữu Hoàng CẤU TRÚC CỦA THỦ TỤC a) VÍ DỤ VỀ THỦ TỤC Lập chương trình vẽ hình chữ nhật dấu * có kích thước khác Hãy vi? ??t thủ tục Ve_ HCN... ‘); Writeln(‘*’) end; Vẽ cạnh For i:=1 to chdai write(‘*’); Writeln; Program vidu; Uses crt; var a,b: byte; Procedure Ve_ HCN( chdai,chrong:integer); Var i,j: integer; Begin For i:=1 to chdai write(‘... writeln; end; Begin CLRSCR; Ve_ HCN(25,10); Writeln; a:=5 ; b:=10; Ve_ HCN(a,b); readln; End Cấu trúc thủ tục ? CÁCH VI? ??T VÀ SỬ DỤNG THỦ TỤC b) CẤU TRÚC CỦA THỦ TỤC Procedure[(