Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn


11


Trang 11
-
ODD(x)
Traớ vóử giaù trở
True
nóỳu x laỡ sọỳ leớ vaỡ traớ vóử giaù trở
False
nóỳu x laỡ
sọỳ chụn.
IV. Sổớ duỷng haỡm Random(n) õóứ lỏỳy mọỹt giaù trở nguyón ngỏựu nhión:
Haỡm
Random(n)
seợ traớ vóử mọỹt giaù trở nguyón maỡ maùy lỏỳy ngỏựu nhión coù giaù trở tổỡ
0 õóỳn n. Trong õoù,
n laỡ mọỹt sọỳ kióứu Word
tổùc laỡ trong khoaớn tổỡ
0.. 65535.
Trổồùc khi sổớ duỷng haỡm Random ta phaới goỹi thuớ tuỷc
Randomize
õóứ khồới taỷo bọỹ
taỷo sọỳ ngỏựu nhión
_________ oo _________
BAèI 3: HềNG S, BIN S, BIỉU THặẽC VAè CU LNH
N GIAN TRONG NGN NGặẻ PASCAL
I. Hũng sọỳ:

laỡ tón caùc hũng sọỳ, caùc
trở
_
sọỳ
_
1,2,...,n
laỡ caùc giaù trở gaùn cho caùc
tón hũng
a
1
...a
n
.

F
Vờ duỷ mọỹt caùch khai baùo hũng sọỳ:
Const Pi = 3.1416, Max = 500;
4
Vờ duỷ: chổồng trỗnh tờnh chu vi õổồỡng troỡn coù sổớ duỷng hũng sọỳ
Pi
do ta õởnh
nghộa:
Program TinhCV_DT_HT;
Const Pi = 3.1416;
Var R :Real;
Begin
Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn


12

Sin(x)
bũng mọỹt lỏửn. Cuỷ thóứ, ta thổỷc hióỷn nhổ
sau:
t := Sin(x);
z := Exp(a + t * t - x);
Taùc phong
tọỳi ổu hoaù
naỡy seợ rỏỳt coù ờch cho baỷn khi baỷn coù mọỹt chổồng trỗnh vồùi
khọỳi lổồỹng tờnh toaùn õọử sọỹ, coù thóứ chaỷy vaỡi ngaỡy õóm lión tuỷc nhổng nóỳu bióỳt tọỳi ổu
ngay tổỡ õỏửu thỗ seợ giaớm bồùt xuọỳng coỡn mọỹt ngaỡy chúng haỷn. Luùc naỡy baỷn mồùi thỏỳu
hióứu
tọỳi ổu hoaù
õóứ laỡm gỗ ?
II. Bióỳn sọỳ:
1. Khaùi nióỷm:
- Laỡ õaỷi lổồỹng maỡ
giaù trở cuớa noù coù thóứ thay õọứi trong quaù trỗnh thổỷc hióỷn chổồng
trỗnh
. Bióỳn õổồỹc khai baùo bũng tổỡ khoaù
VAR.

- Bióỳn laỡ tón cuớa mọỹt vuỡng bọỹ nhồù lổu trổợ dổợ lióỷu.
- Bióỳn õổồỹc truy xuỏỳt trong chổồng trỗnh thọng qua tón bióỳn.
- Bióỳn laỡ mọỹt cỏỳu truùc ghi nhồù dổợ lióỷu vỗ vỏỷy phaới õổồỹc quy õởnh theo mọỹt kióứu
dổợ lióỷu naỡo õoù, vờ duỷ kióứu
Integer, Byte, Char,...
2. Cuù phaùp khai baùo cho caùc bióỳn:
VAR Tón_bióỳn_1, Tón_bióỳn_2, Tón_bióỳn_n : Kióứu_dổợ_lióỷu_cuớa_bióỳn;
Trong õoù:
Tón

nghéa.
F
Vê dủ mäüt cạch khai bạo biãún:
Var a,b : Integer;
c : Real;
Ten : String [10];
4 Vê dủ: chỉång trçnh tênh täøng hai säú ngun âỉåüc nháûp tỉì bn phêm. Trong bi
ny, ta cáưn khai bạo hai biãún
a
v
b
âãø tênh toạn.
Uses CRT;
Var a, b : Integer;
Begin
ClrScr;
Write( ‘ Nhap so thu nhat : ‘ );
Readln(a);
Write( ‘ Nhap so thu hai : ‘ );
Readln(b);
Write( ‘ Ket qua : ‘, a ,’ + ‘, b ,’ = ‘, a + b);
Readln;
End.
III. Biãøu thỉïc:
Mäüt biãøu thỉïc âỉåüc tảo båíi cạc
toạn tỉí (phẹp toạn)
v cạc
toạn hảng
dng âãø thãø
hiãûn mäüt cäng thỉïc toạn hc.

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

–
14
—

Trang 1 4
+ Cạc phẹp toạn mäüt ngäi âỉåüc ỉu tiãn thỉï nháút l: dáúu dỉång
(+),
dáúu ám
(-
),
phẹp ph âënh
(not).

+ Cạc phẹp toạn nhán chia:
nhán (*), chia (/)
,
láúy pháưn ngun (div), láúy
pháưn dỉ (mod), phẹp v (and).

+ Cạc phẹp cäüng trỉì: cäüng
(+),
trỉì
(-),
phẹp hồûc
(or).

+ Cạc phẹp so sạnh:
<, <= , > , >= , = , < >.

(IF... ELSE, CASE... OF)
+ Lãûnh làûp
(FOR, REPEAT... UNTIL, WHILE... DO)
+ Lãûnh
WITH.

Ư Ghi chụ: Näüi dung bi ny chè âãư cáûp âãún cạc lãûnh âån gin.
Cạc lãûnh cọ cáúu
trục âỉåüc trçnh by åí bi 4.

1. Lãûnh gạn:
a
db
2
+−
– Giạo trçnh Láûp trçnh Pascal càn bn —

–
15
—

Trang 1 5
Lãûnh gạn dng âãø gạn giạ trë ca mäüt biãøu thỉïc
(cọ thãø l hm, biãún hồûc giạ trë)
cho mäüt biãún.
Cụ phạp:
Biãún := biãøu_thỉïc;
F
Âáưu tiãn,
mạy tênh giạ trë ca biãøu thỉïc åí vãú phi,

c1 := ‘A’;
c2 := Chr(97);
i := (23 + 6) * 2 mod 3;
j := Round(20 / 3);
x := i;
y := j;
2. Lãûnh Xút:
Lãûnh xút dng âãø in lãn mn hçnh cạc dỉỵ liãûu, kãút qu hay cạc thäng bạo.
Cụ phạp
(1). WRITE(Biãøu_thỉïc_1, Biãøu_thỉïc_2,..., Biãøu_thỉïc_n);
(2)
.
WRITELN(Biãøu_thỉïc_1, Biãøu_thỉïc_2,..., Biãøu_thỉïc_n);
(3). WRITELN;