TIẾT 13: BÀI TẬP
I. MỤC TIÊU
1. Kiến thức
- Câu lệnh rẽ nhánh
2. Kĩ năng
- Giải quyết các bài tập về câu lệnh rẽ nhánh.
II. ĐỒ DÙNG DẠY HỌC
1. Chuẩn bị của giáo viên
- Giáo án, SGK
2. Chuẩn bị của học sinh
- Sách giáo khoa.
III. HOẠT ĐỘNG DẠY-HỌC
1. Ổn định tổ chức lớp
Lớp | Ngày dạy | Sĩ số | Họ tên học sinh vắng | Ghi chú |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
- Câu hỏi:Không
3. Dạy bài mới
Bài 1. Giống nhau: cùng là câu lệnh cấu trúc rẽ nhánh, khi gặp một điều kiện nào đó thì chọn thực hiện thao tác thích hợp
Khác nhau: trong câu lệnh if-then dạng thiếu, nếu điều kiện không đúng thì thoát khỏi cấu trúc rẽ nhánh, thực hiện câu lệnh tiếp theo của chương trình, còn trong câu lệnh if-then dạng đủ, nếu điều kiện không đúng thì thực hiện công việc 2, sau đó mới thoát khỏi cấu trúc rẽ nhánh, thực hiện câu lệnh tiếp theo của chương trình.
Bài 2. Câu lệnh ghép là một câu lệnh được hợp thành từ nhiều câu lệnh thành phần. Câu lệnh ghép nhằm thực hiện thao tác gồm nhiều thao tác thành phần. Mỗi thao tác thành phần tương ứng với một câu lệnh đơn hoặc một câu lệnh ghép khác. Câu lệnh ghép là một trong các yếu tố cần thiết để xây dựng chương trình có cấu trúc.
Bài 3.
Program tong1a;
Uses crt;
Var S: real;
a, N: integer;
begin
clrscr;
write('Nhap a: ');readln(a);
S:=1.0/a;
N:=1;
While n<=100 do
Begin
S:=S+1.0/(a+N);
N:=N+1;
End;
Writeln('Tong S la: ',S:8:4);
Readln
End.
Bài 4.
a) program bai4a;
uses crt;
var x, y, z:real;
begin
clrscr;
write('nhap hai so x va y: '); readln(x,y);
if x*x+y*y<=1 then
begin
z:=(x*x+y*y);
writeln('tong can tim: ',z:9);
end;
if (x*x+y*y>1) and (y>=x) then
begin
z:=(x+y);
writeln('tong can tim: ',z:9);
end;
if (x*x+y*y>1) and (y<x) then
begin
z:=0.5;
writeln('tong can tim: ',z);
end;
readln
end.
b) program bai4b;
uses crt;
var x,y,z,a,b,r:real;
begin
clrscr;
write('Nhap x: ');readln(x);
write('Nhap y: ');readln;
write('Nhap toa do tam hinh tron: ');
readln(a,b);
write('Nhap ban kinh r: ');readln(r);
if sqrt(sqr(x-a)+sqr(x-b))<r then
begin
z:=abs(x)+abs;
writeln('Z= ',z);
end
else
begin
z:=x+y;
writeln('Z= ',z:1);
end;
readln
end.
Bài 5.
a)Program bai5a;
Uses crt;
Const n=50;
Var i: integer;
Y:real;
Begin
Clrscr;
for i:=1 to n do
Y:=i/(i+1);
Write('Tong Y: ',y:9);
Readln
End.
b)program bai5b;
uses crt;
var n:longint;
e,sh:real;
begin
clrscr;
sh:=1/2; n:=2;
e:=2+sh;
while sh>=2*1e-16 do
begin
n:=n+1;
sh:=sh*(1/n);
e:=e+sh;
end;
writeln('Gia tri e(n) la: ',e:10:4);
readln
end.
Bài 6.
program Bai6;
uses crt;
var x, y:byte;
begin
clrscr;
for x:=1 to 36 do
for y:=0 to 20 do
if (x+y=36) and (2*x+4*y=100) then
begin
writeln('Co ',x,' con Ga');
write('Co ',y,' con Cho');
end;
readln
end.
Bài 7.
program Bai7;
uses crt;
var b, c, n:byte;
bein
clrscr;
repeat
write('Nhap tuoi cha: ');readln(b);
write('Nhap tuoi con: ');readln(c);
if (b-c<25) or (b<2*c) then
writeln('Du lieu khong hop le, nhap lai.');
until (b-c>=25) and (b>=2*c);
if b=2*c then
writeln('Hien nay tuoi cha gap hai lan tuoi con.')
else
if b>2*c then
writeln('Sau ',b-2*c,' nam tuoi cha se gap doi tuoi con');
readln
end.
Bài 8.
program Bai8;
uses crt;
var A, B, St, Luu :real; n:byte;
begin
clrscr;
write('Nhap so tien gui: ');readln(a);
write('Nhap so tien nhan: ');readln(b);
luu:=A; n:=0; st:=a;
while St<=B do
begin
St:=St+luu*0.003;
n:=n+1;
end;
writeln('So thang can la: ',n);
readln
end.
Đính kèm
Sửa lần cuối: