Giáo án môn Tin học lớp 11, tiết 13: Bài tập

[Văn Học]

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ú​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​
​	​	​	​	​

2. Kiểm tra bài cũ

- 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.

​