Thuật toán tính hàm mũ

Trong Pascal ta có thể tính a^b bằng công thức exp(b*ln(a)). Tuy nhiên nếu a không phải là số dương thì không thể áp dụng được.

Ta có thể viết hàm mũ an như sau:

function hammu(a : real; n : integer): real;

var s : real;

i : integer;

begin

s := 1;

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

hammu := s;

end;

Theo lập trình vn

Posted in: học lập trình cơ bản, Lập trình cơ bản