program potega; uses crt; var a,b,i,x,y:real ; function f(x,y:real):real; begin f:=exp(y*ln(x)); end; BEGIN writeln('podaj liczbe');readln(x); writeln('podaj potege');readln(y);
a:=f(x,y); writeln('twoj wynik to: ',a:0:0); readln; END.
tu masz program który podaje dowolną potęgę dowolnej liczby
program potega;
uses crt;
var a,b,i,x,y:real ;
function f(x,y:real):real;
begin
f:=exp(y*ln(x));
end;
BEGIN
writeln('podaj liczbe');readln(x);
writeln('podaj potege');readln(y);
a:=f(x,y);
writeln('twoj wynik to: ',a:0:0);
readln;
END.
tu masz program który podaje dowolną potęgę dowolnej liczby