Hey ihr.
ich bin totaler Delphi-Neuling, muss mich aber wegen dem Schulfach Informatik da durchwursteln.
Unsere Aufgabe, die ich jetzt bereits zuhause erledigt habe, ist es, ein Programm zu erstellen, dass den größten gemeinsamen Teiler errechnet.
Nach einigen eigenen Versuchen, habe ich mir eine Lösung aus dem Internet gesucht, die auch funktioniert.
Nur ich kann es noch nicht so ganz nachvollziehen! (Wir arbeiten mit Delphi 5.1 ...)
Folgende
Unit:
var a, b, r : Integer; // a= 1. Zahl, b= 2. Zahl, r= Rest ? ... :-S
procedure TForm1.Button1Click(Sender: TObject);
begin
(* Zahlen einlesen *)
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
r := b; // Warum ist r:= b ?
(* Euklidischer Algorithmus *)
while r <> 0 do
begin
r := a mod b; // heißt das, das r:= der rest aus a:b ist?
a := b; // wieso wird a jetzt dem wert b zugeordnet?
b := r; // und wieso wird b:=r?
end;
(* ggT ausgeben *)
Edit3.Text := IntToStr(a); // wieso (a) ?
if a = 1 then ShowMessage('Die beiden Zahlen sind teilerfremd.');
end.
Ansonsten habe ich selbst einige Sachen hinzugefügt oder von der Lösung weggelassen, die ich hier nicht aufliste.
Ich hoffe, ihr könnt mir etwas helfen ! Bin total verwirrt!
Liebe Grüße