c¸c thçy c« gi¸o vò dù giêlíp 11a3 ch­¬ng iii các câu lệnh thực hiện rẽ nhánh và lặp của pascal cấu trúc rẽ nhánh và lặp trong lập trình cấu trúc rẽ nhánh và lặp thời gian 1 tiết 1 rï nh¸nh chiều ma

20 10 0
c¸c thçy c« gi¸o vò dù giêlíp 11a3 ch­¬ng iii các câu lệnh thực hiện rẽ nhánh và lặp của pascal cấu trúc rẽ nhánh và lặp trong lập trình cấu trúc rẽ nhánh và lặp thời gian 1 tiết 1 rï nh¸nh chiều ma

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

Các câu lệnh thực hiện rẽ nhánh và lặp của Pascal.. Các câu lệnh thực hiện rẽ nhánh và lặp của Pascal.[r]

(1)(2)

ChươngưIIIư

Các câu lệnh thực rẽ nhánh lặp Pascal

Các câu lệnh thực rẽ nhánh lặp Pascal

Cấu trúc rẽ nhánh lặp lập trình

Cấu trúc rẽ nhánh lặp lập trình

(3)(4)

1 RÏ nh¸nh

ChiềuChiều mai mai nếunếu trời mưatrời mưa thì thì Châu nghỉ nhà Châu nghỉ nhà

ChiềuChiều mai mai nếunếu trời mưatrời mưa thìthì Châu nghỉ nhà Châu nghỉ nhà, , nếu khôngnếu khơng mưa mưa thìthì ChâuChâu sẽ đến nhà Ngọc học nhé.sẽ đến nhà Ngọc học nhé.

Thuộc dạng thiếu

Nếu < điều kiện > < CV>

Nếu< điều kiện> < CV1> khơng thì< CV2>;

(5)

Ví dụ: Giải ph ơng trình bậc hai ax

Ví dụ: Giải ph ơng trình bËc hai ax22+bx+c=0 (a+bx+c=0 (a0) 0)

H·y nªu ý

tng giải ph

ơng trình bËc hai?

D:=b*b-4*a*c

D>=0?

Thông báo VN Kết thúc

Tính đưa nghiệm Kết thúc

Nhập a, b, c

Đ S

D>=0? Sơ đồ

- TÝnh Delta=bTÝnh Delta=b2 - 4ac - 4ac

-NÕu

NÕu Delta >=0 Delta >=0 th×th× tínhtính vvàà đưđưa a nghi m ệ

nghi m ệ của PTca PT, , ng ợc lạing ợc lại thụng bỏo PT thông báo PT

(6)

IF a mod 2= then

Write(‘a la so chan’)

IF a mod 2= then write(‘a la so chan’) Else Write (‘ a la so le’);

a Dạng thiếu b Dạng

- IF, THEN, ELSE từ khoá. - Điều kiện : biểu thức lôgic.

- Câu lệnh, CL1,CL2: lệnh TP.

Trong đó:

Cấu trúc

VD: Nếu a chia hết cho 2

a la số chẵn

VD:Nếu a chia hết cho a số chẵn Ngược lại a số lẻ.

PASCAL PASCAL

Cấu trúc

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

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

else <câu lệnh 2>;

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

2 C©u lƯnh IF - THEN

L u ý:- Sau Then sau else chỉ có c©u lệnh chương trình

(7)

§iỊu kiƯn

§óng

C©u lƯnh

NÕu

Nếu <<điều kiện>điều kiện> thìthì <<câu lệnhcâu lệnh>> đ ợc thực hiện, đ ợc thực hiện,

sai <sai <câu lệnhcâu lệnh>> bị bỏ qua. bị bỏ qua.

Sai

Câu lệnh Đúng

Câu lệnh

Điều kiện Điều kiện

2 Câu lệnh IF THEN (– Dạng thiếu)

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

(8)

§iỊu kiƯn

§óng

C©u lƯnh Sai

C©u lƯnh

NÕu

Nếu <<điều kiện>điều kiện> thìthì <<câu lệnh1>câu lệnh1> đ ợc thực hiện, đ ợc thực hiện,

ng ỵc lại ng ợc lại thìthì <<câu lệnh 2>câu lệnh 2> đ ợc thực hiện. đ ợc thực hiện. Điều kiện

