-
Lớp 12
-
Lớp 11
-
Lớp 10
- SGK Toán 10 - Đại Số và Hình Học Toán 10
- SGK Toán 10 nâng cao
- SGK Tiếng Anh 10
- SGK Tiếng Anh 10 Mới
- Văn mẫu 10
- Soạn văn 10 chi tiết
- Soạn văn 10 ngắn gọn
- Soạn văn 10 siêu ngắn
- Tác giả - Tác phẩm văn 10
- SGK Vật lý 10
- SGK Vật lý 10 nâng cao
- SGK Hóa học 10
- SGK Hóa học 10 nâng cao
- SGK Sinh học 10
- SGK Sinh học 10 nâng cao
-
Lớp 9
-
Lớp 8
-
Lớp 7
-
Lớp 6
- Lớp 5
- Lớp 4
- Lớp 3
- Lớp 2
- Lớp 1
- Thông tin tuyển sinh
Câu 5 trang 51 SGK Tin học 11
Đề bài / Mô tả:
Xem lời giải và đáp án chi tiết cho câu 5 trang 51 SGK Tin học 11
Đề 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.