viết chương trình tính a mũ n lại dùng chương trình con

0 bình luận về “viết chương trình tính a mũ n lại dùng chương trình con”

1. ! Cre: huutainguyen4559

   Program LUY_THUA ;

   Uses Crt;

     Var a,n:integer;

     Function  It(a,n:integer):longint

        Var i:integer; kq:longint

       Begin

        kq:=1

        For i :=1 to n do

         kq:=kq*a

         It:=kq;

      End;

     Begin
   Clrscr;
   Writeln(‘CHUONG TRINH TINH A^N:’);
   Writeln(‘———————————-‘);
   Write(‘Nhap a = ‘); readln(a);
   Write(‘Nhap n = ‘); readln(n);
   Writeln(a,’^’,n,’ = ‘,lt(a,n));
   Readln;
   End.

   Xin hay nhất ạ

   Bình luận

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

   Bình luận