Programm Hilfe

[boxer123]

Ehrlich gesagt ich weiß es nicht man aus mir wird nix. Aber naja ihr habt mir geholfen wie ihr könnt dann kassier ich morgen meine 6

[DeddyH]

Dann können wir Dir wohl leider nicht weiterhelfen. Das komplette Programm wird hier wohl niemand posten, das wäre auch unfair Deinen Mitschülern gegenüber.

[boxer123]

Kommt schon macht mal eine Ausnahme und ausserdem muss ich es nur machen.

[boxer123]

Erzielt dieser Aufbau mein Ziel ?

Delphi-Quellcode:

var
  Form1: TForm1;
  TZiffern=array[1..4] of byte;
  TDirection = (drAsc (*aufsteigend*), drDesc (*absteigend*));

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
  end;
  for i:= 1 to 3 do
  for j:=i+1 to 4 do
  if result[1..4]>=zahl[j] then begin
  park:=result[1..4];zahl[i]:=zahl[j];zahl[j]:=park;
  end;
  Result := Ziffern[1] * 1000 + Ziffern[2] * 100 + Ziffern[3] * 10 + Ziffern[4];
  end;
  Sort(Ziffern, drDesc);
  Result := ZiffernToZahl(Ziffern);
  end;
  Sort(Ziffern, drAsc);
  Result := ZiffernToZahl(Ziffern);
  end;
  edit2.text:=inttostr(result[1..4]);
end;

end.

[TiGü]

Zitat von boxer123:

Erzielt dieser Aufbau mein Ziel ?

Nein! Ein ganz klares NEEEEEEEEEEEEEEEEEEIIIIIIIIIIIINNNNNNNNNNNNNNNNNNN NN!!!!!!!!!!!!!!!!!!!!!!!

Hast du überhaupt eine IDE / Programmierumgebung für Delphi / Object Pascal, um die Sachen auszuprobieren?

[boxer123]

ehrlich gesagt nein

[TiGü]

Dann klassischer Fall von Pech gehabt...nun aber egal, da ja es heute (angeblich) Noten dafür gab.
Die Aufgabe hattest du gewiss nicht erst seit gestern auf, nicht wahr?
Gewiss habt ihr vom Lehrer auch eine IDE gekriegt, irgend ein alten Scheiß wie Delphi 5 bis 7, oder?
Damit hätte man ja mal ein bisschen üben, nachvollziehen und verstehen können.

Boah, wie mich deine Einstellung ankotzt...

[Furtbichler]

Der Threadtitel "Programm Hilfe" deutet darauf hin, das hier ein Programm namens "Hilfe"... existiert oder wie auch immer. Mehr unter www.deppenleerzeichen.de