Bài 18. Ví dụ về cách viết và sử dụng chương trình con

CHÀO MỪNG QUÝ THẦY CÔ GIÁO ĐẾN THAM DỰ TIẾT HỌC HÔM NAY
CHÀO MỪNG QUÝ THẦY CÔ GIÁO ĐẾN THAM DỰ TIẾT HỌC HÔM NAY
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
VÍ DỤ
a) Cấu trúc của thủ tục
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
VÍ DỤ
CHÀO MỪNG QUÝ THẦY CÔ GIÁO ĐẾN THAM DỰ TIẾT HỌC HÔM NAY
Procedure [()];
[]
Begin
[]
End;
b) Ví dụ về thủ tục
b) Ví dụ về thủ tục
Các tham số hình thức được thay bằng các tham số thực sự tương ứng là các giá trị cụ thể được gọi là tham số giá trị (tham trị).
Các tham số hình thức được thay bằng các tham số thực sự tương ứng là các biến được gọi là tham số biến(tham biến).
Để phân biệt tham biến và tham trị , Pascal sử dụng từ khóa Var để khai báo những tham số biến.
Xét Chương trình VD_Thambien1 và VD_Thambien2 ; sách giáo khoa.
a) Cấu trúc của thủ tục
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
VÍ DỤ
CHÀO MỪNG QUÝ THẦY CÔ GIÁO ĐẾN THAM DỰ TIẾT HỌC HÔM NAY
Procedure [()];
[]
Begin
[]
End;
Xét ví dụ vẽ hình chữ nhật sau
Xét chương trình sau
VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH
Programming
*******
* *
*******
Trong Pascal ta thực hiện 3 câu lệnh

Writeln(‘*******’);
Writeln(‘* *’);
Writeln(‘*******’);
Program VD_thutuc1;
Procedure VE_hcn;
Begin
Writeln(‘*******’);
Writeln(‘* *’);
Writeln(‘*******’);
End;
Begin
Ve_hcn;
Writeln; writeln;
Ve_hcn;
Writeln; writeln;
Ve_hcn;
End.
Thực hiện chương trình
VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH
Programming
Cấu trúc
Procedure [()];
[]
Begin
[]
End;
VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH
Programming
Procedure ve_hcn(cdai,crong:integer);
Var i,j:integer ;
Begin
For i:=1 to cdai do writeln(*);
For j:=1 to crong-2 do
Begin
Writeln (‘*’);
For i:=1 to cdai-2 do write (‘ ’); writeln (‘*’);
end;
For i:=1 to cdai do writeln(‘*’);
end;
Begin
Clrscr;
Ve_hcn(25,10);
Writeln ;writeln;
Ve_hcn(5,10);
Clrscr;
a:=4;b:=2;
For i:=1 to 4 do
Begin
Ve_hcn(a,b);
Readln;clrscr;
a:=a*2; b:=b*2;
End;
Readln;
End.
Program VD_thutuc;
Uses Crt;
Var a,b,i : integer;
VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH
Programming
Procedure hoan_doi(var x,y:integer);
Var TG:integer ;
Begin
TG:=x;
x:=y;
y:=TG;
end;

Program VD_thambien1;
Uses Crt;
Var a,b, : integer;
Begin
Clrscr;
a:=5;b:=10;
Writeln(a:6,b:6);
Hoan_doi(a,b);
Writeln(a:6,b:6);
end;
Kết quả thực hiện chương trình
5 10
10 5
VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH
Programming
Procedure hoan_doi(x:integer;var y:integer);
Var TG:integer ;
Begin
TG:=x;
x:=y;
y:=TG;
end;

Program VD_thambien2;
Uses Crt;
Var a,b, : integer;
Kết quả thực hiện chương trình
5 10
5 5
VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH
Programming
Begin
Clrscr;
a:=5;b:=10;
Writeln(a:6,b:6);
Hoan_doi(a,b);
Writeln(a:6,b:6);
end;