BAÌI CUÎ

Giaíi thuáût chung láûp trçnh tênh toaïn âån giaín
Bæåïc 1: Nháûp âaûi læåüng vaìo (INPUT)
Bæåïc 2: Tênh theo cäng thæïc
Bæåïc 3: In giaï trë cuía âaûi læåüng ra (OUTPUT)

Chæång III
TÄØ CHÆÏC REÎ NHAÏNH VAÌ LÀÛP

TÄØ CHÆÏC REÎ NHAÏNH
Baìi 9:
Cáu lãûnh IF ... THEN...ELSE
Cáu lãûnh IF ... THEN
I. Cáu lãûnh reî nhaïnh daûng âuí
1. Baìi toaïn:
Nháûp vaìo säú N nguyãn dæång. Haîy thäng baïo N laì säú chàôn hay leí.
a. Xaïc âënh âaûi læåüng vaìo/ra:
Säú nguyãn dæång N
N laì säú chàôn hay leí
Input:
Output:
b. Täø chæïc dæî liãûu:
Biãún: N: Word
c. Giaíi thuáût
Bàõt âáöu
Nháûp N
Thäng baïo:
‘ N laì säú leí ’
N MOD 2=0
Kãút thuïc
Thäng baïo:
‘N laì säú chàôn ‘
Â
S
Thäng baïo:
‘N laì säú leí ‘
Thäng baïo:
N MOD 2=0
N laì säú chàôn
S
Â
Cáu lãûnh 1
Cáu lãûnh 2
Âiãöu kiãûn
2. Cáu lãûnh reî nhaïnh daûng âuí
2.1. Cuï phaïp:
IF <Âiãöu kiãûn> THEN

ELSE
;
2.2. Giaíi thêch:
* IF , THEN, ELSE
* <Âiãöu kiãûn>
*
: Tæì khoaï lãûnh
: Biãøu thæïc Logic
: Chè viãút 1 cáu lãûnh
2.3. Så âäö khäúi:
2.4. Caïch thæûc hiãûn lãûnh:
B1: Kiãøm tra <Âiãöu kiãûn>
B2: Nãúu ÂUÏNG thç thæûc hiãûn ,
ngæåüc laûi thç thæûc hiãûn .
B3: Kãút thuïc lãûnh IF
2.5. Vê duû: Kiãøm tra säú nguyãn A chàôn hay leí
IF N MOD 2 = 0 THEN
WRITELN(N , ‘ la so chan ’)
ELSE
WRITELN(N, ‘ la so le ’ );
2.6. Chuï yï:
 Sau khäng coï dáúu ;
 Coï thãø coï nhiãöu lãûnh IF läöng nhau
3. Chæång trçnh baìi toaïn:
PROGRAM SOCHANLE ;
VAR N : WORD;
BEGIN
WRITE(‘Nhap so nguyen duong N : ’);
READLN(N);
IF N MOD 2= 0 THEN
WRITELN(N , ‘la so chan ‘)
ELSE
WRITELN(N , ‘la so le ‘);
READLN;
END.
4. Vê duû aïp duûng:
Viãút chæång trçnh giaíi phæång trçnh báûc nháút Ax + B = 0
a. Xaïc âënh âaûi læåüng vaìo/ra:
Caïc hãû säú A,B
Nghiãûm säú X
Input:
Output:
b. Täø chæïc dæî liãûu:
Biãún: A,B, X: Säú thæûc
c. Giaíi thuáût
Bàõt âáöu
Nháûp A,B
Thäng baïo:
Vä nghiãûm
X := -B/A
A <> 0
Kãút thuïc
Thäng baïo: X
Â
S
Thäng baïo:
Vä säú nghiãûm
B <> 0
Â
S
IF A< > 0 THEN
Begin
X: = -B/ A;
WRITELN(‘Nghiem X=‘ , X:12:2);
End
ELSE
IF B< > 0 THEN
WRITELN(‘Phuong trinh vo nghiem ‘)
ELSE
WRITELN(‘Phuong trinh vo so nghiem ‘);
PROGRAM GIAI_PTB1;
VAR A,B, X: REAL;
BEGIN
WRITE(‘Nhap he so A : ’); READLN(A);
WRITE(‘Nhap he so B : ’); READLN(B);
IF A< > 0 THEN
Begin
X: = -B/ A;
WRITELN(‘Nghiem X = ‘ , X:12:2);
End
ELSE
IF B< > 0 THEN
WRITELN(‘Phuong trinh vo nghiem ‘)
ELSE
WRITELN(‘Phuong trinh vo so nghiem ‘);
READLN;
END.
TÄØ CHÆÏC REÎ NHAÏNH
Cuï phaïp cáu lãûnh IF âáöy âuí:
IF <Âiãöu kiãûn> THEN

