Euklidscher Algorithmus mit repeat until
da thepaul ja schon einen alogithmus zum GGT nach Euklid gepostet hat (mith while), werd ich mal einen posten, der das etwas anderes löst ;) (mit repeat until)
Delphi-Quellcode:
mfg kos
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,code:integer; s:string; begin VAL (form1.Edit1.Text,a, code); // einlesen VAL (form1.Edit2.Text,b, code); // einlesen repeat // wiederhole c:=(a)MOD(b); // a mod b b:=c; // rest wird zu b a:=b; // b wird zu a until (a)MOD(b)=0; // bis a mod b den rest 0 hat str(b:5,s); form1.Edit3.text:=s; // ausgabe ggt in edit3 end; |
Re: Euklidscher Algorithmus mit repeat until
Gibt das Ding nicht schon nach dem ersten Schleifendurchlauf a mod b als ggT aus? :gruebel:
|
Re: Euklidscher Algorithmus mit repeat until
Ja, tut es :mrgreen:
Ich glaube, das soll so sein:
Delphi-Quellcode:
a:=b; b:=c; until (a)MOD(b)=0; |
Re: Euklidscher Algorithmus mit repeat until
Hi KosMottchen,
der euklidische Algorithmus ist bereits hier in der Code-Library zu finden. Die von dir eingefügten Änderungen verändern nicht die Funktionsweise des bereits vorhandenen Codes, sondern sind nur eine andere Schreibweise für exakt das selbe Problem. Bitte habe Verständnis, dass wir deswegen deinen Code nicht in die Code-Library aufnehmen werden. :) Chris |
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:39 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz