Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#1

Teiler einer zahl (es läuft, aber wieso?)

  Alt 6. Okt 2003, 15:43
Hi, ich hab hier mal war programmiert, das die Teiler einer Zahl berechnet, es geht auch, aber ich kappiere überhaupt nicht mehr wieso , ich müsste das nächste Mal wohl besser gescheite variablen-namen nehmen.

Äh, kann mir da mel jemand auf die Sprünge helfen?
Alles, was ich verstehe, steht als bemerkung dahinter.

Delphi-Quellcode:
procedure TForm1.TeilerMengeStringVon(z: integer); //Zahl aus einem Edit
var t,h,i: integer; //t=teiler
begin
  s:='';

  for h:=1 to z do //geht jede Zahl einmal durch
  begin
  x:='';
    for t:=1 to h do //überprüft die Teiler der Zahlen
    begin
      s:=IntToStr(h div t);
      if h mod t = 0 then //wenn kein rest da ist ==> Teiler
      begin
        if not (t=h) then x:=x+s+', '  //nach dem letzten teiler, kein Komma mehr hinzufügen
        else x:=x+s; //Teiler dem String hinzufügen
      end;
    end;
    x:='T'+IntToStr(h)+' = {'+x+'}'; //string, der in die ListBox geschrieben wird
    ListBox1.Items.Add(x);
  end;
end;
  Mit Zitat antworten Zitat