dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau
T= 1*1/2*1/3*..*1/50
dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau T= 1*1/2*1/3*..*1/50
By Madeline
By Madeline
dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau
T= 1*1/2*1/3*..*1/50
for…to…do…
program tong_T;
uses crt;
var t:real;
i:byte;
begin
clrscr;
T:=0;
for i:=1 to 50 do
T:=T+1/i;
write(‘T= ‘,t:0:3);
readln;
end.
while…do…
program tong_T;
uses crt;
var i:integer;
T:real;
begin
clrscr;
i:=1; T:=0;
while i<=50 do
begin
T:=T+1/i;
i:=i+1;
end;
write(‘T= ‘,t:0:3);
readln;
end.
Dùng For…to…do:
program tong;
uses crt;
var i: byte;
T: real;
Begin
clrscr;
T:=1;
for i:=1 to 50 do T:=T*1/i;
write(‘T = ‘,T:2:3);
readln
End.
Dùng While…do:
program tong;
uses crt;
var i: byte;
T: real;
Begin
clrscr;
T:=1; i:=1;
while i<=50 do
begin
T:=T*1/i;
i:=i+1;
end;
write(‘T = ‘,T:2:3);
readln
End.