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

TRÖÔØNG TRUNG HOÏC PHOÅ THOÂNG CAÀU KEØ


Giáo viên thực hiện:
Võ Minh Tâm
Kiểm tra bài cũ:
Em hãy viết cấu trúc của thủ tục (chương trình con)?
Trả lời

Procedure [()];
[]
begin
[]
end;
§18 VÍ DUÏ VEÀ CAÙCH VIEÁT VAØ SÖÛ DUÏNG
CHÖÔNG TRÌNH CON (tt)
-oOo-
Cách viết và sử dụng thủ tục
Cách viết và sử dụng hàm
§18 VÍ DUÏ VEÀ CAÙCH VIEÁT VAØ SÖÛ DUÏNG
CHÖÔNG TRÌNH CON (tt)
-oOo-
2. Caùch vieát vaø söû duïng haøm
Hàm có cấu trúc như sau:

Function [ () ]: ;
[]
Begin
[]
End;
+ Phần đầu hàm gồm tên dành riêng Function, tiếp theo là tên hàm. Danh sách tham số có thể có hoặc không có và khaibáo giá trị trả về..
+ Phần khai báo dùng để xác định các hằng, biến và cũng có thể xác định các chương trình con khác được sử dụng trong hàm.
+ Dãy câu lệnh được viết giữa tên dành riêng begin và end tạo thành thân hàm.
�18 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG
CHƯƠNG TRÌNH CON (tt)
-oOo-
2. Cách viết và sử dụng hàm
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.
* Điểm giống và khác nhau giữa thủ tục và hàm
+ Giống như 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ố.
+ Khác với thủ tục, trong thân hàm cần có lệnh gán giá trị cho tên hàm: := ;

Ví dụ 1:

Viết chương trình thực hiện việc rút gọn phân số, trong đó có
sử dụng hàm tìm ước chung lớn nhất (ƯCLN) của hai số
nguyên.


§18 VÍ DUÏ VEÀ CAÙCH VIEÁT VAØ SÖÛ DUÏNG
CHÖÔNG TRÌNH CON (tt)
-oOo-
2. Caùch vieát vaø söû duïng haøm

Program Rut_gon_phan_so;
uses crt;
var Tuso, Mauso, a :integer;
Function UCLN (x, y : integer):integer;
var sodu: integer;
begin
while y <> 0 do
begin
sodu := x mod y ;
x := y;
y := sodu;
end;
UCLN := x;
end;



Begin
clrscr;
write(` Nhap tu so, mau so vao! `);
readln(Tuso, mauso);
a := UCLN(Tuso, Mauso);
if a > 1 then
begin
Tuso := Tuso div a;
Mauso := Mauso div a;
end;
writeln(`tuso:6 ,` tren`, Mauso:6);
readln
End.
§18 VÍ DUÏ VEÀ CAÙCH VIEÁT VAØ SÖÛ DUÏNG
CHÖÔNG TRÌNH CON (tt)
-oOo-
2. Caùch vieát vaø söû duïng haøm
Chú ý: Lệnh gọi hàm có thể tham giavà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:= 4* Ucln (tuso, mauso) + 1;
§18 VÍ DUÏ VEÀ CAÙCH VIEÁT VAØ SÖÛ DUÏNG
CHÖÔNG TRÌNH CON (tt)
-oOo-
2. Caùch vieát vaø söû duïng haøm
Ví dụ 2:
Viết chương trình tìm giá trị nhỏ nhất trong ba số nhập từ bàn
phím, trong đó có sử dụng hàm tìm số nhỏ nhất trong hai số.




Program Min_ba_so;
uses crt;
var a, b, c : integer;
Function Min (a, b : real): real;
begin
If a < b then
Min := a
else
Min := b;
end;
Begin
clrscr;
write(’ Nhap vao ba so: ‘);
readln(a, b, c);
writeln(‘ So nho nhat trong ba so la:
‘,Min(Min(a,b), c: 6:2);
readln
End.
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, tring.
* Điểm giống và khác nhau giữa thủ tục và hàm
+ Giống như 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ố.
+ Khác với thủ tục, trong thân hàm cần có lệnh gán giá trị cho tên
hàm: := ;

Program tong;
var i, n : integer;
s : real;
Function gt (k: integer): longint;
var j: integer; kqtg : longint;
begin
kqtg := 1;
for j := 1 to k do
kqtg := kqtg*j;
gt := kqtg;
end;
begin
n:= 3; s:= 0;
for i := 1 to n do
s := s + gt(i);
writeln(` Tong la S= `, s:8:2);
readln
end.

Chọn mệnh đề đúng nhất
Trong chương trình trên biến
cục bộ là
A. k và j B. i, s và n
C. j và kqgt D. k
2. Trong chương trình trên biến
toàn cục là
A. k và j B. i, n và s
C. j và kqgt D. k
3. Trong chương trình trên tham số
thực sự là
A. i B. i, s và n
C. j và kqgt D. k
4. Trong chương trình trên tham số
biến là
A. j và kqtg B. i, s và n
C. k D. Không có
5. Tổng S là
A. 3 B. 0 C. 9 D. Kết quả khác



C
B
A
D
C

Daën doø
- Hoïc baøi
- Xem baøi taäp vaø thöïc haønh 6
CHÚC QUÝ
THẦY CÔ
VÀ CÁC
EM HỌC SINH
SỨC KHỎE
VÀ THÀNH ĐẠT!