Viết chương trình tính tổng T=1+1/2+1/3+......+1/100 Viết chương trình để giải bài toán trên trong hai trường hợp sử dụng lệnh lặp For.......do và lệnh lặp While.....do
2 câu trả lời
Đáp án:
Bạn tham khảo
Hình 1 là lệnh lặp for...do
Hình 2 là lệnh lặp while...do
$\text{#blackwolf9674}$
* Sử dụng lệnh lặp For .. do
uses crt;
var i : byte; T : real;
begin
clrscr;
T := 0;
for i := 1 to 100 do
T := T + 1 / i;
writeln('T = ', T:2:4);
readln
end.
* Sử dụng lệnh lặp While ... do
uses crt;
var i : byte; T : real;
begin
clrscr;
i := 1; T := 0;
while i <= 100 do
begin
T := T + 1 / i;
i := i + 1;
end;
writeln('T = ', T:2:4);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