Câu lệnh Câu lệnh

Điều kiện

Câu lệnh

Điều kiện

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

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

(9)

VD2: Kết luận nghiệm PT bậc hai:

IF D<0 THEN writeln(‘phuong trinh vo nghiem’) Else

x1:= (-B + SQRT(Delta))/(2*A); x2:= (-B - SQRT(Delta))/(2*A); Writeln(‘ Nghiem X1= ’, X1:5:1); Writeln(‘ Nghiem X2= ’, X2:5:1 ;

VD1: Tìm số lớn max hai số a b ?

If a>b then max:=a Else max:=b;

Dạng đủ:

If a>b then max:=a;

Dạng thiếu:

(10)

3 C©u lƯnh ghÐp

3 C©u lƯnh ghÐp

BEGIN

BEGIN

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

< Các câu lÖnh>;

END;

END;

BEGIN

BEGIN

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

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

END;

END;

IF Delta<0 THEN Writeln(‘

IF Delta<0 THEN Writeln(Ph ơng trình vô nghiệmPh ơng trình vô nghiÖm’)’)

ELSE ELSE

BEGINBEGIN

X1:= (-B + SQRT(Delta))/(2*A);X1:= (-B + SQRT(Delta))/(2*A);

X2:= (-B - SQRT(Delta))/(2*A);X2:= (-B - SQRT(Delta))/(2*A);

Writeln(‘ Nghiem X1= ’, X1:5:1);Writeln(‘ Nghiem X1= ’, X1:5:1);

Writeln(‘ Nghiem X2= ’, X2:5:1);Writeln(‘ Nghiem X2= ’, X2:5:1); END;

END;

(11)

C ng củ ố

CÊu tróc chung của cấu trúc rÏ nh¸nh.

Cấu trúc chung q trình thực câu

lƯnh rÏ nh¸nh IF – Then (dạng thiếu v )

Câu lệnh ghÐp

BEGIN

(12)

Trắc nghiệm

Trắc nghiệm

Câu 1: Cho biết kết hiển thị lên hình đoạn chương trình sau:

Var a, b,max: word; a:= 100; b:=5;

Max:=a;

If b>a then max:=b;

Write(‘so lon nhat la: ‘, max);

A so lon nhat la: max B 100

(13)

Trắc nghiệm

Trắc nghiệm Câu 2: Đoạn chương trình sau đưa hình kết gì?

Var a,b: integer; A:=5; b:=2;

If a>b then write(a+b) ;

A B a+b

C 5+2 D khơng in

(14)

Trắc nghiệm

Trắc nghiệm Câu 3: Đoạn chương trình sau đưa hình kết gì?

Var a: integer; A:=7;

If a mod 2=0 then write(‘a la so chan’) else write(‘a la so le’); A a la so chan B a la so le

C la so le D báo lỗi ngữ pháp

(15)

Trắc nghiệm

Trắc nghiệm Câu 4: Đoạn chương trình sau đưa hình kết gì?

Var m,n: integer; m:=2; n:=5;

If m<n then write(3<>7) else write(m);

A B

C false D true

(16)

Hãy xác định Input Output

của bài?

Ví dụ 1: Tìm số ngày năm N, biết năm nhuận năm chia hÕt cho 400 hc chia hÕt nh ng kh«ng chia hÕt cho 100.

Input: NhËp N tõ bàn phím

Output: Đ a số ngày năm N hình

Nếu N chia hết cho 400 N chia hết cho nh ng không chia hÕt cho 100

(17)

Em h·y khai báo biến cho toán trên? Viết điều kiện:

NÕu N chia hÕt cho 400 hc chia hÕt cho nh ng kh«ng chia hÕt cho 100

thì nhận số ngày năm nhuận, ng ợc lại

(18)

Bµi tËp v nh à:

Viết câu lệnh rẽ nhánh tính:

(19)

Đáp án:

Bài

If (x+2) > and (x+1) <> then

y:= + sqrt(x+2)/(x+1); Else

Write(‘khong tinh duoc’);

Bài

If (sqr(x)+sqr(y)) <=1 then z:= sqr(x) + sqr(y); Else

if y >= x then z:= x + y Else

(20)

Ngày đăng: 16/04/2021, 00:00

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan