Lý thuyết: Ví dụ về cách viết và sử dụng chương trình con trang 96 SGK Tin học 11

TG : = X ;

X : = y ;

y:= TO;

End;

Thủ tục hoán đổi của tham số giá trị và tham số biến:

procedure hoan_doi ( X: integer; var y:  integer);

Var TG: integer;

Begin

TG : = X ;

X:=y ;

y:= TG;

End.

2. Cách viết và sử dụng hàm

Điểm khác nhau cơ bản giữa thủ tục và hàm là việc thực hiện hàm luôn trả về giá trị kết quả thuộc kiểu xác định và giá trị đó được gán cho tên hàm.

Hàm có cấu trúc tương tự như thủ tục, tuy nhiên có khác nhau phần đầu Phần khai báo một hàm:

Function <tên hàm>[()]: <kiểu dữ liệu>;

Trong đó: kiểu dữ liệu là kiểu dữ liệu của giá trị mà hàm trả về và chỉ có thể là các kiểu integer, real, char, boolean, string.

Cũng như giống thủ tục, nếu hàm không có tham số hình thức thì không cần danh sách tham số. Trong thân hàm cần có lệnh gán giá trị cho tên hàm:

<tên hàm>. = <biểu thức>;

Ví dụ 1

Hàm tính ước chung lớn nhất (UCLN) của hai số nguyên:

Function UCLN(x, y: integer): integer; {bắt đầu hàm UCLN}

var sodu: integer;

Begin

While x<>y do begin

sodu:= X mod y;

X: =y;

y:= sodu;

end;

UCLN:= x;

End {hết hàm UCLN}

- Sử dụng hàm

Việc sử dụng hàm hoàn toàn tương tự với việc sử dụng các hàm chuẩn, khi viết lệnh gọi gồm hàm và tham số thực sự tương ứng với các tham số hình thức.

Lệnh gọi hàm có thể tham gia vào biểu thức như một toán hạng và thậm chí là tham số của lời gọi hàm, thù tục khác, ví dụ:

A: 6*UCLN(Tuso, Mauso)+1; 

Ví dụ 2

Hàm tìm số nhỏ nhất trong hai số a và b:

Function Min(a, b: real):real;

Begin

If a

end;

HocTot.Nam.Name.Vn