Summe berechnen

Iterative:

package SummenberechungIterative is

function Summenberechnung (StartwertExtern : in Integer; EndwertExtern : in Integer) return Integer;

private

Startwert : Integer;

Endwert : Integer;

Summe : Integer;

end SummenberechungIterative;

package body SummenberechnungIterative is

function Summenberechnung (StartwertExtern : in Integer; EndwertExtern : in Integer) return Integer

is begin

if StartwertExtern > EndwertExtern then

Startwert := EndwertExtern;

Endwert := StartwertExtern;

else

Startwert := StartwertExtern;

Endwert := EndwertExtern;

end if;

Summe := 0;

SummeSchleife:

for SummeSchleifenwert in Startwert .. Endwert loop

Summe := Summe + SummeSchleifenwert;

end loop SummeSchleife;

return Summe;

end Summenberechnung;

end SummenberechnungIterative;

Rekursiv:

package SummenberechnungRekursiv is

function Summenberechnung (WertExtern : in Natural) return Natural;

end Summenberechung;

package body SummenberechnungRekursiv is

function Summenberechnung (WertExtern : in Natural) return Natural

is begin

case WertExtern is

when 0 .. 1 =>

return WertExtern;

when others =>

return WertExtern + Summenberechnung (WertExtern => (WertExtern - 1));

end case;

end Summenberechnung;

end SummenberechnungRekursiv;