Tin hoc 11 theo chuyen de moi

Hoa Oai Huong
Ca Mau


Câu 1: Câu lệnh nào sau đây dùng để nhập dữ liệu cho biến x?
A. Realdn(x);
B. Write(`Nhap du lieu cho bien x:`);



KIỂM TRA BÀI CŨ
C. Writeln(`nhap du lieu cho bien x:`);
D. Readln(x);


Câu 2: Trường hợp nào dưới đây không phải là tên biến trong Pascal ?
A. Giai_Ptrinh_Bac_2;
B. Ngaysinh;
C. _Noisinh;
D. 2x;
KIỂM TRA BÀI CŨ


Câu 3: Câu lệnh nào sau đây dùng để hiển thị giá trị của x lên màn hình?
Readln(x);
B. Read(x);
C. Writeln(`x`);
D. Writeln(x);
KIỂM TRA BÀI CŨ


Câu 4: Cú pháp để khai báo tên một chương trình Pascal là:
Program;
B. ;
C. Program ;
D. Không có đáp án nào đúng;
KIỂM TRA BÀI CŨ
CHUYÊN ĐỀ 3: CẤU TRÚC RẼ NHÁNH VÀ LẶP
§9. CẤU TRÚC RẼ NHÁNH
Đặt vấn đề: Một cửa 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
TH1: Nếu X <= 200 thì số tiền phải trả là X*300;

TH2: 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 (đồng);

Nếu X > 200 thì số tiền phải trả là X*280;
Bước 1:
Nhập vào X;
Bước 2 :
Bước 3:
Bước 4:
Kết thúc;
Xây dựng thuật toán tính tiền cho khách hàng trong
trường hợp trên:
Thuật toán
CHUYÊN
ĐỀ
3
?
?
Thuật toá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àm
Việc làm
CHUYÊN
ĐỀ
3
?
?
a. Dạng thiếu
- Cú pháp:
If
<Điều kiện>
Then

;
Trong đó:
If
Then
,
: Từ khóa
<Điều kiện>
: Biểu thức quan hệ hoặc lôgic


: 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, ngược lại câu lệnh sẽ được bỏ qua.
- Sơ đồ khối:
Điều kiện
Đúng

Câu lệnh
Sai

Câu lệnh
Đúng

Câu lệnh
Điều kiện
Điều kiện
a. Dạng thiếu: If <điều kiện> Then ;
1. Câu lệnh IF..THEN
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*300 (đồng);

Nếu X > 200 thì số tiền phải trả là X*280;
Ví dụ 1:
a. Dạng thiếu: If <điều kiện> Then ;
1. Câu lệnh IF..THEN
If Then
X <= 200
Writeln (‘So tien phai tra la `, X* 300, `dong ‘);
If Then
X > 200
Writeln (‘So tien phai tra la `, X* 280, `dong‘);
CHUYÊN
ĐỀ
3
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* 300, `dong ‘);
IF X > 200 Then Writeln (‘So tien phai tra la `, X* 280, `dong‘);
Readln;
End.
1. Câu lệnh IF..THEN
CHUYÊN
ĐỀ
3
Phần khai báo
Phần thân
Câu lệnh if…then...
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 then
If then
Ví dụ 2:
CHUYÊN
ĐỀ
3
m mod 2 = 0
<Điều kiện>
Write(m,` la so chan`);
;
m mod 2 <> 0
Write(m,` la so le`);
<Điều kiện>
;
1. Câu lệnh IF..THEN
a. Dạng thiếu: If <điều kiện> Then ;
Viết đoạn chương trình kiểm tra một số nguyên dương m là số chẵn hay số lẽ. In kết quả ra màn hình.
Program chan_le;
Uses Crt;
Var m : word;
Begin
clrscr;
Write(‘nhap m: ’);
Readln(m);
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:
+ Cú pháp câu lệnh if – then và ýÝnghĩa của cấu trúc rẽ nhánh 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
Bài tập:
Viết chương trình kiểm tra và in ra màn hình số lớn nhất trong 2 số nguyên a và b.
CHUYÊN
ĐỀ
3
Program Max2so;
Uses crt;
Var a, b:integer;
Begin
clrscr;
Write(‘nhap gia tri cho a va b:’); readln(a,b);
If a >b then Write(a,‘ la so lon nhat);
If aReadln;
End.
Dạng thiếu: If <điều kiện> Then ;
1. Xem lại nội dung: Cấu trúc rẽ nhánh dạng thiếu.
2. Xem trước nội dung cấu trúc rẽ nhánh dạng đủ và câu lệnh ghép.
DẶN DÒ
CHUYÊN
ĐỀ
3