– Giạo trçnh Láûp trçnh Pascal càn bn —

–
43
—

Trang 43
End.

_________ o
²
o _________

BI 7. CHỈÅNG TRÇNH CON: HM V TH TỦCKhi láûp trçnh, cọ nhỉỵng âoản chỉång trçnh cáưn dng nhiãưu láưn. Âãø trạnh viãûc viãút
lải âoản ny, ta nãn chuøn âoản chỉång trçnh ny thnh mäüt chỉång trçnh con v
mäùi láưn cáưn thỉûc hiãûn cäng viãûc âọ thç ta gi nọ thäng qua tãn.
Chỉång trçnh con cn âãø máùu hoạ mäüt chỉång trçnh lm cäng viãûc no âọ.
Ngỉåìi khạc dng chỉång trçnh con
chè cáưn biãút truưn säú liãûu vo v láúy kãút qa ra
nhỉ thãú no m khäng cáưn phi quan tám âãún thût toạn trong chỉång trçnh con nhỉ
thãú no
.
Khi viãút nhỉỵng chỉång trçnh låïn, âãø dãù dng qun l, gåỵ räúi v hiãûu chènh
chỉång trçnh, ta nãn phán chỉång trçnh thnh nhiãưu
cäng viãûc âäüc láûp
, mäùi cäng
viãûc l mäüt chỉång trçnh con. Chỉång trçnh con gäưm cọ hai loải l
HM (Function)

Th
_
tủc(TS1: Kiãøu; TS2: Kiãøu;...; Var TS3: Kiãøu; Var TS4:
Kiãøu;... );
Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn


44


Trang 44
Var caùc bióỳn cuỷc bọỹ;
Begin
Caùc lóỷnh;
...;
End;
Phổồng phaùp goỹi thuớ tuỷc:
Tón
_
haỡm(Danh saùch caùc tham sọỳ thổỷc sổỷ);
Sổỷ
khaùc nhau cồ baớn giổợa haỡm vaỡ thuớ tuỷc laỡ haỡm traớ vóử mọỹt giaù trở thọng qua tón
haỡm, haỡm coù thóứ tham gia vaỡo caùc bióứu thổùc tờnh toaùn
coỡn
thuớ tuỷc khọng cho giaù trở
naỡo caớ
. Khi taỷo haỡm,
trong thỏn haỡm bao giồỡ cuợng coù giaù trở gaùn cho tón haỡm õóứ
haỡm traớ vóử giaù trở naỡy khi õổồỹc goỹi.


– Giạo trçnh Láûp trçnh Pascal càn bn —

–
45
—

Trang 45
b := 10;
c := 10;
d := 10;
Chuyen(a, b, c, d);
Write( ‘ a = ‘ , a, ‘. b = ‘ , b, ‘. c = ‘, c, ‘. d = ‘ , d );
Readln;
End.

1 Kãút qu khi chảy chỉång trçnh:
a = 10. b = 10. c = 40. d =50

II. Biãún ton củc, biãún củc bäü v viãûc truưn dỉỵ liãûu:
Biãún ton củc
l biãún khai bạo åí âáưu chỉång trçnh chênh, täưn tải trong sút thåìi
gian lm viãûc ca chỉång trçnh. Ta cọ thãø sỉí dủng v lm thay âäøi giạ trë ca biãún
ton củc nhåì cạc cáu lãûnh trong chỉång trçnh chênh cng nhỉ trong táút c cạc
chỉång trçnh con.
Biãún củc bäü
l biãún l biãún khai bạo åí âáưu chỉång trçnh con. Chụng âỉåüc cáúp
phạt bäü nhåï khi chỉång trçnh con âỉåc gi âãún v bë xoạ khi mạy thoạt khi chỉång
trçnh con âọ. Biãún củc bäü cọ giạ trë trong chỉång trçnh con v táút c cạc chỉång
trçnh con khạc nàòm trong chỉång trçnh con ny.
Nãúu tãn biãún củc bäü ca mäüt chỉång trçnh con trng våïi mäüt tãn biãún ton củc

thỗ kóỳt quaớ ồớ tham sọỳ thổỷc sổỷ ổùng vồùi tham sọỳ
bióỳn. Khi cỏửn lỏỳy duy nhỏỳt mọỹt giaù trở tổỡ chổồng trỗnh con thỗ ta lỏỷp mọỹt
FUNCTION
, khi cỏửn lỏỳy tổỡ hai giaù trở trồớ lón tổỡ chổồng trỗnh con hoỷc khọng lỏỳy
giaù trở naỡo thỗ ta phaới lỏỷp
PROCEDURE.

4 Vờ duỷ 1: Lỏỷp haỡm tờnh dióỷn tờch hỗnh thang. Nhỏỷp dổợ lióỷu cuớa hai thổớa ruọỹng
hỗnh thang vaỡ tờnh tọứng dióỷn tờch hai thổớa ruọỹng.
Var a1, b1, h1, a2, b2 , h2, s : Real;
(************* Bat dau Function **************)
Function DTHinhThang(a, b, h) : Real;
Begin
DTHinhThang := (a + b) * h / 2;
End;
(********* Bat dau chuong trinh chinh **********)
Begin
Write( Canh dai, ngan va cao cua thua ruong thu nhat: );
Readln(a1, b1, h1);
Write( Canh dai, ngan va cao cua thua ruong thu hai: );
Readln(a2, b2, h2);
s := DTHinhThang(a1, b1, h1) + DTHinhThang(a2, b2, h2);
Writeln( Tong dien tich hai thua ruong = , s : 0 : 3);
Readln;
End.
4 Vờ duỷ 2: Lỏỷp haỡm tờnh ổồùc sọỳ chung lồùn nhỏỳt
(USCLN).
Sau õoù, duỡng haỡm naỡy
õóứ tờnh
USCLN

usc := USCLN(m, n);
bsc := m * n div USCLN(m, n);
Writeln( ' Uoc so chung lon nhat cua ', m, ' va ', n, ' la : ', usc);
Writeln( ' Boi so chung nho nhat cua ', m, ' va ', n, ' la :', bsc);
Readln;
End.
4
Vờ duỷ 3: Lỏỷp mọỹt thuớ tuỷc õóứ tờnh õọửng thồỡi dióỷn tờch vaỡ thóứ tờch hỗnh cỏửu.
Var r, s, v : Real;
Reply : Char;
(************** Function ***************)
Procedure SVHinhCau( r : Real; Var s, v :Real);
Begin
s := 4 * pi * r * r;
v := 4 * pi * r * r * r / 3;
End;
(******** bat dau chuong trinh chinh ********)
Begin
Repeat
Write( Nhap ban kinh hinh cau : );
Readln(r);
SVHinhCau(r, s, v);
Writeln( Dien tich = , s : 0 : 4, . The tich = , v : 0 :4 );
Write( Ban co tiep tuc khong ?(C/K) );
Readln(Reply);