Einige Anfängerfragen

[Mexbuild]

Zitat von Mackhack:

Zitat von Mexbuild:

[...] Sie sagt uns was es so an Befehlen etc. gibt, aber nicht wie "man" es macht. [...]

Da hat sie ja nicht ganz unrecht euch das so machen zu lassen. Wenn man versucht sich selbst zu helfen bleibt viel mehr im Hirn gespeichert.

Bei uns auf der Uni ist es noch schlimmer. Da bekommst du rein gar nichts gesagt wie du die Hausarbeiten erledigen musst/sollst/darfst. Erst in der drauffolgenden Woche wird die Hausaufgabe besprochen und dann wird auch ueber das Material gesprochen ueber das du eine Woche zuvor zu Hause gegruebelt und geschrieben hast!

Obs immer der effektivste Weg ist mag dahingestellt sein und oftmals sehe ich auch keinen Nuzten dahinter, aber verschiedene Themen die mich selbst sehr interessieren lerne ich dabei sehr intensiv.

Das stimmt, da gebei ich dir recht. Aber wenn 95% der Klasse es nicht schaffen/verstehen/können können wir nichts dafür.

Also ich schreibe die einfache Methode unserer Lehrerin mit 3 Zahlen:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
zahl1:=strtoint(edit1.Text);
zahl2:=strtoint(edit2.Text);
zahl3:=strtoint(edit3.Text);
if
zahl1>zahl2
then begin
gross:=zahl1
end
else begin
gross:=zahl2
end;
if
zahl3>gross
then begin
gross:=zahl3
end;
if
zahl1<zahl2
then begin
klein:=zahl1
end
else begin
klein:=zahl2
end;
if
zahl3<klein
then begin
klein:=zahl3
end;
if (zahl1 > klein) and (zahl1<gross) then begin mittel:=zahl1
end;
if (zahl2 > klein) and (zahl2<gross) then begin mittel:=zahl2
end;
if (zahl3 > klein) and (zahl3<gross) then begin mittel:=zahl3
end;
label1.caption:='Die Reihenfolge lautet:'+inttostr(klein)+', '+inttostr(mittel)+', '+inttostr(gross)
end;

Zu beachten:
Das Formular hat: 3 Edit Fenster (Wo ich die 3 Zahlen eingebe, 1 Label (Anzeige der Reihenfolge), 2 Buttons (Ende und Neue Reihenfolge) sowie 1 "bkok" Button für die o.g Prozedur.

Zur Frage: Wie kann ich das mit 4 Zahlen machen? (Var: zahl1, zahl2, zahl3, zahl4, gross, klein, mittelgross, mittelklein)

[Relicted]

huhu!

ich hätte da noch eine short version für werte < 10...

also funktioniert bis 9,99 ...
ist zwar nicht unbedingt sicher aber recht einfach und wer springt schon über 10 meter ? ^^

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : TStringList;
  gross : real;
  // klein... : real;
  // mittel... : real;
  // what ever : real;
begin
  // Speicher allozieren
  sl := TStringList.Create;

  // Hinzufügen der werte...
  sl.Add( edit1.Text );
  sl.Add( edit2.Text );
  sl.Add( edit3.Text );
  // beliebig viele werte hinzufügen ( im format "x,y" )

  // Sortieren...
  sl.Sorted := true;

  // Ausgabe...
  //{ Debug: } ListBox1.Items.AddStrings( sl );
  // Hier kannst du nun drauf zugreifen:
  // Beachte: der kleinste wert ist "sl[0]" der größte je nach Anzahl der
  // einträge dann Anz-1 also bei 3 einträgen sl[2]
  Label1.Caption := 'Der kürzeste Hüpfer war: '+ sl[0]+' Meter';
  Label2.Caption := 'Der längste Hüpfer war: '+ sl[2]+' Meter';
  // und wenn du das auch noch seperat speichern willst dann:
  gross := StrToFloat( sl[2] );

  // Speicher freigeben
  sl.Free;
end;

[Phoenix]

Bi der ganzen Diskussion über das Für und Wider der Lernmethode ist doch glatt das wichtigste wieder hinten runter gefallen: Unser Kodex

Zwei Bitten an den Threadersteller:
1.) Themen hier sollten einen aussagekräftigen Titel bekommen, der zur Fragestellung passt. Also hier z.B. "Zahlen sortieren und Ausgeben?"
2.) Es gilt: Eine Frage -> Ein Thread. Neue Frage -> Neuer Thread.

Also wäre es superklasse, wenn Du die Überschrift der Frage nochmal kurz anpackst (Edit auf den ersten Beitrag, dann lässt sich auch der titel noch ändern) und dann wenn noch neue Fragen auftreten, die dann in einem eigenen Thread postest. Du kannst selbstverständlich gerne einen Link auf den Beitrag hier setzten um klar zu machen, dass es sich um eine Folgefrage handelt

[Mexbuild]

Aso, ich möchte hier nur nicht wegen zig neuer Thread für jede kleinigkeit negativ auffallen!

[Phoenix]

Hehe, das ist kein Problem. Du fällst eher auf, wenn Du einen Thread mit x Fragen zupackst