Tr ng THPT Huỳnh Thúc Khán Mét sè bµi tËp vÒ lÖnh rÏ nh¸nh.. 1.1[r]
(1)Tr ng THPT Huỳnh Thúc Khán
Ngày soạn:
Tiết: 14
(2)Bài tập câu lệnh rẽ nhánh
IF <Điều kiện> THEN <Câu lệnh>;
a Dạng thiếu:
b Dạng đủ: IF <Điều kiện> THEN <Câu lệnh1> ELSE <Câu lệnh2>;
Trong TP cho phÐp gép nhiÒu câu lệnh thành một câu lệnh gọi câu lệnh ghép, có dạng:
BEGIN
< Các câu lệnh>; END;
BEGIN
< Các câu lệnh>;
(3)Tr ng THPT Huỳnh Thúc Khán
Bµi <tr.51>: TÝnh
NÕu x2 + y2 ≤
Th× z = x2 + y2
;
;
. .
2 2 2 2
2 2
2 2
nÕu 1
nÕu 1 vµ
0 nÕu 1 vµ
x y x y
z x y x y y x
x y y x
Hãy xác định Input và Output của toán!
Input: NhËp x, y tõ bµn phÝm.
Output: Tính z. Xác định
biĨu thøc ®iỊu kiện
bài toán?
Nếu x2 + y2 >
vµ y x≥
Th× z = x + y
NÕu x2 + y2 >
vµ y < x
(4)Program vd1; Uses crt;
Var
z,x,y: Real; BEGIN
Clrscr;
write(‘ Nhap vao x vµ y : ’); readln(x,y);
if (sqr(x)+sqr(y)<=1) then z := sqr(x)+sqr(y); if (sqr(x)+sqr(y)>1) and (y>=x) then z := x+y;
if (sqr(x)+sqr(y)>1) and (y<x) then z := 0.5; Writeln(‘ Z = ‘, z:5:1);
Readln; END.
Em hÃy khai báo biến to¸n?
NÕu x2 + y2 ≤
Thì Z = x2 + y2
Viết câu lệnh nhËp vµo x, y? NÕu x2 + y2 >
y x
Thì Z = x + y
NÕu x2 + y2 >
vµ y < x
Th× Z = 0.5
(5)Tr ng THPT Huỳnh Thúc Khán Mét sè bµi tËp vỊ lƯnh rẽ nhánh
1 Giải bất ph ơng trình bậc nhÊt ax + b>0.
2 Đọc từ bàn phím số nguyên n (1 n ≤ ≤ 5) Chỉ cách viết tiếng Anh số (Chẳng hạn, gõ n=2 thì đ a = two).
3 Đọc vào hệ số a, b, c, d, e, f vµo tõ bµn phÝm, giải biện luận hệ ph ơng trình sau:
;
ax by c dx ey f
4 Đọc vào toạ độ ba điểm A(x1,y1), B(x2,y2), C(x3,y3) Viết ch ơng trình kiểm tra xem ba điểm có tạo thành ba đỉnh tam giác khơng? Nếu tam giác gì? Diện tích bao nhiêu?
(6)Bài tập câu lệnh lặp
FOR <bin m> := <giá trị đầu> TO <giá trị cuối> DO < cõu lnh>;
b Lặp với số lần lặp không biÕt tr íc
FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh >;
a Lặp với số lần lặp biết tr ớc
(7)Tr ng THPT Huỳnh Thúc Khán
Bµi 1:
1
4 3 3
2 2
1
n n S
D÷ liƯu (Output) : Tỉng S
D÷ liƯu vµo (Input) : NhËp N
(8)Các b ớc viết ch ơng trình:
B1: Nhập n;
B2: S:=0; i:=1;
B3: NÕu i>N th× đ a giá trị S
=> KÕt thóc B4: S:= S +i/(i+1);
Program Bai1;
Uses crt;
Var i,n:integer; S:real;
Begin
Write(‘Nhap n:’); Readln(n);
S:=0;
For i:=1 to n do S:=S+i/(i+1);
Writeln(‘Tong S :’,S:7:2); Readln;
END.
B5: i:=i+1
(9)Tr ng THPT Huỳnh Thúc Khán
Program …; Var …
Begin
Nhap n; S:=?;
FOR …… TO … DO S:=S + …;
In S Readln; End
3 1
27 1 8
1 1
n
S
Bµi 2:
Em hồn thiện ch ơng trình sau để
(10)Bài 3: Lập ch ơng trình tính tæng S.
2
n
25 16
9 4
1
S
cho đến S>=300, cho biết lúc n = ?
B1: G¸n S:=0; N:=0
B2: Chừng S<300 thực hiÖn:
N:=N+1;
S:= S+ N*N; B3: In kÕt qu¶ N
S:=0; N:= 0;
WHILE S<300 DO
Begin
N:=N+1;
S:=S + N*N; End;
Writeln(‘ N = ’,N);
(11)Tr ng THPT Huỳnh Thúc Khán
1. §äc tõ bàn phím số tự nhiên N Xếp dấu * thành tam giác cân N dòng.
2. Nhp vo dãy số nguyên vào từ bàn phím gặp số tính tổng số d ơng trung bình cộng số âm. 3. Tìm số nguyên lớn thoả mãn điều kiện:
5
3
) 3 317 5;
) 4 151 3 0;
) 7 31 10 0.
a n n b n n c n n
(12)4. Liệt kê đếm số nguyên tố từ n N.
5. Ng ời ta thả bi lăn mặt phẳng nghiêng (không có vận tốc ban đầu) Sau T giây ng ời ta đo đ ợc quÃng đ ờng mà bi lăn đ ợc lµ cm.
Nhập T S từ bàn phím, sau đ a hình bảng giá trị quãng đ ờng mà bi lăn đ ợc sau giây, 10 giây ,… phút Chạy thử với T=4 S=80 6. Giải toán cổ: Trăm trâu, trăm cỏ“ …”
Tìm số trâu đứng, trâu nằm, trâu già?