Zitat von
Bansh:
Quellcode is bis jetz etwas unübersichtlich da ich noch am rumprobieren bin. Hoffe das mir trotzd, jemand helfen kann.
Stimmt, du machst zu viel in
einer Procedure.
Als Erstes würde ich dir empfehlen den Code für den GGT als Funktion zu schreiben.
Das reduziert die Anzahl deine lokalen Variablen und verbessert die Übersichtlichkeit.
Ausserdem kannst du die GGT-Funktion unabhängig vom Rest testen
Delphi-Quellcode:
procedure TestGGT;
begin
if GGT(20, 8) <> 4
then
raise Exception.Create('
GGT-Funktion hat einen Bug');
if GGT(8, 20) <> 4
then
raise Exception.Create('
GGT-Funktion hat einen Bug');
if GGT(1, 1) <> 1
then
raise Exception.Create('
GGT-Funktion hat einen Bug');
...
// hier weitere Testfälle
end;