Bài tập và thực hành 2
Câu 5 trang 51 SGK Tin học 11
Lập trình tính:
Lời giải:
- 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.
Tham khảo toàn bộ: Giải Tin học 11
- * Lớp 1
- Lớp 2
- Lớp 3
- Lớp 4
- Lớp 5
- Lớp 6
- Lớp 7
- Lớp 8
- Lớp 9
- Lớp 10
- Lớp 11
- Lớp 12
- Thi chuyển cấp
Mầm non
- Tranh tô màu
- Trường mầm non
- Tiền tiểu học
- Danh mục Trường Tiểu học
- Dạy con học ở nhà
- Giáo án Mầm non
- Sáng kiến kinh nghiệm
Học tập
- Giáo án - Bài giảng
- Luyện thi
- Văn bản - Biểu mẫu
- Viết thư UPU
- An toàn giao thông
- Dành cho Giáo Viên
- Hỏi đáp học tập
- Cao học - Sau Cao học
- Trung cấp - Học nghề
- Cao đẳng - Đại học
Hỏi bài
- Toán học
- Văn học
- Tiếng Anh
- Vật Lý
- Hóa học
- Sinh học
- Lịch Sử
- Địa Lý
- GDCD
- Tin học
Trắc nghiệm
- Trắc nghiệm IQ
- Trắc nghiệm EQ
- KPOP Quiz
- Đố vui
- Trạng Nguyên Toàn Tài
- Trạng Nguyên Tiếng Việt
- Thi Violympic
- Thi IOE Tiếng Anh
- Kiểm tra trình độ tiếng Anh
- Kiểm tra Ngữ pháp tiếng Anh
Tiếng Anh
- Luyện kỹ năng
- Giáo án điện tử
- Ngữ pháp tiếng Anh
- Màu sắc trong tiếng Anh
- Tiếng Anh khung châu Âu
- Tiếng Anh phổ thông
- Tiếng Anh thương mại
- Luyện thi IELTS
- Luyện thi TOEFL
- Luyện thi TOEIC
Khóa học trực tuyến
- Tiếng Anh cơ bản 1
- Tiếng Anh cơ bản 2
- Tiếng Anh trung cấp
- Tiếng Anh cao cấp
- Toán mầm non
- Toán song ngữ lớp 1
- Toán Nâng cao lớp 1
- Toán Nâng cao lớp 2
- Toán Nâng cao lớp 3
- Toán Nâng cao lớp 4
Giao diện mới của VnDoc Pro: Dễ sử dụng hơn - chỉ tập trung vào lớp bạn quan tâm. Vui lòng chọn lớp mà bạn quan tâm: Lưu và trải nghiệm
- Giải bài tập Tin học 11
Khởi động Turbo Pascal: Nhấp chuột lên biểu tượng Pascal trên màn hình hoặc lên tệp Turbo.exe trong thư mục BIN của thư mục TP ở ổ đĩa C hoặc ổ đĩa D.
Xem lời giải
Chương trình cài đặt:
a]
Program bai5a;
Uses crt;
Const n=50;
Var i: integer;
Y: real;
Begin
Clrscr;
for i:=1 to n do
Y:=i/[i+1];
Write['Tong Y: ',y:9:3];
Readln
End.
b]
program bai5b;
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
n:=n+1;
sh:=sh*[1/n];
e:=e+sh;
end;
writeln['Gia tri e[n] la: ',e:10:4];
readln
end.
-- Mod Tin Học 11 HỌC247