program mocnina;
{ Úkolem bylo napsat rekurzivní funkci, která dostane čísla a,b a vrátí a^b, tedy a*a*...*a, pro b činitelů. }
var a,b : integer;
function m(a,b : integer):longint;
begin
if (b <= 0) then { Ukončovací podmínka. }
m:=1
else
m:=a*m(a,b-1); { Rekurzivní volání. }
end;
{ Testovací program, pomocí kterého bychom zkontrolovali, zda nám funkce funguje. }
begin
read(a,b);
writeln(m(a,b));
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)