Tải bản đầy đủ (.ppt) (16 trang)

slide 1 nội dung i khái niệm rẽ nhánh ii câu lệnh if then else iii câu lệnh ghép iv một số ví dụ bài 9 i khái niệm rẽ nhánh ý tưởng giải thuật a b a lớn nhất trường hợp 1 ví dụ cho 2 số ab hãy cho bi

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (619.49 KB, 16 trang )

<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-->

×