Giải bài tập Tin học 11: Bài tập và thực hành 2

Thứ sáu - 28/09/2018 04:45
Giải bài tập Tin học 11: Bài tập và thực hành 2
- Xây dựng chương trình có sử dụng cấu trúc rẽ nhánh.
- Làm quen với việc hiệu chỉnh chương trình.
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.
Trả lời:
1. 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 như sau:
a) Dạng thiếu
If<điều kiện> then <câu lệnh>;
if <điều kiện> then <câu lệnh 1 >else <câu lệnh 2 > ;

trong đó:
Điều kiện biểu thức quan hệ hoặc lôgic.
Câu lệnh, câu lệnh 1, câu lệnh 2 là một câu lệnh của Pascal.
Giống nhau: đều cùng là câu lệnh rẽ nhánh và khi gặp một điều kiện nào đó thì chọn lựa 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 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.

Câu 2: Câu lệnh ghép là gì? Tại sao phải có câu lệnh ghép?
Trả lời
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 (đơn hoặc kép). 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 câu lệnh ghép khác. Về mặt ngôn ngữ lập trình, câu lệnh ghép là một trong các yếu tố để tạo khả năng chương trình có cấu trúc.
Câu lệnh ghép trong Pascal.
Begin
<các câu lệnh>
End;


Câu 3: Có thể dùng câu lệnh while-đo để 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.
Trả lời
Có thể thay thế đoạn chương trình chứa câu lệnh for-đo (dạng lặp tiến) for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
bằng đoạn chương trình chứa câu lệnh while-do như sau:
i:= <giá trị đầu>;
while <i< = <giá trị cuối> do
begin
<câu lệnh>;
<tăng i một đơn vị>,
end;


Như vậy, chương trình tính Tong_la viết bằng lệnh for-do
program Tong__la;
uses crt;
var S:real,
a, N: integer;
begin
clrscr;
write('Hay nhap gia tri a vao!'); readln(a);
S:= 1.0/a;
for N:=1 to 100 do S: = S+1.0/ (a+N);
 writeln('Tong S la:', S:8:4); readln;
End.


được viết lại bằng lệnh while-do như sau:
Program Tong_la;
uses crt;
var S:real;
a, N: integer;
Begin
clrscr;
write('Hay nhap gia tri a vao!'); 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.


Câu 4: Viết câu lệnh if tính:


Trả lời

if sqr(x) + sqr(y)<= 1 then z:= sqr(x) + sqr (v)
else
if y >= X then z:= X + y else z:= 0.5;


b)
if sqr (x-a)+sqr (y-b) <= sqr(r)then z:= abs (x)ì+afc)S(y/) else z:= X + y; 

