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

–
20
—

Trang 20
Nãúu ta g
ABCDE1234567
v áún phêm
< Enter >
thç:
s1 = ‘ABCDE’, s2 =
‘12345’, s3 = ‘67’.

4
Vê dủ 3: Viãút chỉång trçnh tênh diãûn têch
S
ca hçnh thang våïi âạy di
a
, âạy
ngàõn
b
, chiãưu cao
h
, táút c âỉåüc nháûp tỉì bn phêm.
Program DienTichHinhThang;
Uses CRT;
Var a, b, h, s : Real;
Begin
ClrScr;

Lãûnh ghẹp âỉåüc thỉûc hiãûn bàòng cạch thỉûc hiãûn tưn tỉû cạc cáu lãûnh nàòm giỉỵa
BEGIN
v
END.

Cụ phạp:
Begin
<cáu lãûnh 1>;
<cáu lãûnh 2>;
– Giạo trçnh Láûp trçnh Pascal càn bn —

–
21
—

Trang 21
...
<cáu lãûnh n>;
End;
Sau
<cáu lãûnh n>
cọ thãø cọ dáúu ‘;‘ hồûc khäng.
Lãûnh ghẹp cng l mäüt dảng cáu
lãûnh.
4 Vê dủ:
Begin
temp := x;
x := y;
y := temp;
End;

thç
<lãûnh 2>
âỉåüc thỉûc
hiãûn. Trỉåìng håüp trong cáu lãûnh khäng cọ pháưn
ELSE
v
<biãøu thỉïc logic>
cọ giạ
trë
FALSE
thç
<lãûnh 1>
khäng âỉåüc thỉûc hiãûn v mạy chuøn âãún cáu lãûnh kãú sau
lãûnh
IF
âọ.
Ư Chụ : cáu lãûnh trỉåïc tỉì khọa
ELSE
khäng âỉûåc cọ dáúu ‘;‘. Trỉåìng håüp cọ cáu
lãûnh ghẹp âỉûåc âàût kãú trỉåïc
ELSE
thç tỉì khoạ
END
trỉåïc
ELSE
khäng âỉåüc âàûtï
dáúu ‘;‘.
Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn



Write( Nhap so b: );
Readln(b);
Write( Nhap so c: );
Readln(c);
Max := a;
If max < b then
Max := b;
If max < c then
Max := c;
Write( So lon hon la , max);
Readln;
End.
4
Vờ duỷ 3: Vióỳt chổồng trỗnh kióứm tra ba sọỳ õổồỹc nhỏỷp tổỡ baỡn phờm coù thóứ laỡ õọỹ daỡi
cuớa ba caỷnh trong mọỹt tam giaùc hay khọng? Nóỳu õuùng laỡ ba caỷnh cuớa tam giaùc thỗ
Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn


23


Trang 23
tờnh chu vi vaỡ dióỷn tờch tam giaùc, xeùt tam giaùc coù phaới laỡ tam giaùc
õóửu
,
cỏn
hay
khọng.
Var a, b, c, p, s : Real;
Begin

_
1>;
Tỏỷp
_
hũng
_
2: <lóỷnh
_
2>;
.......

Tỏỷp
_
hũng
_
n: <lóỷnh n>;
ELSE
<lóỷnh n +1>;
END;
Lóỷnh
CASE
coù thóứ khọng coù phỏửn
ELSE <lóỷnh n +1>;
Giaùo trỗnh Lỏỷp trỗnh Pascal cn baớn


24


Trang 2 4

3. Tỏỷp hũng naỡo coù chổùa giaù trở tổồng õổồng vồùi giaù trở cuớa
<bióứu thổùc>
thỗ lóỷnh sau
dỏỳu : cuớa tỏỷp hũng õoù õổồỹc thổỷc hióỷn, sau õoù maùy thoaùt khoới lóỷnh
CASE.

4. Trong trổồỡng hồỹp tỏỳt caớ caùc tỏỷp hũng khọng coù chổùa giaù trở tổồng õổồng vồùi giaù
trở cuớa
<bióứu thổùc>
thỗ lóỷnh sau tổỡ khoùa
ELSE
õổồỹc thổỷc hióỷn. Trổồỡng hồỹp naỡy nóỳu
khọng coù caớ phỏửn
ELSE <lóỷnh n+1>;
thỗ lóỷnh
CASE
naỡy õổồỹc thoaùt vaỡ khọng coù
lóỷnh naỡo sau dỏỳu : õổồỹc thổỷc hióỷn.
4
Vờ duỷ 1: Vióỳt chổồng trỗnh nhỏỷp vaỡo mọỹt õióứm kióứm tra tổỡ baỡn phờm vaỡ in kóỳt
quaớ xóỳp loaỷi: loaỷi
Yóỳu (dổồùi 5 õióứm),
loaỷi
Trung bỗnh (5, 6 õióứm),
loaỷi
Khaù (7, 8
õióứm),
loaỷi
Gioới (9, 10 õióứm).
Var Diem : Byte;