Hallo,
ich habe ein (mehr oder weniger) kleines Problem, dass hauptsächlich durch die mir fremde Syntax von Delphi zustande kommt.
Ich kann .NET Visual Basic und C# programmieren, beides bestens, habe jetzt aber ein Problem mit einer Schleifen-Verschachtelung.
Vielleicht könnt ihr mir Lösungsvorschläge anbieten, wenn ihr den Code seht. Dieser sollte selbsterklärend sein!
Code:
procedure TForm1.Button1Click(Sender: TObject);
var base, exp, res, i, f : real;
begin
base := strtofloat(edit1.text);
exp := strtofloat(edit2.text);
i := 0;
f := 0;
while f <> 1 do
begin
if exp = 0 then
res := 1
else
if exp = 1 then
res := base
else
repeat
res := base*base;
i := i+1;
until i = exp;
end;
label1.caption := floattostr(res);
end;
Vielen Dank für eure Hilfe!
Mit freundlichen Grüßen,
CorsiQa.
Edit: Vielleicht solltet ihr wissen, dass ich keine Fehlermeldung erhalte, der Code nur einfach nicht ausgeführt wird und mittlerweile das Programm abstürzt. (Out of Memory?)
Als die Verschachtelung noch etwas "kleiner" wat, hat es immerhin funktioniert, ^0 und ^1 auszugeben.