Giúp mình bài tập về câu lệnh For...To...Do

[thegioibang]

Các bạn giúp mình với!

Bài 1. Tính tổng S = 1 + 1/(2!) + 1/(3!) + ... + 1/(n!)
Bài 2. Tính tổng S = 1 + x + (x^2)/(2!) + (x^3)/(3!) + ... + (x^n)/(n!)

[hajnguyen666]

{Tinh tong 1+1/2!+1/3!+...+1/n!}
Var N:integer;
gt:longint;
S:real;
Begin
 write('Nhap vao so nguyen duong N:'); Readln(N);
 gt:=1;
 S:=0;
 For i:=1 to n do
   begin
    gt:=gt*i;
    S:=S+1/gt;
   End;
  write('Tong la:',S:5:2);
  Readln
End.

{Tinh tong S=1+x+x^2/2!+x^3/3!+....+x^n/n!}
Var N,i,x:integer;
gt,mu:longint;
S:real;
begin
 write('Nhap vao so nguyen duong N:'); Readln(N);
 write('Nhap vao so nguyen x:'); Readln(x);
 mu:=1;gt:=1;S:=1;
 For i:=1 to n do
  begin
   mu:=mu*x;
   gt:=gt*i;
   S:=S+mu/gt;
  End;
write('tong S la:',S);
Readln
End.

[/SIZE]

[/B]

[conghung999]

với 2 bài này thì bạn nên viết cái function tính giai thừa cho tiện, tính trong vòng lặp kiểu này dễ trục trặc lắm [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

(lần sau nhớ bỏ vào code cho dễ nhìn nhaz)