ELSE
;
Cuï phaïp cáu lãûnh IF âáöy âuí:
IF <Âiãöu kiãûn> THEN

ELSE
[;]
Cáu lãûnh 2
Cáu lãûnh IF khuyãút:
IF <Âiãöu kiãûn> THEN
[;]


II. CÁU LÃÛNH REÎ NHAÏNH DAÛNG KHUYÃÚT
1.1. Cuï phaïp:
IF <Âiãöu kiãûn> THEN
[;]

1.2. Giaíi thêch:
* IF , THEN
* <Âiãöu kiãûn>
*
: Tæì khoaï lãûnh
: Biãøu thæïc Logic
: Chè viãút 1 cáu lãûnh
1. Cáu lãûnh IF khuyãút
1.3. Så âäö khäúi:
1.4. Caïch thæûc hiãûn lãûnh:
B1: Kiãøm tra <Âiãöu kiãûn>
B2: Nãúu ÂUÏNG thç thæûc hiãûn ,
B3: Kãút thuïc lãûnh IF
2.5. Vê duû:
IF B > MAX THEN MAX := B;
2. Vê duû aïp duûng:
Viãút chæång trçnh tçm giaï trë låïn nháút cuía 3 säú A, B, C
a. Xaïc âënh âaûi læåüng vaìo/ra:
A,B,C
MAX cuía A,B,C
Input:
Output:
b. Täø chæïc dæî liãûu:
Biãún: A,B, C, MAX: Säú thæûc
c. Giaíi thuáût:
B1: Nháûp giaï trë A, B, C
B3: Nãúu Max < B thç
B2: Max  A
B4: Nãúu Max< C thç
B5: Thäng baïo Max
c.1. Liãût kã:
B6: Kãút thuïc
Max  B
Max  C
c.2. Så âäö khäúi:
MAX  B
MAXThäng baïo max vaì kãút thuïc
Nháûp A, B, C
MAX  A
MAXA  10
B  15
C  12
MAX10
MAX  15
PROGRAM TIM_MAX;
VAR A,B,C,max: REAL;
BEGIN
WRITE(‘Nhap so A : ’); READLN(A);
WRITE(‘so B : ’); READLN(B);
WRITE(‘so C : ’); READLN(C);
Max := A;
IF B > MAX THEN MAX: = B ;
IF C > MAX THEN MAX: = C ;
WRITELN(‘Gia tri lon nhat: ‘ , Max:10:2);
READLN;
END.
III. CÁU LÃÛNH
Laì cáu lãûnh khäng chæaï cáu lãûnh khaïc
Vê duû: A:= B + C;
hoàûc WRITE(‘Nhap A: ‘);

1. Cáu lãûnh âån:
III. CÁU LÃÛNH
Laì cáu lãûnh coï chæaï 1 hoàûc nhiãöu cáu lãûnh khaïc âæåüc liãn kãút båíi tæì khoaï lãûnh
Vê duû:
IF B> MAX THEN MAX:= B;
2. Cáu lãûnh phæïc:
III. CÁU LÃÛNH
Chæaï nhiãöu cáu lãûnh âæåüc âàût giæía càûp tæì khoaï BEGIN vaì END.
BEGIN

END
Vê duû:
BEGIN
X:= -B/A;
WRITELN(‘ Nghiem X= ‘ , X:10:2);
END;
3. Cáu lãûnh gheïp: