Question

Cine se pricepe bine in pascal, am nevoie de o functie (function) de ridicare la putere de genul a la puterea b.

Answer 1

function Putere(a:real,n:integer):real;
var i:integer;
      p:real;
begin
    p:=1;
    for i=1 to n do
      p:=p*a;

    Putere=p.
end;