Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
`a)`
program tinh;
uses crt;
var n : byte;
y : real;
begin
clrscr;
y := 0;
for n := 1 to 50 do y := y + n / (n + 1);
writeln('y = ', y : 0 : 5);
readln;
end.
`b)`
program tinh;
uses crt;
var i : integer;
e, g : real;
begin
clrscr;
e := 1;
g := 1;
i := 0;
while 1 / g >= 0.000002 do
begin
i := i + 1;
g := g * i;
e := e + 1 / g;
end;
writeln('e = ', e : 0 : 5);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
a.
uses crt;
var i: byte;
y: real;
begin
clrscr;
y := 0;
for i := 1 to 50 do y := y + (i/(i + 1));
write(y);
end.
b.
uses crt;
var i: byte;
n: longint;
ans: real;
begin
clrscr;
i := 1;
n := 1;
ans := 1;
while 1/n >= 2.0e-6 do
begin
ans := ans + 1/n;
inc(i);
n *= i;
end;
write(ans);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
10745
114043
5862
for n := 1 to 50 do y := y + n / (n + 1); đoạn này hả e?
22
713
13
dạ đúng rồi anh, a giải thích vì sao lại dùng nó đi ạ
10745
114043
5862
n = 1 ⇒ y = 0 + 1 / (1 + 1) = 0 + 1 / 2 = 1/ 2 n = 2 ⇒ y = 1 / 2 + 2 / (2 + 1) = 1 / 2 + 2 / 3 = 7 / 6 n = 3 ⇒ y = 7 / 6 + 3 / (3 + 1) = 7 / 6 + 3 / 4 = 23 / 12 n = ..... Đề bài: Giá trị n chạy từ 1 đến 50 Với từng giá trị n thì n / (n + 1) sẽ có 1 giá trị Cộng tất cả các giá trị tương ứng với từng n Rút gọnn = 1 ⇒ y = 0 + 1 / (1 + 1) = 0 + 1 / 2 = 1/ 2 n = 2 ⇒ y = 1 / 2 + 2 / (2 + 1) = 1 / 2 + 2 / 3 = 7 / 6 n = 3 ⇒ y = 7 / 6 + 3 / (3 + 1) = 7 / 6 + 3 / 4 = 23 / 12 n = ..... Đề bài: Giá trị n chạy từ 1 đến 50 Với từng giá trị n thì n / (n + 1) sẽ có 1 giá... xem thêm
10745
114043
5862
n = 1 tính n / (n + 1) = ? n = 2 tính n / (n + 1) = ?? n = 3 tính n / (n + 1) = ??? n = ... ⇒ Tổng = ? + ?? + ??? + ...
10745
114043
5862
https://hoidap247.com/cau-hoi/2018558
10745
114043
5862
Ví dụ đó e
22
713
13
damn! em đã hiểu, cảm ơn a nhiều, 5 sao xứng đáng thuộc về a
10745
114043
5862
:v