Bài tập chương 3 tin11

CHÀO MỪNG QUÝ THẦY CÔ
Ti?t 22:
BÀI TẬP ÔN TẬP CHƯƠNG III
( Tiết 1 )
1/20/2018
3
Nội dung bài học
KIẾN THỨC CHƯƠNG III
BÀI TẬP
CẤU TRÚC RẼ NHÁNH
CẤU TRÚC LẶP
I. CẤU TRÚC RẼ NHÁNH


IF <Điều kiện> THEN ;
a. Dạng thiếu:
b. Dạng đủ:
IF <Điều kiện> THEN ELSE ;
Trong TP cho phép gộp nhiều câu lệnh thành một câu lệnh gọi là câu lệnh ghép, có dạng:
BEGIN
< Các câu lệnh>;
END;
II. Lặp với số lần biết trước & Câu lệnh FOR - DO
FOR
TO
DO
: =

là biến đơn,thường là kiểu số nguyên
FOR
DOWNTO
DO
: =





Lặp Tiến
Lặp Lùi


≤
≥
là biến đơn,thường là kiểu số nguyên
;
;
6
Cú pháp:

While <điều kiện> do ;

trong đó:
<điều kiện> là biểu thức logic;

là câu lệnh đơn hay câu lệnh ghép.
III. Câu lệnh while – do:
“trong khi” điều kiện còn đúng
hãy thực hiện câu lệnh
Các câu lệnh Pascal sau có hợp lệ không? Vi` sao ?
Lệnh 1:
Lệnh 2:
Lệnh 3:
Lệnh 4:
Kh«ng hîp lÖ, vi` gi¸ trÞ ®Çu lín h¬n gi¸ trÞ cuèi
For i:=100 to 1 do
Write(‘A’);
For i:=1.5 to 10.5 do
Write(‘A’);
Kh«ng hîp lÖ, vi` gi¸ trÞ ®Çu, gi¸ trÞ cuèi lµ dữ liÖu kiÓu sè thùc
For i:=1 to 10 do
Write(‘A’);
Hîp lÖ, AAAAAAAAAA
For i:=10 Downto 1 do
Write(‘A’);
Hợp lệ, AAAAAAAAAA
Bài 1 < 4/ tr.51 >: Tính
Nếu x2 + y2 ? 1
Thì z = x2 + y2
Hãy xác định Input và Output của bài toán!
Input: Nhập x, y từ bàn phím.
Output: Tính z.
Xác định các biểu thức điều kiện của bài toán?
Nếu x2 + y2 > 1
và y ? x
Thì z = x + y
Nếu x2 + y2 > 1
và y < x
Thì z = 0.5
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 Writeln(` Z = `, z:5:1);
Readln;
END.
Em hãy khai báo biến của bài toán?
Nếu x2 + y2 ? 1
Thì Z = x2 + y2
Viết câu lệnh nhập vào x, y?
Nếu x2 + y2 > 1
và y ? x
Thì Z = x + y
Nếu x2 + y2 > 1
và y < x
Thì Z = 0.5
In ra kết quả?
Bài 2:
Dữ liệu ra (Output) : Tổng S
Dữ liệu vào (Input) : Nhập N
Lập chương trình nhập vào số n rồi tính
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
=>quay lại bước 3;
Bài 3: Tớnh S = N! s? d?ng c?u trỳc While - Do
N! = 1.2.3.....N Ho?c N! = N.(N-1).....1
S:=1;
For i:= 1 to N do
S:= S * i;
S:=1; i:= 1;
WHILE i<=N DO
Begin
S:= S * i;
i:= i+1;
End;
FoR - Do
While - do
(*Nhap n;*)
(*Nhap n;*)
(*In ra S;*)
(*In ra S;*)
Bài toán cần khai báo những biến nào? Kiểu dữ liệu của từng biến?
Program .;
Var .
Begin
(*Nhap n;*)
S:=?;
FOR .... TO ... DO
S:=S + .;
(*In ra S*)
Readln;
End.
Bài 2:
Em hãy hoàn thiện chương trình sau để tính tổng S
Bài 4:
Hãy tính giá trị của s trong đoạn lệnh sau:
S:=0;
i:=1;
While (i < 5) do
Begin
S := S + i;
i := i + 1;
End;
14
A. S=9
B. S=10
C. S=11
Bài 5:
Hãy tính giá trị của s trong đoạn lệnh sau:
S:=0;
i:=10;
While not(i<=0) do
Begin
S := S + i;
i := i - 1;
End;
15
A. S=55
B. S=50
C. S=51
1/20/2018
16
Hãy nhớ!
Cấu trúc rẽ nhánh
VỀ NHÀ
Cấu trúc lặp với số lần lặp đã biết
Cấu trúc lặp chưa biết trước số lần lặp
Làm các bài tập:
bài 5b, bài 6, bài 7 (SGK / 51)
1/20/2018
17