Giải Bài Tập Tin Học 11 trong SGK Trang 50-51

[KuteoDnCAdmin]

Giải Bài Tập Tin Học 11 trong SGK Trang 50-51

Bài tập bài thực hành 2

1.Hãy cho biết sự giống và khác nhau của hai dạng câu lệnh if-then
-Câu lệnh if-then có 2 dạng: dạng thiếu và dạng đủ. Việc giống và khác nhau giữa 2 dạng này xoay quanh cú pháp và ngữ nghĩa.
-Về cú pháp: 2 dạng này giống nhau là đều có điều kiện (là một biểu thức logic) nằm sau if và một câu lệnh (có thể là câu lệnh ghép) nằm sau then. Khác nhau, chỉ có dạng đủ mới có else và sau else còn có câu lệnh khác (có thể là câu lệnh ghép). Như vậy, dạng thiếu dùng 1 điều kiện, 1 câu lệnh; dạng đủ dùng 1 điều kiện, 2 câu lệnh. Ngoài ra, dấu chấm phẩy “;” kết thúc câu lệnh if-then nằm sau câu lệnh sau else của dạng đủ và nằm sau câu lệnh sau then của dạng thiếu.
-Về ngữ nghĩa: 2 dạng này giống nhau là đều kiểm tra điều kiện và thực hiện câu lệnh sau then nếu điều kiện đúng (true). Khác nhau, ở dạng đủ, nếu điều kiện sai thì thực hiện câu lệnh nằm sau else.

2.Câu lệnh ghép là gì? Tại sao phải có câu lệnh ghép?
-Câu lệnh ghép tập hợp 2 hay nhiều câu lệnh nằm giữa cặp begin … end; câu lệnh ghép hay còn gọi là khối lệnh (block).
-Câu lệnh ghép dùng để gộp các câu lệnh đơn lại nhằm thể hiện nhiều thao tác với nhiều biến, giúp không phải dùng đi dùng lại nhiều lần các câu lệnh rẽ nhánh, lệnh lặp.

3.Có thể dùng câu lệnh while-do để thay cho câu lệnh for-do được không? Nếu được, hãy thực hiện điều đó với chương trình Tong_1a.
-Hoàn toàn có thể dùng câu lệnh while-do để thay thế cho câu lệnh for-do, ví dụ sau đây thể hiện điều đó:

 
program Tong_1a;
uses crt;
var S:real;
a,N:integer;
begin
clrscr;
write('Hay nhap gia tri 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.

4.Viết câu lệnh rẽ nhánh tính:
a,

 
program za;
uses crt;
var x,y,x2,y2,z:real;
begin
clrscr;
write('x,y: ');
readln(x,y);
x2:=x*x;
y2:=y*y;
if(x2+y2<=1)then
z:=x2+y2;
if(x2+y2>1)and(y>=x)then
z:=x+y;
if(x2+y2>1)and(y<x)then
z:=0.5;
write('z = ',z:8:3);
readln
end.

b,Câu này rất đơn giản, bạn chỉ cần dùng công thức tính khoảng cách d từ điểm (x,y) đến tâm (a,b), rồi so sánh d với bán kính r, nếu d=r thì điểm (x,y) thuộc đường tròn tâm (a,b) bán kính r, ngược lại thì không. Xem lại phần 4 bài 6 trang 27 SGK
-Đó là thuật toán, chúng ta lập trình mô tả thuật toán đó như sau:

 
program zb;
uses crt;
var x,y,r,a,b,d,z:real;
begin
clrscr;
write('Nhap diem (x,y): ');
readln(x,y);
write('Nhap tam (a,b): ');
readln(a,b);
write('Nhap ban kinh r (r>0): ');
readln(r);
d:=sqrt(sqr(x-a)+sqr(y-b));
if(d=r)then
z:=abs(x)+abs(y)
else
z:=x+y;
write('z= ',z:8:2);
readln
end.

5.Lập trình tính:
a,

 
program Cau5aTrang51;
uses crt;
var Y:real;
n:integer;
begin
clrscr;
Y:=0;
for n:=1 to 50 do
Y:=Y+(n/(n+1));
write('Y= ',Y:8:2);
readln
end.

b,

 
program Cau5bTrang51;
uses crt;
var e,u:real;
n:integer;
begin
clrscr;
n:=1;
u:=1/n;
e:=1;
while not(u<2.0E-6)do
begin
e:=e+u;
n:=n*(n+1);
u:=1/n;
end;
write('e(n)= ',e:8:2);
readln
end.

6.Lập trình để giải bài toán cổ.
-Nếu giải bài toán này bằng hệ phương trình bậc nhất 2 ẩn số thì không hay bằng cách dùng vòng lặp while . Hiển nhiên căn cứ vào gà có 2 chân, chó có 4 chân, có đến 36 con, phải có 2 loài gộp chung thì mới ra 100 chân, vì vậy ta dùng 2 biến, cho một biến ga tự chạy tăng dần và biến cho = 36 – ga, nếu thỏa điền kiện ga*2+cho*3=100 thì dừng vòng lặp.

 
program GaCho;
uses crt;
var ga,cho:integer;
begin
clrscr;
ga:=1;
cho:=36-ga;
while ga*2+cho*4<>100 do
begin
ga:=ga+1;
cho:=36-ga;
end;
writeln('Ga : ',ga:3);
write('Cho: ',cho:3);
readln
end.

7.Lập trình
-Ta chú ý vào điều kiện Input, dùng vòng lặp while để tìm số năm. Xong

 
program Tuoi;
uses crt;
var tcha,tcon,dem:integer;
begin
clrscr;
while not((tcha>tcon*2)and(tcha-tcon>=25)) do
begin
write('Nhap tuoi cha, tuoi con : ');
readln(tcha,tcon);
end;
dem:=0;
while not(tcha=tcon*2) do
begin
tcha:=tcha+1;
tcon:=tcon+1;
dem:=dem+1;
end;
write('Tuoi cha gap doi tuoi con sau ',dem,' nam');
readln
end.

8.Lập trình
-Câu này quá dễ luôn, chắc chỉ cần viết code là các bạn tự hiểu:

 
program Lai;
uses crt;
var A,B:real;
dem:integer;
begin
clrscr;
write('Nhap so tien A: ');
readln(A);
write('Nhap so tien tong cong B: ');
readln(B);
dem:=0;
while B>A+dem*A*0.003 do
begin
dem:=dem+1;
end;
write('Ban nhan duoc ',B:8:3,' sau ',dem,' thang');
readln
end.

[hai6f2009]

sao b7 mình làm không được?