Đang tải... (xem toàn văn)
Nếu sau Then muốn thực hiện nhiều câu lệnh thì các lệnh phải đặt giữa Begin và End ;. Nếu sau Then muốn thực hiện nhiều câu lệnh thì các lệnh phải đặt giữa Begin và End[r]
(1)Kiểm tra cũ:
Câu 1: Trong Pascal, biến nhận giá trị nguyên
trong phạm vi từ 10 đến 25532 biến khai báo kiểu liệu nào?
Câu 2: Biến P nhận giá trị 5; 10; 15; 20 biến X nhận các giá trị 0,1; 0,2; 0,3; 0,4; 0,5 Khai báo
khai báo sau đúng?
A Var X, P: byte; B Var P, X: real; C Var P: real;
X: byte;
(2)Kiểm tra cũ:
Câu 3: Hãy chuyển biểu thức Pascal sang biểu thức toán học tương ứng?
a) a/b*2 b) a*b*c/2 c) 1/a*b/c d) b/sqrt(a*a+b)
Câu 4: Hãy viết biểu thức toán học Pascal?
1 sin
2
x a
(3)Chương 3
Chương 3
CẤU TRÚC RẼ NHÁNH VÀ LẶP
(4)(5)Dạng thiếu: Nếu …thì….
Dạng đủ: Nếu …thì ,nếu khơng thì…. 1 Rẽ nhánh
VD1: Nếu ngày mai mưa An khơng đi
VD2: Nếu ngày mai mưa An khơng đi, khơng mưa An chơi với nhóm
VD1: Nếu ngày mai mưa thì An khơng chơi
VD2: Nếu ngày mai mưa thì An khơng đi, nếu khơng
(6)Ví dụ: Biện luận trường hợp Delta (D= bBiện luận trường hợp Delta (D= 2 – 4ac) để kết
luận nghiệm phương trình bậc hai: ax2 + bx + c=0;
1 Rẽ nhánh
- Nếu D < kết luận phương trình vơ nghiệm
(7)If <Điều kiện> Then <Câu lệnh>;
Điều kiện
Đúng
Câu lệnh
Sai
a Dạng thiếu:
Câu lệnh Đúng
Câu lệnh
Điều kiện Điều kiện 2 Câu lệnh If-then
Ví dụ: Nếu a chia hết cho in hình a số chẳn
Trong đó: - Điều kiện biểu thức quan hệ biểu thức lôgic - Câu lệnh lệnh Turbo Pascal
Cơ chế hoạt động: Nếu <điều kiện> đúng thì câu lệnh thực
hiện, ngược lại thì câu lệnh bị bỏ qua
If (a mod 2=0) then write(‘a la so chan’);
(8)b Dạng đủ:
If <Điều kiện> Then <Câu lệnh 1> Else <Câu lệnh 2>;
Điều kiện Đúng
Câu lệnh 1
Sai
Câu lệnh 2
Cơ chế hoạt động: Nếu <điều kiện> thì <câu lệnh1> thực hiện, ngược lại thì <câu lệnh 2> thực hiện.
Điều kiện
Câu lệnh 1
Câu lệnh 2
Điều kiện
Câu lệnh 1
Điều kiện
Ví dụ: If (a mod 2=0) Then Writeln(‘a la so chan’)
else Writeln(‘a la so le’);
2 Câu lệnh If-then (tt)
(9)2 Câu lệnh If-then (tt)
Chú ý:
- Trong câu lệnh If-Then If-Then-Else sau Then, Else có câu lệnh.
(10)Hãy dùng câu lệnh If – Then để xét điều kiện Delta (D)?
If D<0 Then Writeln(‘Phuong trinh vo nghiem’) Else
x1:= (-b + sqrt(Delta))/(2*a); x2:= (-b - sqrt(Delta))/(2*a);
(11)3 Câu lệnh ghép
Trong Turbo Pascal cho phép gộp nhiều câu lệnh thành câu lệnh gọi câu lệnh ghép (câu lệnh hợp thành), có dạng:
Begin
<Các câu lệnh>;
End;
If Delta<0 Then Writeln(‘Phuong trinh vo nghiem’) Else
begin
x1:= (-b + sqrt(Delta))/(2*a); x2:= (-b - sqrt(Delta))/(2*a); writeln(‘Nghiem x1= ’, x1:4:2); writeln(‘Nghiem x2= ’, x2:4:2); end;
Ví dụ:
(12)4 Một số ví dụ: 4 Một số ví dụ:
Ví dụ 1: Hồn thiện chương trình giải phương trình bậc (a0) theo dàn ý sau:
Program GPTB2; Uses crt;
Var ; Begin
In dòng chữ nhập vào hệ số a, b, c …… Nhập vào hệ số a, b, c……… Tính Delta := .;
Nếu Delta<0 Writeln(‘PTVN’) ngược lại Tính in nghiệm;
(13)Những nội dung cần đạt được 1 Cấu trúc mô tả mệnh đề:
“Nếu … thì…”
“Nếu … … ngược lại … ”
gọi cấu trúc rẽ nhánh
2 Câu lệnh If-then:
a Dạng thiếu:
If <Điều kiện> Then <Câu lệnh>;
b Dạng đủ:
If <Điều kiện> Then <Câu lệnh 1> Else <Câu lệnh 2>;
3 Câu lệnh ghép:
Begin
<Các câu lệnh>;
end;
(14)Củng cố
Câu 1: Trong ngôn ngữ lập trình Pascal, phát biểu sau với câu lệnh rẽ nhánh If - then?
A Nếu sau Then muốn thực nhiều câu lệnh lệnh phải đặt hai dấu ngoặc đơn;
B Nếu sau Then muốn thực nhiều câu lệnh lệnh phải đặt Begin End;
C Nếu sau Then muốn thực nhiều câu lệnh lệnh phải đặt Begin End ;
(15)Củng cố
Câu 2: Hãy đánh dấu vào đáp số đúng, cho đoạn chương trình sau:
Begin
x:=a;
if a<b then x:=b;
writeln(‘Ket qua x la’, x) End
a Cho a=20; b=15 Kết x bao nhiêu?
b Cho a=5; b=10 Kết x bao nhiêu?
10 15 20 25
5 10 15 20