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

kính chào quy thầy cô và các em học sinh
1. Chương trình con được chia ra làm mấy loại. Nêu đặc điểm của từng loại ?
2. Cấu trúc chung của chương trình con được chia làm mấy phần. Lợi ích của việc sử dụng chương trình con
kiểm tra bài cũ
Tiết 41: 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
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(‘* * * * * * *’);
Bài 18: Ví dụ về cách viết và sử dụng chương trình con
Theo em để vẽ được hình chữ nhật trên ta viết những câu lệnh nào

1. Cách viết và sử dụng thủ tục
Xét ví dụ vẽ 3 hình chữ nhật có dạng sau:
Bài 18: Ví dụ về cách viết và sử dụng chương trình con
Theo em để vẽ 3 hình chữ nhật trên ta phải viết những câu lệnh nào trong chương trình
Ta có thể vẽ 3 hình chữ nhật trên với 9 câu lệnh
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);

1. Cách viết và sử dụng thủ tục
Bài 18: Ví dụ vế cách viết và sử dụng chương trình con
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:
[]

? Vị trí của thủ tục nằm ở phần nào của chương trình chính

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 [];
[]
begin
end;
[]
Phần đầu thủ tục gồm tên dành riêng procedure , tiếp theo là tên thủ tục. Danh sách tham số có thể có hoặc không.
*Phần khai báo dùng để xác định các hằng, kiểu, biến và cũng có thể xác định các chương trình con khác được sử dụng trong thủ tục
Dãy các lệnh được viết giữa cặp tên dành riêng Begin và end tạo thành thân của 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.
{***********************}
{************************}

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
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.

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
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
{************************}
{************************}
* * * * * * *
* *
* * * * * * *
* * * * * * *
* *
* * * * * * *
* * * * * * *
* *
* * * * * * *

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
b. Ví dụ về thủ tục
GS chương trình cần vẽ nhiều hình chữ nhật có kích thước khác nhau. Để thủ tục Ve_HCN thực hiện được yêu cầu trên cần có 2 tham số Chiều dài và Chiều rộng
Procedure Ve_Hcn (chdai, chrong: integer);
* * * * * * … *
* * * * * * … *
*
*
Chrong
Chdai
Chrong - 2
Em hãy viết chương trình Ve_HCN bằng dấu * với độ dài bất kỳ
**********************************
* *
* *
* *
**********************************
Dài
Rộng
Vẽ cạnh trên của HCN
Vẽ hai cạnh bên của HCN
V? c?nh du?i c?a HCN
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;

Bài 18: Ví dụ về cách viết và sử dụng chương trình con
b. Ví dụ về thủ tục
Program VD;
Uses crt;
var a,b: byte;
Procedure Ve_HCN( chdai,chrong:integer);
Var i, j: integer;
Begin
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;
end;
BEGIN
CLRSCR;
Ve_HCN(25,10);
Writeln;
Ve_HCN(5,10);
a:=5 ; b:=10;
Ve_HCN(a,b);
readln;
END.
+Trong l?nh g?i th? t?c cỏc tham s? hỡnh th?c du?c thay b?ng cỏc tham s? th?c s? tuong ?ng l� cỏc giỏ tr? c? th? du?c g?i l� Tham s? giỏ tr? hay l� Tham tr?.
Vớ d?: Cỏc tham s? chdai, chrong c?a th? t?c Ve_HCN l� Tham tr? vỡ tham s? chdai du?c thay b?i s? nguyờn 5, chrong thay b?ng s? 3.
+ Trong l?nh g?i th? t?c cỏc tham s? hỡnh th?c du?c thay b?ng cỏc tham s? th?c s? tuong ?ng l� tờn cỏc Bi?n ch?a cỏc d? li?u ra du?c g?i l� Tham s? bi?n hay Tham bi?n.
Vớ d?: Cỏc tham s? chdai, chrong du?c thay b?ng giỏ tr? hi?n th?i c?a bi?n a, b.
+ D? phõn bi?t Tham bi?n v� Tham tr? , Pascal dựng t? khoỏ Var d? khai bỏo nh?ng Tham bi?n

Bài 18: ví dụ về cách viết và sử dụng chương trình con
b. Ví dụ về thủ tục
Program vidu;
Uses crt;
var a,b: byte;
Procedure Ve_HCN( chdai,chrong:integer);
Var i,j: integer;
Begin
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;
end;
Begin
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.
Em hãy phân tích và nhận xét kết quả của 2 bài toán sau
program VD_thambien1;
uses crt;
var a,b:integer;
procedure hoan_doi(var x,y:integer);
var TG:integer;
begin
TG:= x;
x:=y;
y:=TG;
end;
begin
clrscr;
a:=5; b:=10;
writeln(a:6,b:6);
hoan_doi(a,b);
writeln(a:6,b:6);
end.
program VD_thambien2;
uses crt;
var a,b:integer;
Procedure hoan_doi(x:integer;var y:integer);
var TG:integer;
begin
TG:= x;
x:=y;
y:=TG;
end;
begin
clrscr;
a:=5; b:=10;
writeln(a:6,b:6);
hoan_doi(a,b);
writeln(a:6,b:6);
end.
C?N NH?
- Hiểu được cách viết và
sử dụng thủ tục (Procedure)

- Phân biệt được Tham
biến và Tham trị

- Cấu trúc của thủ tục
có 3 phần