Saturday, March 25, 2017
Bài tập thực hành số 2 tin học 11.(Trang 51)
Câu 1: Hãy cho biết sự giống và khác nhau của hai dạng câu lệnh if - then?
- Hai dạng câu lệnh If-then trong Pascal:
- Dạng khuyết: If <điều kiện> Then <câu lệnh>;
- Dạng đủ: If <điều kiện> Then <câu lệnh 1> Else <câu lệnh 2>;
- Sự Giống nhau: Cả hai dạng câu lệnh đều thực hiện việc kiểm tra <điều kiện> trước.
- Sự Khác nhau: Đối với dạng khuyết thiếu nếu <điều kiện sai> thì bỏ qua việc thực hiện câu lệnh sau Then và thực hiện tiếp chương trình; đối với dạng đủ nếu <điều kiện> sai thì thực hiện <câu lệnh 2>;
Câu 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 là một nhóm các câu lệnh được đặt trong cặp từ khóa Begin... End;
- Khi <câu lệnh> gồm nhiều thao tác phức hợp cần thiết phải có nhiều câu lệnh nhỏ để thực hiện thì các câu lệnh con được gộp với nhau trong câu lệnh ghép.
- Khi <câu lệnh> gồm nhiều thao tác phức hợp cần thiết phải có nhiều câu lệnh nhỏ để thực hiện thì các câu lệnh con được gộp với nhau trong câu lệnh ghép.
Câu 3: Có thể dùng cấu truc While-Do thay thế cho cấu trúc For-Do được không, nếu được thì làm câu 1a?
Var S: real;
a,N: integer;
Begin
clrscr;
Write('Nhap a:,') Readln(a);;
S:=1/a;
While N<100 do
begin
S:=S+1/(a+N);
N:=N+1;
End;
Writeln('Tong la: ', S:8:4);
Readln;
End.
a,N: integer;
Begin
clrscr;
Write('Nhap a:,') Readln(a);;
S:=1/a;
While N<100 do
begin
S:=S+1/(a+N);
N:=N+1;
End;
Writeln('Tong la: ', S:8:4);
Readln;
End.
Câu 4: Viết câu lệnh rẽ nhánh tính ?
a) if(sqr(x)+sqr(y)<=1) then z:=sqr(x)+sqr(y)
else if ((sqr(x)+sqr(y)>1) and y>=x) then z:=x+y
else z:=0.5;
else if ((sqr(x)+sqr(y)>1) and y>=x) then z:=x+y
else z:=0.5;
b) if (sqr(x-a)+sqr(x-b))<=R*R then z:=abs(x)+abs(y)
else z:=x+y;
else z:=x+y;
Câu 5: Lập trình tính:
a) For i:=1 to 50 do
Y:=Y+1/(1+i);
b) S:=1; N:=1;
While 1/(S*N) <2.E-6 Do
S:=S+1/(S*N);
Writeln('Tong la: ', S:8:4);
Readln;
End.
Y:=Y+1/(1+i);
b) S:=1; N:=1;
While 1/(S*N) <2.E-6 Do
S:=S+1/(S*N);
Writeln('Tong la: ', S:8:4);
Readln;
End.
Câu 6: Giải bài toán vừa gà vừa chó.
var ga, cho: integer;Begin
clrscr;
for ga:=1 to 36 do
begin
cho:=36-ga;
if (cho*4+ga*2=100) then Write('So ga: ', ga, ' So cho: ', cho);
end;
Readln;
End.
Câu 7: Tính tuổi cha và con?
var
cha, con: integer;
begin
write('Tuoi con: '); readln(con);
write('Tuoi cha: '); readln(cha);
if (con<0) or (con*2>=cha) or (con+25>cha) then
begin
write('Tuoi cha va tuoi con khong dung voi de bai'); readln;
exit;
end;
write('Sau ',cha-con*2,' nam nua thi tuoi cha gap doi tuoi con'); readln;
end.
cha, con: integer;
begin
write('Tuoi con: '); readln(con);
write('Tuoi cha: '); readln(cha);
if (con<0) or (con*2>=cha) or (con+25>cha) then
begin
write('Tuoi cha va tuoi con khong dung voi de bai'); readln;
exit;
end;
write('Sau ',cha-con*2,' nam nua thi tuoi cha gap doi tuoi con'); readln;
end.
Câu 8: Tĩnh lãi xuất?
Var A,B,TL:real;
T:integer;
BEGIN
write('Nhap so tien goi :');readln(A);
write('Nhap so tien can co ');readln(B);
TL:=A*0.3/100;
T:=0;
while A<B do
Begin
A:=A+TL;
T:=T+1;
End;
writeln('So thang can gui la ',T,' thang');
writeln('So tien linh ra sau thoi gian goi la ',A:12:0);
Readln;
END.
T:integer;
BEGIN
write('Nhap so tien goi :');readln(A);
write('Nhap so tien can co ');readln(B);
TL:=A*0.3/100;
T:=0;
while A<B do
Begin
A:=A+TL;
T:=T+1;
End;
writeln('So thang can gui la ',T,' thang');
writeln('So tien linh ra sau thoi gian goi la ',A:12:0);
Readln;
END.
