habe das Programm zwar nicht in Lazarus geschrieben, habe hier aber mal ein kleines Programm zur Ermittlung des größten gemeinsamen Teilers und vielleicht hat der eine oder andere eine Idee, wie man das besser machen kann oder bzw. in Lazarus umsetzen kann.
Code: Alles auswählen
program Euklidischer_Algorithmus;
uses crt;
var x, y,z, rest : integer;
begin
clrscr;
writeln('Euklidischer Algorithmus zur Ermittlung des ggT');
writeln('-----------------------------------------------');
write('Eingabe erste Zahl: ');
readln(x);
write('Eingabe zweite Zahl: ');
readln(y);
writeln('-----------------------------------------------');
z := x div y;
rest := x mod y;
writeln(x,' : ',y,' = ',z,' Rest ',rest);
while rest > 0 do
repeat
x := y;
y := rest;
z := x div y;
rest := x mod y;
writeln(x,' : ',y,' = ',z,' Rest ',rest);
until rest = 0;
writeln; writeln(y,' ist der ggT der beiden Zahlen.');
readln;
end.