Bai 9 Cau truc re nhanh

CỦNG CỐ TIẾT HỌC HS cần nắm vững các nội dung sau đây: + Ý nghĩa của cấu trúc rẽ nhánh: Cú pháp câu lệnh if – then dạng thiếu trong Pascal.. + Viết được chương trình đơn giản trong Pasca[r]

liệu cho biến x?

là tên biến trong Pascal ?

A Giai_Ptrinh_Bac_2;

B Ngaysinh;

C _Noisinh;

D 2x;

giá trị của x lên màn hình?

A Readln(x);

B Read(x);

C Writeln('x');

D Writeln(x);

hàng photocopy tính tiền khách hàng đến photo theo bảng giá như sau?

CHUYÊN

ĐỀ

3

Giả sử hơm nay lớp phải photo bài tập cho các bạn dùng X tờ A4, photo 2 mặt thì cửa hàng cho biết tiền họ phải trả được tính theo qui định tương ứng như trên bảng giá như thế nào?

CHUYÊN

ĐỀ

3

Nếu X <= 200 thì số tiền phải trả là X*300 (đồng); Nếu X > 200 thì số tiền phải trả là X*280;

Cĩ 2 trường hợp tính tiền :

CHUYÊN

ĐỀ

3

Nếu X <= 200 thì số tiền phải trả là X*300

Thuật tốn ở trên viết cho người hiểu tiếng Việt

Bây giờ ta phải viết chương trình cho máy tính thực

hiện tính tiền cho khách hàng thì viết thế nào?

CHUYÊN

ĐỀ

3

Nếu X <= 200 thì số tiền phải trả là X*300.Nếu X > 200 thì số tiền phải trả là X*280.

2 mệnh đề trên cho biết việc làm cụ thể nào? Và điều kiện đó là gì ?

2 mệnh đề trên có đề cập đến việc gì sẽ xảy ra khi điều kiện đó không được thỏa mãn không?

- Dạng thiếu: Nếu … thì …

Nhận xét:

1 Câu lệnh IF THEN

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

Việc làmViệc làm

: Là một câu lệnh của Pascal

1 Câu lệnh IF THEN

CHUYÊN

ĐỀ

3

- Ý nghĩa: Nếu điều kiện nhận giá trị đúng thì

thực hiện câu lệnh

- Sơ đồ khối:

a Dạng thiếu: If <điều kiện> Then <Câu lệnh>;

1 Câu lệnh IF THEN

CHUYÊN

ĐỀ

3

Nếu X <= 200 thì số tiền phải trả là X*300

Program Photocopy; {chuong trinh 1}

Uses Crt;

Var X : longint;

Begin

ClrScr;

Writeln (‘ Nhap so luong to: ‘); Readln(X);

IF X <= 200 Then Writeln (‘So tien phai tra la ', X*

Nếu m chia hết cho 2 thì m là số chẵn

Nếu m khơng chia hết cho 2 thì m là số lẻ

Viết câu lệnh rẽ nhánh dạng thiếu.

If m mod 2 = 0 then Write(m,‘ la so chan’);

If m mod 2 <> 0 then Write(m,‘ la so le’);

CHUYÊN

ĐỀ

3

Viết đoạn chương trình kiểm tra một số nguyên dương

If m mod 2 = 0 then Write(m,‘ la so chan’);

If m mod 2 <> 0 then Write(m,‘ la so le’); Readln;

End.

CHUYÊN

ĐỀ

3

CỦNG CỐ TIẾT HỌC

HS cần nắm vững các nội dung sau đây:

+ Ý nghĩa của cấu trúc rẽ nhánh: Cú pháp câu lệnh if – then dạng thiếu trong Pascal

+ Viết được chương trình đơn giản trong Pascal, trong đĩ

cĩ sử dụng câu lệnh if – then dạng thiếu

CHUYÊN

ĐỀ

3

1 Xem lại nội dung bài cấu trúc rẽ nhánh dạng thiếu.

2 Làm bài tập: Viết chương trình kiểm

Câu Hỏi: Chương trình trên đã dùng 2 lần kiểm tra điều kiện X Chỉ cần một lần kiểm tra điều kiện của

X chúng ta cĩ giải quyết được bài tốn khơng?

CHUYÊN

ĐỀ

3

Nếu điều kiện X <=200 đúng thì điều kiện X > 200 sẽ thế nào?

Nếu X<=200 sai thì X sẽ thế nào so với 200?

Như vậy một số X chỉ có thể thuộc vào một trong 2

khả năng nhỏ hơn hoặc bằng 200 hay là lớn hơn 200

Diễn đạt mệnh đề như sau:

Nếu X <= 200 thì số tiền phải trả là x*300 đồng Nếu không thì số tiền phải trả là x*280 đồng

Nếu … Thì … Nếu không thì …

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

ng ợc lại thì < câu lệnh 2> đ ợc 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

kiểm tra một số nguyên dương m là số chẵn hay số lẽ

If m mod 2 = 0 then Write(m,‘ la so chan’) Else Write(m,‘ la so le’);

Var a, b, c: integer; d, x1, x2: real;

3 Câu lệnh ghép:

- Cú pháp:

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

End;

- Tác dụng:

Gộp nhiều câu lệnh thành một câu lệnh ghép

4 Một số ví dụ

Viết chương trình giải phương trình bậc hai:

) 0 (

Write(‘nhap gia tri cho a va b:’); readln(a,b);

If a <b then Write(a,‘ la so lon nhat);

Else Write(b,‘ la so lon nhat);

Readln;

End.

2 Viết chương trình tính và in ra màn hình Z biết:

y

x Z

2



 y x

nếu

1 2 2



x

nếu(x, y được nhập từ bàn phím)

Hướng dẫn:

màn hình Z=sqrt(x+y), in Z ra

màn hình