Câu 5: Lập trình tính:
Trả lời:
a) program Tong_5a,
uses crt,
var y: real;
n: byte;
Begin
clrscr
y : 0;
for n :=1 to 50 do
y : = y + n / ( n +1 ) ;
writeln('Tong y la: y:0:18);
readln ;
End.


Nếu biến y khai báo theo kiểu extended thì chương trình tính tổng y sẽ là như sau:
($e+, N+}
program Tong_5a;
uses crt;
var y: real;
n :byte;
Begin clrscr;
y : = 0 ;
for n:= 1 to 50 do
y:= y + n/(n+1);
writeln('Tong y la: y:0:18);
readln
End.


b) 
program Tong_5b;
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
inc (n) ,
sh: = sh*(1/n) ,
e:= e + sh;
end;
writeln('Gia tri e(n)la: ',e:10:6);
readln
End.


Câu 6: Lập trình để giải bài toán cổ sau:
Vừa gà vừa chó.
Bó lại cho tròn.
Ba mươi sáu con,
Một trăm chân chằn.
Hỏi bao nhiêu con mỗi loại?

Trả lời
program Tim_ga_cho;
uses crt;
var ga, cho: integer;
Begin
clrscr;
for cho:= 1 to 24 do
begin
ga:= 3 6 - cho,
if ga + 2*cho = 50 then writeln('Ga:',ga,' Cho:',cho); end;
readln
End.


Câu 7: Nhập từ bàn phím tuổi của cha và con (tuổi của cha hơn tuổi con ít nhất là 25). Đưa ra màn hình bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con.
Trả lời
Chương trình về tuổi cha và tuổi con:
program tuoi_cha_con;
uses crt;
var tuoicha, tuoicon, nam: longint;
begin
clrscr;
write('Nhap tuoi cha va con(tuoicha-tuoicon>=25) ;
readln(tuoicha,tuoicon); nam:= 0;
while tuoicha<>2*tuoicon do begin
tuoicha:= tuoicha + tuoicon := tuoicon + 1; nam:= nam +1;
end;
writeln ( ' Sau ' , nam, ' nam, tuoi cha gap doi tuoi con' );
readln
End.


Câu 8: Một người gửi tiết kiệm không kì hạn với số tiền A đồng với lãi suất 0,2% mỗi tháng. Hỏi sau bao nhiêu tháng, người đó rút tiền thì sẽ nhận được số tiền là bao nhiêu. Biết rằng tiền gửi tiết kiệm không ki hạn không được tính cộng vào vốn.
Trả lời
Chương trình gửi tiền tiết kiệm
program Gui_tiet_kiem;
uses crt;
const laisuat = 0.002;
var tiengui, tienrutve, luu: real;
thang : integer;
Begin
clrscr;
write ('Nhap vao so tien gui:'),
readln(tiengui);
luu:= tiengui;
write('So tien co khi rut ve: ’);
readln(tienrutve);
thang : = 0 ;
while Tiengui < tienrutve> do begin
tiengui:= tiengui + tiengui* laisuat ; thang:= thang + 1 ;
end;
write('Gui',luu: 0 : 0, ' dong, sau thang, thang');
writeln('se nhan duoc so tien',tienrutve:0 : 0,' dong');
readln
End .

Khi chạy chương trình, với số tiền gửi ban đầu là 20000000 đồng. Muốn có được số tiền sau khi rút về là 25000000 đồng thì phải mất 112 tháng.

Kết quả chương trình cho như hình 25 dưới đây:

  Ý kiến bạn đọc

THÀNH VIÊN

Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site
Kênh Bóng đá trực tiếp hôm nay miễn phí
Kênh
90Phut TV full HD ⇔ 888new
69VN ⇔  ⇔ F168 ⇔ 123b ⇔ 566

Vmax ⇔ 78Win ⇔ https://xn88.bio/
GK88 ⇔ SHBET ⇔  ⇔ u888 ⇔ 789f
fo88vic88 ⇔ u888 ⇔ 888p ⇔ 69vn
BL555 ⇔ 99OK ⇔ KJC ⇔ Link MB66
mv66af88 ⇔ 8x bet ⇔ 88AA
789BET ⇔ LC88 ⇔ BL555 ⇔ 789f
OKFUN ⇔ 789F ⇔ MB66 ⇔ 8xbet
https://789betcom0.com/ ⇔ https://hi88.baby/
UU88 ⇔ au88 ⇔ win678 ⇔ https://xx88.ink/
zo88 ⇔ ev99 ⇔ 888b ⇔ go88 ⇔ kèo nhà cái
cm88 ⇔ 88aa ⇔ Kkwin ⇔ tv88 ⇔ 
mb66.racing ⇔ u888 ⇔ FO88 ⇔ 88xx
188v ⇔ f168 ⇔ QQ88 ⇔ bk8 ⇔ bk8
 ⇔ iwinclub ⇔  ⇔ 
m88 ⇔  ⇔ P3 ⇔ 8s
vn23 ⇔ SHBET ⇔ kubet ⇔ 888new
NOHU ⇔ hi88 ⇔ https://fun88.social/
thabet ⇔ SV88 ⇔ https://vnalo789c.com/
https://qq88.fun/ ⇔ f168 ⇔ 888New ⇔ QQ88
daga ⇔ SHBET ⇔ keo nha cai ⇔ bl-555.site
https://bshbet.com/ ⇔ https://uk88.rocks
kkwin ⇔ KUWIN ⇔ 8xbet ⇔ RR88 ⇔ 188v
mb6678win ⇔ https://hello8880.net/
tv88UU88 ⇔ HM88 ⇔ MB66 ⇔ TV88
NOHU ⇔ 77ball ⇔ 32win ⇔ Kuwin
ek333 ⇔ xoso66 ⇔ nổ hũ ⇔ SUN WIN
X88 ⇔ 78win ⇔ Jun88 ⇔ uu88
NOHU ⇔  KINGFUN ⇔ https://789club24.com/
https://98winlive.com/ ⇔ https://789win.voyage/
https://bet88yk.com/ ⇔ https://alo789apk.app/
https://33win100.com/ ⇔ https://u888ny.com/
alo789 link ⇔ OK8386 ⇔ x88 ⇔ SHBET
https://hi88.voyage/ ⇔ https://79kings.blue/
https://dom88.jp.net/ ⇔ https://hello880.net/
https://789club60.com/ ⇔ https://blc88.net/
23win ⇔ 6ff ⇔ f168 ⇔ xoso66 ⇔ bomwin
nhatvip ⇔ https://789club24.com/ ⇔ 789 bet
đá gà dola789 ⇔ 8xbet ⇔ 78win ⇔ QQ88
XX88 ⇔ ev99 ⇔ 69vn ⇔ rr88 ⇔ rr88
Uu88 ⇔ win456 ⇔ Tài xỉu online ⇔ XN88
https://33win101.com/ ⇔ oxbet ⇔ Slot365
78wind.com ⇔ https://shbet.gg/ ⇔ XX88
 ⇔  ⇔ OKFUN ⇔ ee88 ⇔ 12bet
hitclub ⇔ Kkwin ⇔ VankhanhTV ⇔ Hay 88
3WIN ⇔ WIN678 ⇔ 
68 game bàiEE88 ⇔ 77BET ⇔ 12BET
vmaxVMAX ⇔ ok9 football ⇔ K8CC
https://hi88o.com/ ⇔ https://hi88.gives/
https://qq88.co.com/ ⇔ https://f168.law/
8xbet ⇔ https://shbetk.net/ ⇔ RIKVIP ⇔ rikvip
https://mm88.us.com/ ⇔ 79king
ww88 ⇔ https://78win.bot/ ⇔ https://13win.vegas/
https://lc88o.com/ ⇔ https://hi88.uno/
https://58win1.info/ ⇔ j88 ⇔ j88 ⇔ 69vn
Slot365 ⇔ alo88 ⇔ UU88 ⇔ 32 win
888TO ⇔ wstar77 ⇔ 73bet ⇔ 888b
11uu ⇔ 123B ⇔ 78win ⇔ Slot365
789f ⇔ mv88 ⇔ 789f ⇔ Bsport
888New ⇔ EV99 ⇔ 89bet ⇔ sunwin
tỷ lệ kèo nhà cái hôm nay ⇔ BIN88
https://f8bet0.world ⇔ https://qq88.studio/
https://nh8811.com/ ⇔ Leo88 ⇔ 78win
88CLB ⇔ SV388 ⇔ https://cakhiatv88.net/
7m ⇔ i9 Bet ⇔ Tv88 ⇔ hi88 ⇔ 888To
socolive trực tiếp74bet ⇔ VN168
Bong88 ⇔ socolive ⇔ bet88 ⇔ 555WIN
https://au88.black/ ⇔ trực tiếp bóng đá
https://king88clb.com/ ⇔ https://f168hi.com/
sv66ax88 ⇔ 88clb ⇔ Nn88
https://32win.vc/ ⇔ 888new ⇔ PG88 ⇔ PG88
EE88 ⇔ SanClub ⇔ F168 ⇔ QQ88
hb88 ⇔ Vin777 ⇔ SV388 ⇔ MV66 ⇔ 23WIN
https://vankhanhtvv.com/ ⇔ Nhà Cái LC88
https://789fnew.com/ ⇔ https://u888lm.com/
https://sv66.coupons/ ⇔ https://f168.tech/
https://8kbetbh.com/ ⇔ https://ta88club.kim/
socolivemv88 ⇔ https://rr88.com.se/
https://bet168.com.co/ ⇔ https://8kbet.co/
https://888b-link.cc/ ⇔ https://sunwinn.deal/
88gokingfun ⇔ https://bong88vn.wiki/
SHBET ⇔ https://shbet.racing/
RR99 ⇔ U888 ⇔ OK8386 ⇔ Mv88
MM88 ⇔ 33win ⇔ BL555 ⇔ 69vn
hi88com ⇔ https://w88link1.com/
xocdia88 ⇔ 77ball ⇔ vuabet88 ⇔ betvisa
https://fun88link0.com/ ⇔ https://fun88link1.com/
https://188betlink0.com/ ⇔ https://188betlink1.com/
https://188betlink2.com/ ⇔ https://w88link0.com/
thabet ⇔ 888P ⇔ 11UU ⇔ EV88 ⇔ 789F
77win ⇔ xx88 ⇔ 78win
https://okfun.bz/ ⇔ https://xo88.group/
https://86bet.tech/ ⇔ https://nohu90.consulting/
789BET ⇔ https://i9betz4.com/ ⇔ đá gà 88
w88link2.com ⇔ w88link3.com ⇔ luck8
https://8dayvip.mobi/ ⇔ https://8dayvip.com/
QQ88 Com ⇔ af88 ⇔ https://79kingsr.com/
https://pg99yk.com/ ⇔  hm88.com ⇔ J88
https://luongson161.tv/ ⇔ 78WIN ⇔ MB66
78win ⇔ U888 ⇔ nn88 ⇔ 99win ⇔ hi88
https://8kbettt.com/ ⇔ https://hi88.biz/
https://thabetcasino.us.com/ ⇔ 789Win ⇔ vn88
https://hello88net.com/ ⇔ https://pg88.jpn.com/
https://az8888.org/ ⇔ https://fly88.gifts/
lc88 ⇔ VN88 ⇔ 69vn ⇔ nh88 ⇔ vn88
GO8 ⇔ 28BET ⇔ sv388 ⇔ KWIN
tỷ lệ kèo nhà cái 88 ⇔ PG66 ⇔ 68win
BL555 ⇔ 23win ⇔ SV388 ⇔ SHBET ⇔ hitclub
Game bài đổi thưởng ⇔ https://saobet.shop/
https://99ok99ok.com/ ⇔ UU88 ⇔ HM88
https://bet88.ventures/ ⇔ bongdalu22.com
zx88 ⇔ ev99 ⇔ 8s ⇔ bet8s ⇔ QQ88
https://f168.name/ ⇔ https://13wincom.io/
Nhà cái vn88 ⇔ Nhà Cái QQ88
https://fb888.in.net/ ⇔ https://kjc.ac/
https://onbet.in.net/ ⇔ link vn88 ⇔ HZ88
http://58win.trading/ ⇔ https://qq88.gives/
bong88 ⇔ sky88 ⇔ Cổng game rikvip ⇔ ev99
79KING ⇔ Bet88 ⇔ XN88 ⇔ i9bet ⇔ VN23
https://kkwin.fan/ ⇔ https://555win.bike/
https://f8bet.courses/ ⇔ https://go8play.com/
https://lc88.bar/ ⇔ 789f ⇔ abc8 ⇔ good88
789win ⇔ Hitclub ⇔ https://f8bet80.one/
lương sơn tv ⇔ vwin ⇔ sut88 ⇔ vua88
hb88 ⇔ https://okfun.center/ ⇔ 68win
LC88 ⇔ 79king ⇔ https://hi88.tours/
https://ok9.charity/ ⇔ https://kkwin68.info/
https://ee88com.me/ ⇔ https://new88blog.org
nổ hũ ⇔ https://uu88vn.com ⇔ LC88
nohu ⇔ lc88 com ⇔ 69VN ⇔ Ok365 ⇔ 6FF
Nohu90 ⇔ go8 ⇔ 22vip ⇔ af88 ⇔ YO88
five88 ⇔ 68win ⇔ 11uu ⇔ https://go8.beer/
đánh bài tiến lên ⇔ sin88 ⇔ 9win ⇔ 88i
https://u888.ac/ ⇔ https://king88com.uk.net/
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây