viết chương trình tính S5, dùng pascal S5=e^x=1+x/1!+x ²/2! +… + x^n/n! khó nên ai làm xg trc mà đúng sẽ cho ctlhn

0 bình luận về “viết chương trình tính S5, dùng pascal S5=e^x=1+x/1!+x ²/2! +… + x^n/n! khó nên ai làm xg trc mà đúng sẽ cho ctlhn”

1. uses crt;
   var i,n,x:word;
       lt,gt:longint;
       s:real;
   begin
       clrscr;
       write(‘x=’);readln(x);
       write(‘n=’);readln(n);
       gt:=1;
       lt:=1;
       s:=1;
       for i:=1 to n do
          begin
              lt:=lt*x;
              gt:=gt*i;
              s:=s+lt/gt;
          end;
       writeln(s:0:3);
   readln;
   end.

   Bình luận