mọi người giúp em với! Viết chương trình nhập n và tính tổng S(n) = x + x^2 + x^3 + … + x^n trong pascal

0 bình luận về “mọi người giúp em với! Viết chương trình nhập n và tính tổng S(n) = x + x^2 + x^3 + … + x^n trong pascal”

1. uses crt;
   var n,i:integer;
       s:extended;
   function somu(x,n:integer):extended;
   var tam:integer;
           begin
                   somu:=1;
                   for tam:=1 to n do
                   somu:=somu*x;
           end;
   BEGIN
           clrscr;
           write(‘Nhap n:’); readln(n);
           s:=0;
           for i:=1 to n do
                   s:=s+somu(n,i);
           write(‘TONG LA:’,S:0:0);
           readln
   END.

   Bình luận

2. uses crt;
   var n,i,s,x,t,d: longint;
   begin
    clrscr;
     write (‘nhap n: ‘);   readln (n);
     write (‘nhap x: ‘);   readln (x);
     for i:=1 to n do
      begin
       repeat
        x:=x*x;
        d:=d+1;
       until d=i;
       s:=s+x;
      end;
     writeln (‘tong la: ‘,s);
    readln;
   end.

   

   Bình luận