Câu 5 trang 51 SGK Tin học 11
Lập trình tính:
Đề bài
Lập trình tính:
Lời giải chi tiết
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.
Loigiaihay.com
-
Câu 8 trang 51 SGK Tin học 11
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.
-
Câu 7 trang 51 SGK Tin học 11
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.
-
Câu 3 trang 51 SGK Tin học 11
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.