Viết chương trình pascal tính: S: 1 – x + x2/2! – x3/3! + … + xn/n!

0 bình luận về “Viết chương trình pascal tính: S: 1 – x + x2/2! – x3/3! + … + xn/n!”

1. program ct;

   uses crt;

   var i,n,x:integer; 

       S:real;

   function gt(a:integer):longint;

   var i:integer;

   begin

        gt:=1;

      for i:=1 to a do 

        gt:=gt*i;

   end;

   begin clrscr;

        S:=1;

      write(‘Nhap so x: ‘); readln(x);

      write(‘Nhap so n: ‘); readln(n);

      for i:=1 to n do 

        S:=S+(x*i)/gt(i);

      writeln(‘Tong S= ‘,S:4:2);

   readln;

   end.

   Học tốt!

   Bình luận

2. // nếu như x x2 kia là các phần tử của mảng thì như này

   #include <iostream>
   using namespace std;
   int giaithua(int i)
   {
       int tt=1;
       for(int j=1;j<=i;j++){
           tt*=j;
       }
       return tt;
   }
   int main()
   {
       float s=1;
       cout<<“Nhap n:”;
       int n,a=1;
       cin>>n;
       cout<<“Nhap mang: “;
       int arr[n];
       for(int i=0;i<n;i++){
           cin>>arr[i];
       }
       s-=arr[0];
       for(int i=2;i<=n;i++){
           if(i%2==0){
               s+=arr[a]/(float)giaithua(i);
           }
           else{
               s-=arr[a]/(float)giaithua(i);
           }
           a++;
       }
       cout<<s;
       //samon247
       return 0;
   }

   // còn nếu như là x x*2 thì như sau

   #include <iostream>
   using namespace std;
   int giaithua(int i)
   {
       int tt=1;
       for(int j=1;j<=i;j++){
           tt*=j;
       }
       return tt;
   }
   int main()
   {
       float s=1;
       cout<<“Nhap n:”;
       int n,x;
       cin>>n;
       cout<<“Nhap x: “;
       cin>>x;
       s-=x;
       for(int i=2;i<=n;i++){
           if(i%2==0){
               s+=x*i/(float)giaithua(i);
           }
           else{
               s-=x*i/(float)giaithua(i);
           }
       }
       cout<<s;
       //samon247
       return 0;
   }

   Bình luận