Áo viết chương trình con Tính lũy thừa a^n

0 bình luận về “Áo viết chương trình con Tính lũy thừa a^n”

1. uses crt;
   var a,n:longint;
   {—Ham-luy-thua—}
   function lt(a,n:longint):longint;
   var i:longint;
   begin
         lt:=1;
         for i:=1 to n do lt:=lt*a;
   end;
   {—Chuong-trinh-chinh—}
   BEGIN
         clrscr;
         write(‘Nhap a: ‘); readln(a);
         write(‘Nhap n: ‘); readln(n);
         write(a,’^’,n,’=’,lt(a,n));
         readln;
   END.

   Bình luận

2. PROGRAM  Tên_chương_trình;

   USES CRT;

   CONST  …………;

   VAR       …………;

    

   PROCEDURE  THUTUC[(Các tham số)];

   [Khai báo Const, Var]

   BEGIN

               …………..

   END;

    

   FUNCTION  HAM[(Các tham số)]:<Kiểu dữ liệu>;

   [Khai báo Const, Var]

   BEGIN

               …………..

               HAM:=<Giá trị>;

   END;

    

   BEGIN {Chương trình chính}

               ……………….

               THUTUC[(…)];

               ……………….

               A:= HAM[(…)];

               ……………….

   END.

   Bình luận