Programm Hilfe

[boxer123]

die frage ist was ich falsch mache

[DeddyH]

Woher soll ich das wissen? Aus den paar (immer noch unformatierten!) Zeilen Code kann ich das beim besten Willen nicht erkennen.

[boxer123]

ja soll ich ganzen code reinlegen ?

[DeddyH]

Der "arbeite"-Teil genügt völlig, aber dann mit nachvollziehbaren Einrückungen, sonst lese ich ihn nicht.

[boxer123]

Wenn ich das programm so laufen lasse kommt immer 2 raus

Delphi-Quellcode:

zahltext:= edit1.text ;
for i:= 1 to 4 do
 begin
  a[ i ] :=copy (zahltext,i,1) ;
  b[ i ] :=copy (zahltext,i,1) ;
 end;
 zahl3 := 1;
 repeat
  doppelt := true;
  for i:= 1 to 3 do
   for j:=i+1 to 4 do
    if a[ i ] <= a[ j ] then
     begin
      park:=a[ i ] ;
       a[ i ] := a[ j ] ;
       a[ j ] := park ;
      end;
    zahl3 := zahl3 + 1;
  until doppelt;
  zahl3 := 1;
  repeat
    doppelt := true;
    for i:= 1 to 3 do
      for j:= i+1 to 4 do
        if b[ i ] >= b[ j ] then
          begin
            park := b[ i ] ;
            b[ i ] := b[ j ] ;
            b[ j ] := park ;
          end;
      zahl3:= zahl3 + 1;
    until doppelt;
zahltexteins := ' ' ;
zahltextzwei := ' ' ;
for i:=1 to 4 do
 begin
  zahltexteins:= zahltexteins + a[ i ] ;
  zahltextzwei:= zahltextzwei + b[ i ] ;
 end;
zahl1:= strtoint (zahltexteins) ;
zahl2:= strtoint (zahltextzwei) ;
differenz:= zahl1 - zahl2 ;
edit2.text:= IntToStr (zahl3);
end;;
end;

EDITTTTTT

[DeddyH]

*OMG* Du solltest zuerst sortieren und dann erst in einer Schleife die jeweilige Differenz ermitteln. Außerdem solltest Du einmal nachschauen, welche Bedeutung Du Zahl3 zugedacht hast. Welche Zahl musst Du also in der Abbruchbedingung auswerten? Bestimmt nicht Zahl3. Und bgzl. der Formatierung: schon besser als vorher, trotzdem schau Dir doch mal an, wie die anderen das machen.

[edit] Sry, stimmt so nicht ganz, in der Schleife muss schon neu sortiert werden, Denkfehler meinerseits. Aber Du sortierst den falschen String, nämlich immer wieder denselben. [/edit]

[DeddyH]

So, ich habe Deinen Code minimal angepasst, bei mir funktioniert es jetzt.