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

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
[]

Kiểm tra bài cũ
Bài 18
ví dụ về cách viết và
sử dụng chương trình con
Ví dụ 1: Lập chương trình vẽ các hình chữ nhật bằng dấu * có kích thước khác nhau.
Cách 2: Dùng chương trình con thủ tục Ve_HCN(dai,rong) để vẽ một hình chữ nhật.
Trong chương trình chính, dùng lời gọi thủ tục và truyền các tham số với giá trị khác nhau để vẽ các hình chữ nhật khác.
Ví dụ: Ve_HCN(25,20); Ve_HCN(3,7)
Cách 1: Sử dụng nhiều lần các câu lệnh:
Writeln(`* * * * * * *`);
Writeln(`* *`);
Writeln(`* * * * * * *`);
1. Cách viết và sử dụng thủ tục:
Cấu trúc của thủ tục:
Procedure [()];
[< Phần khai báo >]
Begin
[]
End;
[(Ds tham số thực sự)]
Để thủ tục Ve_Hcn có thể thực hiện được điều đó, cần có hai tham số cho dữ liệu vào là chiều dài và chiều rộng.
Khi đó phần đầu của thủ tục được viết như sau.
Procedure Ve_Hcn (chdai, chrong: integer);
* * * * * * … *
* * * * * * … *
*
*
Chrong
Chdai
Chrong - 2
Viết một thủ tục Ve_HCN bằng dấu * với chiều dài, rộng bất kì!
Các em hãy viết một thủ tục Ve_HCN bằng dấu * với chiều dài, rộng bất kì!
**********************************
* *
* *
* *
**********************************
Dài
Rộng
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;
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; a:=5 ; b:=10;
Ve_HCN(a,b);
readln;
END.
Biến cục bộ
Tham số thực sự (tham trị)
Tham số hình thức
Biến toàn cục
* Tham số và cách truyền tham số:
Tham số tại nơi gọi:Tham số thực.
Tham số tại nơi được gọi: Tham số hình thức.
* Tham số và cách truyền tham số:
Tham số tại nơi gọi:Tham số thực.
Tham số tại nơi được gọi: Tham số hình thức.
Tham số hình thức trị -> tham số giá trị gọi tắt là tham trị.
Tham số hình thức biến -> tham số biến gọi tắt là tham biến.
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);
readln;
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);
readln;
End.

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);
readln;
END.
Biến cục bộ
Tham số thực sự
Tham số hình thức biến
Biến toàn cục
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);
readln;
END.
Biến cục bộ
Tham số thực sự
Tham số hình thức biến
Biến toàn cục
Tham số hình thức trị
Uses crt;
Type Mang1c=array[1..10] of integer;
Var  n:byte;     
a:Mang1c;    
{Đây là các Biến toàn cục}
(*----------------- cac CT con ---------------*)
{Chỗ này sẽ chứa các môđun của các thành viên}
(*------------------ CT chinh ----------------*)
BEGIN 
ClrScr; Randomize; 
  Nhap(a,n); {Nhập dãy số nguyên (ai)}   
Xuat(a,n); {Xuất dãy số (ai) ra màn hình}   
SapXep(a,n); {Sắp xếp lại dãy sao cho các số hạng cứ  
tăng dần theo các chỉ số}   
Xuat(a,n); {Xuất dãy số (ai) ra màn hình} 
END.
Chương trình:
Nhập một dãy số khoảng 10 số nguyên. Xuất chúng ra theo
hàng ngang. Sắp xếp lại dãy theo thứ tự tăng dần. Sau đó in dãy
đã sắp xếp ra màn hình.
Hãy nhớ!
? Biến:
? Tham số
- Khai báo trong chương trình chính là biến toàn cục.
- Khai báo trong chương trình con là biến cục bộ.
- Biến khai báo cho dữ liệu vào ra trong chương trình con gọi là tham số hình thức.
- Biến chứa trong lời gọi CTC ở chương trình chính là các tham số thực sự.
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