Viết chương trình pascal P= a^n biết a,n<=10

0 bình luận về “Viết chương trình pascal P= a^n biết a,n<=10”

1. Cách dùng hàm exp,ln thì hơi khó hiểu, nên trong trường hợp a,n<=10 thì dùng cách thường dễ hiểu hơn

   var a,n,i:byte;

         kq:int64;

   begin

   kq:=1;

   write(‘Nhap a: ‘); readln(a);

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

   for i:=1 to n do

   kq:=kq*a;

   write(‘P= ‘,kq);

   readln;

   end. 

   Bình luận

2. Program BTT;
   Uses crt;
   Var a,n: byte;
       P: extended;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap n: ‘); Readln(n);
           P:=exp(n*ln(a));
           Write(‘P = ‘,p:0:0);
           Readln
   End.

   Bình luận