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]
(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
(2)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:
(3)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
(4)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
(5)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
(6)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
(7)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 (;)
(8)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>;
(9) 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
(10)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’);
(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
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
(12)IV Một số ví dụ
(13)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);
(14)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
(15)Viết chương trình tính tổng số a b nhập vào từ bàn phím.
(16)