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

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. Bài tập về nhà.[r]

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

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

Ý tưởng giải thuật

Sơ đồ khối:

Ví dụ: Cho 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

II Câu lệnh if-then-else

a) Dạng thiếu

If <điều kiện> then <câu lệnh>;

ĐK Câu lệnh

II Câu lệnh if-then-else

a) Dạng đủ

If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

*Lưu đồ:

ĐK

Câu lệnh 1

Câu lệnh 2

TỪ KHÓA : IF , THEN , ELSE

ĐK : biểu thức kiểu Boolean (trả lại giá trị True

False)

CÔNG VIỆC : nhiều lệnh Pascal

Lưu ý quan trọng : trước ELSE khơng có dấu chấm phẩy (;)

III Câu lệnh ghép

 Trong ngôn ngữ Pascal, Câu lệnh ghép

có dạng:

 Begin

<các câu lệnh>;

 Sau End phải dấu ;

 Từ nói đến câu lệnh

câu lệnh đơn câu lệnh ghép.

III Câu lệnh ghép

Ví dụ: viết chương trình Cho số a,b Hãy cho biết số lớn nhất

PROGRAM SOLON; VAR a,b:integer; BEGIN

Write(‘Nhap 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 so a , b : ‘); Readln(a,b);

IF a>b THEN

Writeln(‘a la so lon nhat’) ELSE

Writeln(‘b la so lon nhat’);

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

PROGRAM PTB1;

VAR a,b:integer; x:real; BEGIN

Write(‘Nhap he so a , b : ‘); Readln(a,b);

IF a = THEN IF b = THEN

Writeln(‘Pt vo so nghiem’) ELSE

IV Một số ví dụ

Program giai_ptrb2; uses crt; var a,b,c:real; D,x,x1,x2:real; begin clrscr;

writeln('nhap vao 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);

IV Một số ví dụ

Viết chương trình nhập vào số a,b Tính thương số a/b

PROGRAM THUONG; VAR a,b:integer; t:real; BEGIN

Write(‘Nhap 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

Viết chương trình tính tổng số a b nhập vào từ bàn phím.