66 lines
1.3 KiB
ObjectPascal
66 lines
1.3 KiB
ObjectPascal
|
program potega;
|
||
|
|
function potega_iter(a : Integer ;n : Integer ) : Integer;
|
||
|
|
var
|
||
|
|
wynik, i : Integer;
|
||
|
|
begin
|
||
|
|
wynik := 1;
|
||
|
|
for i := 1 to n do
|
||
|
|
wynik:= wynik*a;
|
||
|
|
potega_iter:= wynik;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function potega_rek(a : Integer ;n : Integer ) :Integer;
|
||
|
|
begin
|
||
|
|
if n = 0 then
|
||
|
|
potega_rek:= 1
|
||
|
|
else
|
||
|
|
potega_rek:= a * potega_rek(a,n-1);
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
function potega_iter_kwr(a : Integer ;n : Integer ) : Integer;
|
||
|
|
var
|
||
|
|
wynik : Integer;
|
||
|
|
begin
|
||
|
|
wynik := 1;
|
||
|
|
if n = 1 then
|
||
|
|
wynik:=a;
|
||
|
|
while n>1 do
|
||
|
|
begin
|
||
|
|
if n mod 2 = 1 then
|
||
|
|
begin
|
||
|
|
wynik:=a*wynik;
|
||
|
|
n:=n-1;
|
||
|
|
end
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
wynik:=a*a*wynik;
|
||
|
|
n:=n div 2;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
potega_iter_kwr:=wynik;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function potega_rek_kwr(a : Integer ;n : Integer ) :Integer;
|
||
|
|
var
|
||
|
|
wynik : Integer;
|
||
|
|
begin
|
||
|
|
wynik:=0;
|
||
|
|
if n = 0 then
|
||
|
|
potega_rek_kwr:= 1
|
||
|
|
else if n mod 2 = 1 then
|
||
|
|
potega_rek_kwr:= a * potega_rek_kwr(a,n-1)
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
wynik := potega_rek_kwr(a, n div 2);
|
||
|
|
potega_rek_kwr:=wynik*wynik;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
WriteLn('Potega Iteracyjna: ', potega_iter(2,3));
|
||
|
|
WriteLn('Potega Rekurencyjna: ', potega_rek(2,3));
|
||
|
|
WriteLn('Potega Iteracyjna Kwadratowa: ', potega_iter_kwr(2,3));
|
||
|
|
WriteLn('Potega Rekurencyjna Kwadratowa: ', potega_rek_kwr(2,3));
|
||
|
|
end.
|