Implementazioni di algoritmi/Elevazione a potenza: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Nessun oggetto della modifica |
|||
Riga 35:
var r: real; i : integer;
begin
if (b=0) and (e=0) then {verifica il caso 0^0 }▼
r := 1;▼
▲ if (b=0) and (e=0) then
writeln('Errore: l''espressione non ha significato')
else
begin
r := 1; {valore di partenza}
{calcola b^abs(e) }
for i := 1 to abs(e) do
r := r * b;
{inverte il risultato se necessario}
if e < 0 then
r := 1/r;
{restituisce il valore}
potenza := r;
end;
| |||