TRÆÅÌNG THPT ÂÄNG HAÌ Chaìo mæìng ngaìy nhaì giaïo Viãût Nam 20-11. d.[r]
(1)TỔ CHỨC RẼ NHÁNHTỔ CHỨC RẼ NHÁNH
BAÌI TẬP
BAÌI TẬP
•Câu lệnh IF Câu lệnh IF THEN ELSE
THEN ELSE
(2)LÝ THUYẾT
LÝ THUYẾT Cú pháp dạng lệnh IF
Dảng â:
Dảng â: IF <ÂK> THEN <CL1> ELSE
<CL2>
Dạng khuyết:
Dạng khuyết: IF <ĐK> THEN <CL>
TỔ TIN HỌC
TỔ TIN HỌC Ciáo viên thực hiện: CÁP XUÂN TÚ
TRƯỜNG THPT ĐƠNG H
(3)II BI TẬP
II BI TẬP
1 Bi toạn:
Tìm nghiệm thực phương trình bậc 2:
Ax2 + Bx + C = 0, với A khác
0. a Xác định toán:Các hệ số
A,B,C
Nghiệm số X
Input: Output :
b Tổ chức liệu: Biến:
Biến: A,B,C, delta, X1,X2: A,B,C, delta, X1,X2: Số thực
(4)c Giải thuật
Bắt đầu Bắt đầu Nhập A,B,C Nhập A,B,C D:= B*B-4*A*C D:= B*B-4*A*C
Thông báo: Vơ nghiệm Thơng báo:
Vơ nghiệm Tính X1,X2
Tênh X1,X2
Delta>=0 Delta>=0
Kết thúc Kết thúc Thơng báo:
X1,X2
Thäng bạo: X1,X2
(5)Thông báo: Vô nghiệm Thơng báo:
Vơ nghiệm Tính X1,X2
Tênh X1,X2
Delta>=0 Delta>=0
Thäng baïo: X1,X2
Thäng baïo: X1,X2
S Â
Câu lệnh 1
Câu lệnh 1 Câu lệnh 2Câu lệnh 2
Điều kiện
(6)3 Chæång trỗnh baỡi
3 Chổồng trỗnh baỡi
toạn:
toạn:
PROGRAM GIAI_PTB2;
VAR A,B,C,DELTA, X1,X2: REAL;
BEGIN
WRITE(‘Nhap he so A khac : ’); READLN(A);
WRITE(‘Nhap B : ’); READLN(B); WRITE(‘Nhap C: ’); READLN(C); Delta := B*B - 4*A*C;
IF Delta >= THEN Begin
X1: = (-b + SQRT(Delta))/(2*a); X2: = (-b - SQRT(Delta))/(2*a);
WRITELN(‘Nghiem X1=‘ , X1:12:2); WRITELN(‘Nghiem X2=‘ , X2:12:2);
End ELSE
WRITELN(‘Phuong trinh vo nghiem ‘); READLN
(7)a Xạc âënh baìi toạn:
Các số X,Y Z
Input: Output :
b Tổ chức liệu: Biến:
(8)c Giải thuật Bắt đầu Bắt đầu Nhập X,Y Nhập X,Y
Z := X+Y
Z := X+Y
Z := X*X + Y*Y
Z := X*X + Y*Y X*X+Y*Y<=1 X*X+Y*Y<=1 Kết thúc Kết thúc Đ S Z:=0.5 Z:=0.5
Y >= X Y >= X
 S
Xuat: Z
(9)IF X*X + Y*Y <=1 THEN
Z: = X*X + Y*Y
ELSE
IF Y >=X THEN
Z := X+Y
ELSE
(10)TỔ TIN HỌC
TỔ TIN HỌC Ciáo viên thực hiện: CÁP XN TÚ
TRƯỜNG THPT ĐƠNG H
TRƯỜNG THPT ĐƠNG H Chào mừng ngày nhà giáo Việt Nam 20-11
d Chổồng trỗnh:
PROGRAM BAI4;
VAR Y, X,Z : REAL;
BEGIN
WRITE(‘Nhap X : ’); READLN(X);
WRITE(‘Nhap Y : ’); READLN(Y);
IF X*X + Y*Y <=1 THEN
Z: = X*X + Y*Y
ELSE
IF Y >=X THEN
Z := X+Y
ELSE
Z := 0.5;
WRITELN(‘gia tri Z= ‘ , Z: 5:2);
READLN;
(11)3 Bài 4b – trang 51- SGK: 3 Bài 4b – trang 51- SGK: a Xác định đại lượng
vào/ra: Các số X,Y,A,B,R
Z
Input: Output :
b Tổ chức liệu: Biến:
Biến: X, Y, A,B,Z: Số X, Y, A,B,Z: Số thực
thæûc
R
R
0
0
M(x,y)
(12)c Giải thuật
Bắt đầu Bắt đầu Nhập X,Y, A,
B, R
Nhập X,Y, A, B, R
Z := ABS(x) + ABS(Y)
Z := ABS(x) +
ABS(Y)
SQR(X-A)+SQR(Y-B) <=R*R
SQR(X-A)+SQR(Y-B) <=R*R
Kết thúc Kết thúc
 S
Z:= X + Y
Z:= X + Y
Xuat: Z
(13)IF SQR(X-a) + SQR(Y-b) <= R*R THEN
Z: = ABS(X) + ABS(Y)
ELSE
(14)TỔ TIN HỌC
TỔ TIN HỌC Ciáo viên thực hiện: CÁP XN TÚ
TRƯỜNG THPT ĐƠNG H
TRƯỜNG THPT ĐƠNG H Chào mừng ngày nhà giáo Việt Nam 20-11
PROGRAM BAI4;
VAR Y, X,Z : REAL;
BEGIN
WRITE(‘Nhap so X,Y : ’);
READLN(X,Y);
WRITE(‘Nhap toa tam : ’);
READLN(A,B);
WRITE(‘Nhap ban kinh : ’);
READLN(R);
IF SQR(X-a) + SQR(Y-b) <= R*R THEN
Z: = ABS(X) + ABS(Y)
ELSE
Z := X+Y;
WRITELN(‘gia tri Z= ‘ , Z: 5:2);
READLN;
(15)4 Baìi toạn:
4 Baìi toạn:
a Xác định đại lượng vào/ra: Các số A,B
A,B
Input: Output :
b Tổ chức liệu: Biến:
Biến: A,B, Z: Số thực A,B, Z: Số thực
Nhập vào số A,B Nếu chúng khác tráo đổi giá trị
(16)c Giải thuật
Bắt đầu Bắt đầu Nhập A, B Nhập A, B
Z := A; A:= B;
B:=Z; Z := A;
A:= B; B:=Z;
A <> B
A <> B
Kết thúc Kết thúc
Â
S
Xuat: A,B
(17)IF A<> B THEN BEGIN
Z := A;
A := B; B := Z;
(18)TỔ TIN HỌC
TỔ TIN HỌC Ciáo viên thực hiện: CÁP XUÂN TÚ
TRƯỜNG THPT ĐƠNG H
TRƯỜNG THPT ĐƠNG H Chào mừng ngày nhà giáo Việt Nam 20-11
PROGRAM BAI4;
VAR A,B,Z : REAL;
BEGIN
WRITE(‘Nhap so A,B : ’);
READLN(A,B);
IF A<> B THEN
BEGIN
Z := A;
A := B; B := Z;
END;
WRITELN(‘Gia tri A= ‘ , A : : 2);
WRITELN(‘Gia tri B= ‘ , B : : 2);
READLN;