Giúp mình bài tin 11 này với!

[tank304]

Ở sách GK 11 có bài này mà mình làm ko ra,ai biết chỉ giúp với:

e(n)=1+1/1!+1/2!+....................+1/n! đến khi 1/n! < 0.000002
đưa kết quả e(n) ra màn hình.
ai giúp với mình chịu ko nghĩ ra cách tính n!

[mr_invincible]

Bài trên không cần tính n! mà chỉ cần dựa theo các kết quả trước.
s:=1; tong:=1; i:=1;
repeat
tong:=tong+s;
i:=i+1; s:=s/i;
until s<0.000002;

[tank304]

chỉ xài các lệnh sau thôi
while....do
for...to.....do
if.......then......else
còn lệnh bạn cho mình thử rồi ko phải đâu.

[mr_invincible]

Vòng lặp repeat until về cơ bản không hề khác vòng lặp while do
Có thể viết lại (phần repeat.. until)
While s>=0.000002 do
begin
tong:=tong+s;
i:=i+1; s:=s/i;
end;

[tank304]

cám ơn bạn nhé.Mình làm đc rồi