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
Bình luận
Chia sẻ
- Câu 4 trang 51 SGK Tin học 11
- Câu 8 trang 51 SGK Tin học 11
- Câu 7 trang 51 SGK Tin học 11
- Câu 6 trang 51 SGK Tin học 11
- Câu 3 trang 51 SGK Tin học 11
>> Xem thêm
2K7 tham gia ngay group để nhận thông tin thi cử, tài liệu miễn phí, trao đổi học tập nhé!
>> Lộ Trình Sun 2025 - 3IN1 - 1 lộ trình ôn 3 kì thi (Luyện thi TN THPT & ĐGNL; ĐGTD) tại Tuyensinh247.com. Đầy đủ theo 3 đầu sách, Thầy Cô giáo giỏi, 3 bước chi tiết: Nền tảng lớp 12; Luyện thi chuyên sâu; Luyện đề đủ dạng đáp ứng mọi kì thi.
 |
 |
 |
 |
 |
 |
 |
 |
