Sử dụng câu lệnh lặp for....do, while.....do để viết phương trình tính tổng: T = $\frac{1}{1}$ + $\frac{1}{2}$ + $\frac{1}{3}$ + .... + $\frac{1}{99}$ + $\frac{1}{100}$ Hứa sẽ vote 5*, câu trả lời hay nhất , cảm ơn
2 câu trả lời
While....do :
uses crt;
var i : integer;
t : real;
begin clrscr;
t:=0;
while i<=100 do begin
t:=t+1/i;
i:=i+1;
end;
write('Nhap t=', t);
readln
end.
For ...to..do :
uses crt;
var i : integer; t : real;
begin clrscr;
t:=0;
for i:=1 to 100 do t:=t+1/i;
wwrite('Tong t=', t);
readln
end.
Cách `1`
Program Hotboy ;
uses crt;
Var i : integer;
S: real;
Begin
Clrscr;
For i:=1 to 100 do
S:=S+1/i;
Write('Tong la',S);
Readln
End.
Cách `2`
Program Hotboy;
Uses crt;
Var i : integer;
S: real;
Begin
Clrscr;
S:=0;
while i<=100 do
Begin
S:=S+1/i; inc(i);
End;
Write('Tong la', S);
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
