Viết chương trình tính tổng bằng lệnh lặp while..do
T=1+1/2+1/3+...+100
m.n ơi giúp mình với
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
H9
HT.Phong (9A5)
CTVHS
28 tháng 4 2023
Uses crt;
var i,t: integer;
begin clrscr;
i:=0;
while(i<=120) do begin
i:=i+1;
t:=t+i;
end;
write(t);
readln;
end.
16 tháng 3 2023
program TinhTongWhileDo;
var
n, i: integer;
S: real;
begin
write('Nhap so n: ');
readln(n);
S := 0;
i := 1;
while i <= 2*n do
begin
S := S + 1/i;
i := i + 1;
end;
writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);
readln;
end.
LH
1
S
3
10 tháng 4 2021
a, Với lệnh For..do:
Var i:integer;
S:real; (Hoặc S:longint);
Begin
S:=0;
For i:=1 to 1980 do S:=S+i;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)
b, Với lệnh While...do
Var i:integer;
S:real;
Begin
S:=0; i:=0;
While i<=1980 do
Begin
S:= S+i;
i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D
10 tháng 4 2021
a) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 1980 do
s:=s+i;
writeln(s);
readln;
end.
TS
2
22 tháng 4 2021
a)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
22 tháng 4 2021
b)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
uses crt;
var i:integer;
t:real;
begin
clrscr;
i:=1;
t:=0;
while i<=100 do
begin
t:=t+1/i;
inc(i);
end;
writeln(t:4:2);
readln;
end.