Meine Tips werden wohl nicht berücksichtigt werden, weil sie vorerst etwas mühsam sind. Leider habe ich die Programmierung von einem N. Wirth Schüler gelernt. 8) Dessen Tips sind aber auch heute noch hilfreich.
1. Tip : keine gotos
2. Tip : keine unkontrollierten oder unnötigen Sprünge aus einer Schleife raus.
3. Tip : keine Ergebniszuweisung innerhalb einer Schleife, sondern nur am Ende.
4. Tip : "result" und ähnliches vermeiden
usw.
Ansonsten solle man eben BASIC benutzen und Spaghetticode produzieren.
Das ganze heißt im Klartext : kein EXIT, kein BREAK. Da hat er auch Recht, denn das ist unnötig.
Insofern sind die gemachten Vorschläge mit den gemachten Vorgaben nicht vereinbar. Das Flag ist allerdings schon brauchbar (bei mir heißt es : Ende.
Ah, ich sehe gerade, Dizzy hat das schon richtig gemacht, aber nur fast. Die Schleifen werden zu oft durchlaufen. Mein Vorschlag eine 3er Schleife möglichst früh zu beenden :
Delphi-Quellcode:
var i,j,k : integer;
ende : boolean;
begin
i := 1;
j := 1;
k := 1;
ende := false;
while not ende do begin
i := i + 1;
ende := i = fun (i,j,k);
if not ende then while not ende do begin
j := j + 1;
ende := j = fun (i,j,k);
if not ende then while not ende do begin
k := k + 1;
ende := k = fun (i,j,k);
end;
end;
end;
end;
Ob es jetzt genau mit der Programm-Logik übereinstimmt, wer weiß ?
Zumindest braucht man keine BASIC Konstrukte wie Exit oder Break. 8) Wer 0.0000000000001 Sek. sparen will, der soll noch INC verwenden statt +.