Euklidischer Algorithmus zur Ermittlung des ggT

Vorstellungen von Programmen, welche mit Lazarus erstellt wurden.
Antworten
engeldimo123
Beiträge: 4
Registriert: Di 28. Sep 2021, 15:47

Euklidischer Algorithmus zur Ermittlung des ggT

Beitrag von engeldimo123 »

Hallo,
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.

Benutzeravatar
theo
Beiträge: 10467
Registriert: Mo 11. Sep 2006, 19:01

Re: Euklidischer Algorithmus zur Ermittlung des ggT

Beitrag von theo »

Hallo

Was ist jetzt genau deine Frage?
Wie die Algorithmen aussehen können, steht im Wiki: https://de.wikipedia.org/wiki/Euklidisc ... rammierung
"%" in C ist "mod" in Pascal.
Meinst du mit "in Lazarus umsetzen", wie man das mit Formular und TEdit bzw. TMemo statt "readln" und "writeln" macht?

Benutzeravatar
af0815
Lazarusforum e. V.
Beiträge: 6198
Registriert: So 7. Jan 2007, 10:20
OS, Lazarus, FPC: FPC fixes Lazarus fixes per fpcupdeluxe (win,linux,raspi)
CPU-Target: 32Bit (64Bit)
Wohnort: Burgenland
Kontaktdaten:

Re: Euklidischer Algorithmus zur Ermittlung des ggT

Beitrag von af0815 »

Ideen haben wir schon, wir warten mal auf deine Version.
Blöd kann man ruhig sein, nur zu Helfen muss man sich wissen (oder nachsehen in LazInfos/LazSnippets).

Antworten