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

hoana2007
Kiểm tra bài cũ
var a,b:integer;
procedure tinh(x:integer; var y:integer);
begin
x:=x+1;
y:=y+1;
end;
begin
a:=2;
b:=5;
writeln(a,` - `, b);
tinh(a,b);
writeln(a,` - `, b);
end.
hoana2007
Tiết 42 - §18
VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON

Giáo viên thực hiện: Nguyễn Anh Hoà
hoana2007
2. Cách viết và sử dụng hàm
Khai báo
Function [()]:;
[];
Begin
[];
:= ;
End;

Cách sử dụng hàm:
Việc sử dụng hàm hoàn toàn tương tự việc sử dụng hàm chuẩn
Lệnh gọi hàm có thể tham gia vào biểu thức như một toán hạng hoặc có thể là tham số cho lời gọi của hàm hay thủ tục khác.
hoana2007
2. Cách viết và sử dụng hàm
So sánh hàm và thủ tục:
Giống nhau:
Đều là CTC, nên cùng có cấu trúc chung.
Đều có thể chứa tham số, có cùng cách thức dùng để khai báo các ts này.

Khác nhau:
Hàm luôn trả về một giá trị qua tên của nó.
Bắt đầu bằng từ khoá function.
Sau tên và ds tham số có kiểu dữ liệu trả về.
Trong thân hàm có câu lệnh gán giá trị cho tên hàm
hoana2007
2. Cách viết và sử dụng hàm
b. Ví dụ
hoana2007
Ví dụ 1:
Ví dụ 2:
3) Ví dụ 3:
4) Ví dụ 4:
Ví dụ 2
hoana2007
Ví dụ 3
var a,b,c:real;
function Min(a,b:real):real;
begin
if a else Min := b;
end;
begin
write(`Nhap 3 gia tri`);
readln(a,b,c);
writeln(`So nho nhat la: `, Min(Min(a,b),c):4:2);
readln
end.

hoana2007
Ví dụ 4
hoana2007
Bài tập về nhà
Em hãy lập trình nhập vào một mảng A có n phần tử nguyên. Tính và đưa ra màn hình tổng các phần tử của mảng là chia hết cho 3.
HD:
Viết một thủ tục tạo và nhập dữ liệu cho mảng A.
Viết một hàm kiểm tra xem phần tử đó có chia hết cho 3 không.
Viết một hàm tính tổng các phần tử của mảng chia hết 3.
In kết quả đó ra màn hình.
hoana2007
Củng cố
Cách khai báo hàm
Cách sử viết hàm
Cách sử dụng hàm
hoana2007
hoana2007