Bài 18. Ví dụ về cách viết và sử dụng chương trình con
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Hà Tiến Dũng
Ngày gửi: 07h:37' 02-03-2012
Dung lượng: 160.0 KB
Số lượt tải: 75
Nguồn:
Người gửi: Hà Tiến Dũng
Ngày gửi: 07h:37' 02-03-2012
Dung lượng: 160.0 KB
Số lượt tải: 75
Số lượt thích:
0 người
Bài 18: 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
* Cấu trúc thủ tục
Procedure [()];
[< PhÇn khai b¸o >]
Begin
[]
End;
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
Cấu trúc hàm
Cách viết hàm
Lời gọi hàm
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;
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.
Ví Dụ 3: Viết hàm TongChan (n:integer) : integer; để tính tổng các số chẵn nhỏ hơn hoặc bằng n
VD: nhập n:5 Kết quả: 6
* INPUT : Nh?p n
* OUTPUT : Tong Chan
Function TongChan(n:integer):integer;
var i, tong:integer;
begin
tong:=0;
for i:=1 to n do if i mod 2 = 0 then tong:=tong+i;
tongchan:=tong;
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
2. Viết chương trình tìm max của 3 số
Max(Max(a,b),c)
1. Cách viết và sử dụng thủ tục
* Cấu trúc thủ tục
Procedure
[< PhÇn khai b¸o >]
Begin
[
End;
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
Cấu trúc hàm
Cách viết hàm
Lời gọi hàm
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;
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.
Ví Dụ 3: Viết hàm TongChan (n:integer) : integer; để tính tổng các số chẵn nhỏ hơn hoặc bằng n
VD: nhập n:5 Kết quả: 6
* INPUT : Nh?p n
* OUTPUT : Tong Chan
Function TongChan(n:integer):integer;
var i, tong:integer;
begin
tong:=0;
for i:=1 to n do if i mod 2 = 0 then tong:=tong+i;
tongchan:=tong;
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
2. Viết chương trình tìm max của 3 số
Max(Max(a,b),c)
Các ý kiến mới nhất