Viết phương trình pascal cho 2 số tn n và x. Tính x^n biết x^n=x*x*x*…*x(n chữ số) Input: n và x (n,x<=10) Output: x^n

0 bình luận về “Viết phương trình pascal cho 2 số tn n và x. Tính x^n biết x^n=x*x*x*…*x(n chữ số) Input: n và x (n,x<=10) Output: x^n”

1. program Taylor;
   uses crt;
   var x,n,lt,i:longint;
   begin
   clrscr;
      write(‘n,x=’);readln(n,x);
      lt:=1;
      for i:=1 to n do lt:=lt*x;
      writeln(x,’^’,n,’=’,lt);
   readln
   end.

   Bình luận

2. program kaito;

   uses crt;

   var x, n, i, s: integer;

   begin

      clrscr;

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

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

      if (x<0) or (n<0) or (x>10) or (n>10) then write(‘Khong hop le’) else

      s:=1;   

      for i:=1 to n do s:=s*x;

      writeln(x,’^’,n,’ = ‘,s);

      readln

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận