ggT und KgV von 2 Zahlen berechnen - absolut keine Ahnung

[Connor Temple]

Mit sowas hab ich noch nie gerechnet, ich brauche echt den Programmcode um das nachzuvollziehen, was da gemacht wird.
Ich hab absolut keinen Plan von der Delphi-Sprache und was ich da eingeben soll, mein Lehrer verzweifelt an mir auch schon fast.

[wolfgang_SV]

hier ist der komplette Programm_code fü die Berechnung vom ggT

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function ggt(a,b : integer) : integer;
  var t,r : integer;
  begin
  if a<b then
    begin
    t:=a;
    a:=b;
    b:=t;
    end;

  repeat
  r:= a mod b;
  a:=b;
  b:=r;
  until r=0;

  result:=a;
  end;

procedure TForm1.Button1Click(Sender: TObject);
  var a,b,c : integer;
  begin
  a:=strtoint(edit1.text);
  b:=strtoint(edit2.text);

  c:=ggt(a,b);

  label1.caption:=inttostr(c);
  end;

end.

[Sir Rufo]

Zitat von Connor Temple:

Mit sowas hab ich noch nie gerechnet, ich brauche echt den Programmcode um das nachzuvollziehen, was da gemacht wird.
Ich hab absolut keinen Plan von der Delphi-Sprache und was ich da eingeben soll, mein Lehrer verzweifelt an mir auch schon fast.

Ich vermute mal, die Defizite sind schon bei der Mathematik vorhanden.
Wenn du das gestellte Problem mit deinen mathematischen Kenntnissen nicht lösen kannst, dann wirst du es auch nicht programmieren können, jedoch auch nicht verstehen, wenn du die fertig programmierte Lösung siehst.

[Piethan]

Eigentlich war schon alles vorhanden, was benötigt wurde. Und im Wiki ((Euklidischer Algorithmus Rekursive Variante) stand
auch noch fast die ganze Lösung:

Code:

euclid(a,b)
begin
  wenn b=0 dann return a
  sonst return EUCLID(b, a mod b)
end

Und den KgV hätte er sich damit auch ableiten können:

Code:

kgv(a,b)
begin 
  return ((a*b)/euclid(a,b));
end

[Connor Temple]

Zitat von Sir Rufo:

Zitat von Connor Temple:

Mit sowas hab ich noch nie gerechnet, ich brauche echt den Programmcode um das nachzuvollziehen, was da gemacht wird.
Ich hab absolut keinen Plan von der Delphi-Sprache und was ich da eingeben soll, mein Lehrer verzweifelt an mir auch schon fast.

Ich vermute mal, die Defizite sind schon bei der Mathematik vorhanden.
Wenn du das gestellte Problem mit deinen mathematischen Kenntnissen nicht lösen kannst, dann wirst du es auch nicht programmieren können, jedoch auch nicht verstehen, wenn du die fertig programmierte Lösung siehst.

Ich konnte mit Delphi nichtmal ein Plus-Minus-Rechen-Programm schreiben, ich weiß wie man das ggT und KgV berechnet, aber ich komme mit den ganzen Delphi-Befehlen nicht klar.

Hab mir aus unserer Mediothek das Buch: Delphi 3 für Dummies ausgeliehen, ist das gut, um das Programm doch noch zu lernen?

[implementation]

Zitat von Connor Temple:

aber ich komme mit den ganzen Delphi-Befehlen nicht klar.

Könnte daran liegen, dass es in Delphi keine Befehle gibt, nur Aufrufe, Zuweisungen und Konstrukte

[Wolfgang Mix]

Ich denke, dieser Link müsste dir zum Durchstarten helfen:
http://www.delphi-treff.de/tutorials.../warum-delphi/

[Delphi-Laie]

Zitat von implementation:

Zitat von Connor Temple:

aber ich komme mit den ganzen Delphi-Befehlen nicht klar.

Könnte daran liegen, dass es in Delphi keine Befehle gibt, nur Aufrufe, Zuweisungen und Konstrukte

Welch eine Sophisterei! Zuweisungen sind sehr wohl Befehle, nämlich eben Zuweisungsbefehle. Mit if wird die Feststellung eines Wahrheitsgehaltes befohlen, mit repeat ein mindestens einmaliger Schleifendurchlauf (was ohne Wiederholung allerdings noch keine echte Schleife ist) usw. usf. . Letztlich sind das alles doch Befehle an den Computer.

Ich würde dem Fragenden das mathematische Hintergrundwissen keinesfalls absprechen, so etwas finde ich ungehörig. Ist zwar schon ein geraumes Weilchen her, aber ich kann mich sehr wohl noch daran erinnern, daß ich zwar die Fakultät mathematisch verinnerlichte, mich jedoch außerstande sah, ihre Berechnung in Basic umzusezten.

Der Einstieg ist überall schwierig. Jeder, der sich hier zu überheben versucht, sollte nicht vergessen, daß er ebenfalls als Neugeborenes ohne jegliches erworbenes Wissen auf die Welt kam.

Der Pseudocode und auch die an das Englisch angelehnten Sprachbefehle des Pascals bzw. Delphis sollten allerdings den Einstieg so einfach wie möglich machen. Die vielleicht ungewöhnlichste Begegnung der ersten Stunden ist womöglich die Wert- bzw. Ergibt-Sich-Aus-Zuweisung, die es in der Mathematik mangels Notwendigkeit so (also mit dieser Syntax) nicht gibt.

[Sir Rufo]

Zitat von Delphi-Laie:

Ich würde dem Fragenden das mathematische Hintergrundwissen keinesfalls absprechen, so etwas finde ich ungehörig.

Es wurden Hinweise zu den verschiedenen Berechnungs-Algorithmen gegeben und dann das:

Zitat von Connor Temple:

Mit sowas hab ich noch nie gerechnet, ich brauche echt den Programmcode um das nachzuvollziehen, was da gemacht wird.
Ich hab absolut keinen Plan von der Delphi-Sprache und was ich da eingeben soll, mein Lehrer verzweifelt an mir auch schon fast.

Und in die Forensuche mal kgv eingegeben bringt uns u.a. hierzu
ich finde es durchaus nicht ungehörig sondern noch überaus freundlich, da es sich hier augenscheinlich um einen Zeitgenossen handelt, der es (angeblich) nicht schafft c := a + b; zu schreiben

Zitat von Connor Temple:

Ich konnte mit Delphi nichtmal ein Plus-Minus-Rechen-Programm schreiben

sondern dem auch Suchfunktionen völlig fremd sind.

Eine Frage a la

Zitat:

Hab da den Code gefunden, der xy berechnet. Kann mir das mal jemand erklären?

hätte ich ja noch verstanden.

Das hier riecht nach

Zitat:

Sei schlau, bleib dumm!
Was ich nicht kann, brauch ich nicht machen!

[Connor Temple]

Danke erstmal für die netten antworten, danke auch dir Sir Rufo, dass du mein Mathewissen infrage stellst xD

Ich kam mit VB damals auch kaum klar, aber immer noch besser als in Delphi und das ist erstmal ne riesige Umstellung für mich.
Wir schreiben nächste Woche auch eine Klausur, und ich wollte mich so schnell wie mir möglich ist mit dem Programm vertraut machen.

EDIT:
Ich habs grad nochmal mit wolfgang_SVs Lösung probiert, ich bin kläglich gescheitert...
Ich bin echt am verzweifeln, weil ichs nicht verstehe.