CD về cách sử dụng Hàm

Ví dụ về cách viết và sử dụng Chương trình con
[email protected]
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
2. Cách viết và sử dụng hàm
2. Cách viết và sử dụng hàm
a. Cấu trúc hàm
Program vidu;
Uses crt;
Var …………
Hàm
……
……
Begin

………….
End.
Program vidu;
Uses crt;
Var …………………
Function ([]):;
[]
begin
[]
:= ;
end;

Begin

………….
End.
2. Cách viết và sử dụng hàm
a. Cấu trúc hàm
b. Ví dụ:
Ví Dụ 1: Chương trình tối giản phân số
VD: nhập 6/10 => ra 3/5
* INPUT: Nh?p phõn s? a/b;
* OUTPUT: Phõn s? c/d,
?Vi?t chuong trỡnh con th?c hi?n tỡm UCLN(a,b) v� g?i nú d? rỳt g?n phõn s? trong chuong trỡnh chớnh.
trong đó c = a/UCLN(a,b);
d = b/UCLN(a,b);
Program tgps;
Uses crt;
Var tu,mau,c,d : integer;
Function UCLN( a,b :integer) : integer;
Begin
While a<> b do
if a>b then a:= a-b else b:=b-a;
UCLN := a;
end;
BEGIN
Write(‘ Nhap vao tu so va mau so:’); readln(tu,mau);
C := tu div UCLN(tu,mau) ; d := mau div UCLN(tu,mau);
Writeln(‘ Phan so toi gian = ’, c, ‘ / ’, d);
Readln;
END.
Write(`Nhap vao tu so va mau so:`);
C := 6 div
d := 10 div
UCLN(6,10)
UCLN(6,10);
Writeln(` Phan so toi gian = `, 3, ` / `, 5);
Readln;
END.
BEGIN
Readln(tu,mau);
UCLN=2;
UCLN=2;


Nhap vao tu so va mau so:
6 10
Phan so toi gian= 3/5
Ví Dụ 2: Chương trình tính
VD: nhập n: 5 Kết quả:
k: 3
* INPUT : Nh?p n, k
* OUTPUT :
Program to_hop;
Uses crt;
Var n,k : integer;
nCk: real;
Function gt( n : integer) : integer;
var i,s: integer;
Begin
s:=1;
for i:=1 to n do
s:=s*i;
gt:=s;
end;
BEGIN
Write(‘ Nhap n:’); readln(n);
Write(‘ Nhap k:’); readln(k);
nCk := gt(n) /(gt(k) *gt(n-k));
Writeln(‘ nCk = ’, nCk);
Readln;
END.
Write(‘ Nhap n:’); readln(n);
Write(‘ Nhap k:’); readln(k);
BEGIN


Nhap vao n, k:
5 3
nCk = 10
nCk := gt(5)
gt(3)
gt(5-3)
gt(5)
gt=120
gt(3)
gt=6
gt(2)
gt=2
Writeln(‘ nCk = ’,10)
Program to_hop;
Uses crt;
Var n,k : integer;
nCk: real;
Function gt( n : integer) : integer;
var i,s: integer;
Begin
s:=1;
for i:=1 to n do
s:=s*i;
gt:=s;
end;
BEGIN
Write(‘ Nhap n:’); readln(n);
Write(‘ Nhap k:’); readln(k);
nCk := gt(n) /(gt(k) *gt(n-k));
Writeln(‘ nCk = ’, nCk);
Readln;
END.
Cấu trúc hàm
Cách viết hàm
Lời gọi hàm
Bài tập
Viết chương trình tính chỉnh hợp chập k của n
Viết chương trình tìm max của 3 số