So was ähnliches wollt ich auch grad antworten, dann is mir aber aufgefallen, daß er eigentlich das i in der Funktion "zwei_hoch" nicht verändert. Die Schleife dort läuft immer nur von 1 bis zu dem i aus der For-Schleife in "generieren". Daher steht das i nach "zwei_hoch" eigentlich wieder genau dort, wo es vorher war...
Schön ist es sicherlich nicht, aber ich kann jetzt direkt keinen logischen Fehler feststellen. Aber nichtsdestotrotz wirds wohl daran liegen.
Aber auf jeden Fall versteh ich nicht ganz, warum du das so kompliziert machst, Thunderbolt. Warum denn nicht einfach so:
Delphi-Quellcode:
program aa;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var eingabe : integer;
Begin
WriteLn('Berechnung der 2er-Potenzen. Zum Beenden 0 eingeben!');
Repeat
Repeat
Write('Geben sie den Exponenten ein: ');
readln(eingabe);
If eingabe > 50 Then
WriteLn('Exponent muss <= 50 sein!');
Until eingabe <= 50;
WriteLn('2^' + IntToStr(eingabe) + ' = ' + FloatToStr(power(2,eingabe)));
Until eingabe = 0;
End.
"power" macht ja schließlich genau das, was du willst. Erster Parameter ist die Basis, der zweite der Exponent. Mußt halt dafür noch die
Unit Math einbinden
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;