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

Nhiệt liệt chào mừng
Các thầy cô giáo cùng toàn thể các em học sinh
Câu hỏi kiểm tra bài cũ
1. Chương trình con được chia ra làm mấy loại
A. 1 loại
B. 2 loại
C. 3 loại
D. 4 loại
2. Cấu trúc chung của chương trình con được chia làm mấy phần
A. 1 phần
B. 2 phần
C. 3 phần
D. 4 phần
Hàm (Function) và thủ tục (Procedure)

[]

3. Cấu trúc chung của chương trình chính được chia làm mấy phần
A. 1 phần
B. 2 phần
C. 3 phần
D. 4 phần
[]

§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
1. Cách viết và sử dụng thủ tục
Xét ví dụ vẽ hình chữ nhật có dạng sau
Ta có thể vẽ hình chữ nhật trên với ba câu lệnh
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);
§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
1. Cách viết và sử dụng thủ tục
program VD_thutuc1;
procedure Ve_hcn; {Bat dau thu tuc}
begin
end; {Ket thuc chuong trinh con}
writeln(‘* * * * * * *’);
writeln(‘* *’);
writeln(‘* * * * * * *’);
begin
Ve_Hcn; {Goi thu tuc Ve_Hcn}
writeln; writeln; {de cach hai dong}
Ve_Hcn;
writeln; writeln;
Ve_Hcn;
end.
{****************************************}
{****************************************}
Cấu trúc chương trình chính:
[]

?1: Vị trí của thủ tục nằm ở phần nào của chương trình chính
§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
1. Cách viết và sử dụng thủ tục
program VD_thutuc1;
procedure Ve_hcn;
begin
end;
writeln(‘* * * * * * *’);
writeln(‘* *’);
writeln(‘* * * * * * *’);
begin
Ve_Hcn;
writeln; writeln;
Ve_Hcn;
writeln; writeln;
Ve_Hcn;
end.
a. Cấu trúc của thủ tục
Procedure [];
[]
begin
end;
[]
Chú ý:
- Sau tên dành riêng end kết thúc chương trình chính là dấu (.), còn sau end kết thúc thủ tục là dấu chấm phẩy (;)
- Các thủ tục, nếu có, phải được khai báo và mô tả trong phần khai báo của chương trình chính, ngay sau phần khai báo biến
- Khi cần thực hiện, ta phải viết lệnh gọi thủ tục tương tự như các thủ tục chuẩn.
{************************}
{************************}
§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
1. Cách viết và sử dụng thủ tục
a. Cấu trúc của thủ tục
b. Ví dụ về thủ tục
* * * * * * … *
* * * * * * … *
*
*
Chrong
Chdai
Viết chương trình mô tả đầy đủ thủ tục Ve_Hcn với tham số chdai, chrong và sử dụng thủ tục này để vẽ các hình chữ nhật có kích thước khác nhau
Chrong - 2
§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
1. Cách viết và sử dụng thủ tục
a. Cấu trúc của thủ tục
b. Ví dụ về thủ tục
program VD_thutuc2;
uses crt;
Var a, b, i: integer;
procedure Ve_Hcn(chdai, chrong: integer);
Var i, j: integer;
begin
end;
For i:= 1 to chdai do write(‘*’);
writeln;
For i:=1 to chrong – 2 do
begin
end;
write(‘*’);
For j:=1 to chrong –2 do write(‘ ’);
writeln(‘*’);
begin
clrscr;
Ve_Hcn(25,10);
writeln; writeln;
Ve_Hcn(5,10);
readln;
clrscr;
a:= 4; b:=2;
For i:=1 to 4 do
begin
end;
Ve_Hcn(a,b);
readln; clrscr;
a:= a*2; b:= b*2;
readln;
End.
§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
1. Cách viết và sử dụng thủ tục
a. Cấu trúc của thủ tục
b. Ví dụ về thủ tục
– Tham số hình thức chia làm hai loại:
+ Tham số giá trị (tham trị)
+ Tham số biến (tham biến)
§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
1. Cách viết và sử dụng thủ tục
a. Cấu trúc của thủ tục
b. Ví dụ về thủ tục
program VD_thambien;
uses crt;
Var a, b: integer;
procedure Hoan_doi(Var x,y: integer);
Var tg: integer;
begin
end;
tg:= x; x:=y; y:=tg;
begin
end.
Clrscr;
a:= 5; b:=3;
writeln(a:4, b:4);
writeln(a:4, b:4);
Hoan_doi(a,b);
program VD_thambien1;
uses crt;
Var a, b: integer;
procedure Hoan_doi(x:integer;Var x,y: integer);
Var tg: integer;
begin
end;
tg:= x; x:=y; y:=tg;
begin
end.
Clrscr;
a:= 5; b:=3;
writeln(a:4, b:4);
writeln(a:4, b:4);
Hoan_doi(a,b);
§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
1. Cách viết và sử dụng thủ tục
2. Cách viết và sử dụng hàm
a. Cấu trúc của hàm
§ 18 Ví dụ về cách viết và
sử dụng chương trình con (tiết 1)
Củng cố bài
Cấu trúc và vị trí của chương trình con trong chương trình chính
Program ;
Uses ;
Const ;
Type <định nghĩa kiểu dữ liệu>;
Var ;
Procedure [;
[];
Begin
End;
[];
Begin
End.
[];