<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>Nội dung</b>
<b>I. Khái niệm rẽ nhánh</b>
<b>II. Câu lệnh If-then-else </b>
<b>III. Câu lệnh ghép</b>
</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
I.Khái niệm rẽ nhánh
<b>Ý tưởng giải thuật</b>
a
b
a lớn nhất
Trường hợp 1
:
</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>
Ví dụ:
Cho 2 số a,b. Hãy cho biết số lớn nhất.
(không cần xét trường hợp a=b)
b
a
b lớn nhất
Trường hợp 2
:
<b>Ý tưởng giải thuật</b>
</div>
<span class='text_page_counter'>(4)</span><div class='page_container' data-page=4>
Sơ đồ khối:
Ví dụ:
Cho 2 số a,b. Hãy cho biết số lớn nhất.
(không cần xét trường hợp a=b)
Begin
Nhập a,b
a > b
Thông báo
a lớn nhất
Thông báo
b lớn nhất
</div>
<span class='text_page_counter'>(5)</span><div class='page_container' data-page=5>
II. Câu lệnh if-then-else
<b>a) Dạng thiếu</b>
If <điều kiện> then <câu lệnh>;
<b>ĐK</b>
<b>Câu lệnh </b>
</div>
<span class='text_page_counter'>(6)</span><div class='page_container' data-page=6>
II. Câu lệnh if-then-else
<b>a) Dạng đủ</b>
<b>If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;</b>
*Lưu đồ:
<b>ĐK</b>
<b>Câu lệnh 1</b>
<b>Câu lệnh 2</b>
</div>
<span class='text_page_counter'>(7)</span><div class='page_container' data-page=7>
TỪ KHÓA : IF , THEN , ELSE
ĐK
: là biểu thức kiểu Boolean (trả lại giá trị True hoặc
False)
CÔNG VIỆC
: là một hoặc nhiều lệnh của Pascal
Lưu ý quan trọng
: trước ELSE không có dấu chấm phẩy (;)
</div>
<span class='text_page_counter'>(8)</span><div class='page_container' data-page=8>
III. Câu lệnh ghép
Trong ngơn ngữ Pascal, Câu lệnh ghép
có dạng:
<b>Begin</b>
<các câu lệnh>;
</div>
<span class='text_page_counter'>(9)</span><div class='page_container' data-page=9>
Sau End phải là dấu ;
Từ nay nói đến câu lệnh thì đó có thể là
câu lệnh đơn hoặc là câu lệnh ghép.
III. Câu lệnh ghép
</div>
<span class='text_page_counter'>(10)</span><div class='page_container' data-page=10>
Ví dụ: viết chương trình
Cho 2 số
a,b. Hãy cho biết số lớn nhất
PROGRAM SOLON;
VAR a,b:integer;
BEGIN
Write(‘Nhap 2 so a , b : ‘);
Readln(a,b);
IF a>b THEN
Writeln(‘a la so lon nhat’)
ELSE
Writeln(‘b la so lon nhat’);
Readln;
END.
PROGRAM SOLON;
VAR a,b:integer;
BEGIN
Write(‘Nhap 2 so a , b : ‘);
Readln(a,b);
IF a>b THEN
Writeln(‘a la so lon nhat’)
ELSE
Writeln(‘b la so lon nhat’);
</div>
<span class='text_page_counter'>(11)</span><div class='page_container' data-page=11>
IV. Một số ví dụ
VD : Viết chương trình giải phương trình bậc I : ax + b =0
<b>PROGRAM PTB1;</b>
<b>VAR a,b:integer; x:real;</b>
<b>BEGIN</b>
<b> Write(‘Nhap 2 he so a , b : ‘);</b>
<b> Readln(a,b);</b>
<b> IF a = 0 THEN</b>
<b> IF b = 0 THEN</b>
<b> Writeln(‘Pt vo so nghiem’)</b>
<b> ELSE </b>
</div>
<span class='text_page_counter'>(12)</span><div class='page_container' data-page=12>
IV. Một số ví dụ
</div>
<span class='text_page_counter'>(13)</span><div class='page_container' data-page=13>
Program giai_ptrb2;
uses crt;
var a,b,c:real;
D,x,x1,x2:real;
begin
clrscr;
writeln('nhap vao 3 so a,b,c');
readln(a,b,c);
D:=sqr(b)-4*a*c; if
D<0 then writeln('ptr vo nghiem')
else begin
if
D=0 then begin
x:=-b/
(2*a);
</div>
<span class='text_page_counter'>(14)</span><div class='page_container' data-page=14>
IV. Một số ví dụ
Viết chương trình nhập vào 2 số a,b. Tính thương số a/b
PROGRAM THUONG;
VAR a,b:integer; t:real;
BEGIN
Write(‘Nhap 2 so a , b : ‘);
Readln(a,b);
IF b<>0 THEN
Begin
t:=a/b;
Writeln(‘Thuong la : ’,t:10:2);
End
ELSE
Writeln(‘Không chia duoc’);
Readln;
END.
Begin
Nhập a,b
b <>0
t:=a/b
Thông báo t
Thông báo
Không chia được
</div>
<span class='text_page_counter'>(15)</span><div class='page_container' data-page=15>
Viết chương trình tính tổng của 2 số a và b
nhập vào từ bàn phím.
</div>
<span class='text_page_counter'>(16)</span><div class='page_container' data-page=16></div>
<!--links-->