Giải bài tập Tin học 11 trang 50 và trang 51
Bài 5 (trang 51 sgk Tin học lớp 11):
program bai5; uses crt; var n: integer; y: real; begin clrscr; y: =0; for n: =1 to 50 do y: =y+n/ (n+1); writeln ('y=', y: 8: 4); readln; end.
program bai5; uses crt; var n, dem: integer; e: real; gt: longint; begin clrscr; e: =1; gt: =1; dem: =1; while 1.0/gt > 2*0.000001 do begin e: =e+1.0/gt; gt: =gt*dem; dem: =dem+1; end; writeln ('e=', e: 8: 4); readln; end.
program bai6; uses crt; var ga, cho: integer; begin clrscr; for ga: =0 to 36 do if ga*2+ (36-ga)*4=100 then writeln ('so ga la ', ga, ' so cho la ', 36-ga); readln; end.
Bài 7 (trang 51): Nhập từ bàn phím tuổi của cha và con (hiện tại tuổi cha lớn hơn hai lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25). Đưa ra màn hình câu trả lời cho câu hỏi “Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con? ”.
program bai7; uses crt; var tcha, tcon, nam: integer; begin clrscr; writeln ('nhap vao tuoi cha va tuoi con '); readln (tcha, tcon); nam: =0; while (tcha< > tcon*2) do begin tcha: =tcha+1; tcon: =tcon+1; nam: =nam+1; end; writeln ('sau ', nam, ' nam nua thi tuoi cha gap 2 lan tuoi con'); readln; end.
Bài 8 (trang 51): Mỗi người gửi tiết kiệm không kì hạn với số tiền A đồng, lãi suất 0.3% mỗi tháng. Hỏi sau bao nhiêu tháng, người đó rút hết tiền thì sẽ nhận được số tiền ít nhất là B đồng? Biết rằng việc gửi tiết kiệm không kì hạn thì lãi không được cộng vào vốn.
Bài giải:
a)
program bai5; uses crt; var n: integer; y: real; begin clrscr; y: =0; for n: =1 to 50 do y: =y+n/ (n+1); writeln ('y=', y: 8: 4); readln; end.
Kết quả:
b)
program bai5; uses crt; var n, dem: integer; e: real; gt: longint; begin clrscr; e: =1; gt: =1; dem: =1; while 1.0/gt > 2*0.000001 do begin e: =e+1.0/gt; gt: =gt*dem; dem: =dem+1; end; writeln ('e=', e: 8: 4); readln; end.
Kết quả:
Bài 6 (trang 51): 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 mỗi loại có bao nhiêu con?
Bài giải:
Ta có tổng 2 loại là 36 con. Như vậy số con gà sẽ nằm trong khoảng từ 0 đến 36. Số còn lại sẽ là chó.
Theo giả thiết đề bài ta có số gà*2+số chó *4 =100.
Như vậy ta sẽ có code như sau:
program bai6; uses crt; var ga, cho: integer; begin clrscr; for ga: =0 to 36 do if ga*2+ (36-ga)*4=100 then writeln ('so ga la ', ga, ' so cho la ', 36-ga); readln; end.
Kết quả:
Bài giải:
program bai7; uses crt; var tcha, tcon, nam: integer; begin clrscr; writeln ('nhap vao tuoi cha va tuoi con '); readln (tcha, tcon); nam: =0; while (tcha< > tcon*2) do begin tcha: =tcha+1; tcon: =tcon+1; nam: =nam+1; end; writeln ('sau ', nam, ' nam nua thi tuoi cha gap 2 lan tuoi con'); readln; end.
Kết quả:
Bài giải:
uses crt;
var A, B, C: real;
thang: integer;
begin
clrscr;
writeln ('nhap vao so tien A va so tien B');
readln (A, B);
C: =A*0.3/100;
thang: =0;
while (A< B) do
begin
A: =A+C;
thang: =thang+1;
end;
writeln ('co the rut tien sau ', thang, ' thang');
readln;
end.
Bài trước: Bài tập và thực hành 2 - Giải BT Tin học 11
Bài tiếp: Bài 11: Kiểu mảng - Giải BT Tin học 11