Wie kann ich ein Durschnitt bilden ohne vollst. Zahlen

[steve-allround]

Hallo
Habe 10 Edit Felder und ein Label, per Button soll der Durschnitt von den jeweils eingegeben Zahlen berechnet werden. !! Es sind aber nicht alle Felder ausgefüllt. Also mal von 3 Zahlen, oder 5 Zalen den Durschnitt.

Könntet Ihr mit Weiterhelfen..

!!! Bitte mit volldtändigen Codes.......!!!!

Dankeeeeeeeeeeeeeeeeeeee!!!!!!!!!!!!

[eddy]

Hallo steve-allround,

kein Code nur Logik:

zähle die Werte die <> Null sind, summiere die Werte die <> Null sind und dividiere noch ein wenig

Code dazu sollte nicht schwer sein

mfg
eddy

[sakura]

Zitat:

Zitat von steve-allround

!!! Bitte mit volldtändigen Codes.......!!!!

Nö, aber den Ansatz. Solche Bitten solltest Du hier auch nicht stellen, da Du i.A. auf Ablehnung triffst ausser Du legst 150 Euro dazu ;-)

Delphi-Quellcode:

var
  Count: Integer;
  Average, Sum: Real;
begin
  Sum := 0;
  Count := 0;
  if Edit1.Text <> '' then
  begin
    Sum := Sum + StrToFloat(Edit1.Text);
    Inc(Count);
  end;
  // usw. usf.


  if Count > 0 then
  begin
    Average := Sum / Count;
    ShowMessage(FloatToStr(Average));
  end;

...:cat:...

[steve-allround]

Sorry, bin totaler anfänger... sehe in dieser Logik leider noch nciht durch... möchte aber gern den Code erstellen... Dann bekommen ich die Logik.

[sakura]

Zitat:

Zitat von steve-allround

Sorry, bin totaler anfänger...

Mag sein, aber Du bist auch 19 Jahre alt, da besitzt man etwas, was im Allgemeinen unter dem Begriff Allgemeinwissen zusammenfasst ;-)

...:cat:...

[Mirilin]

:hi:

Schau Dir Sakuras code genau an, der ist eigentlich sehr gut verständlich (die Variablen-Namen machen Sinn ... ) .

Link : Delphi-Grundlagen


mfg Tobias

[steve-allround]

Sorry, ich bin 16... Ich habe nur 19 Beiträge....
Da habe ich noch nciht so viel Allgemeinwissen

[sakura]

Zitat:

Zitat von steve-allround

Sorry, ich bin 16... Ich habe nur 19 Beiträge....
Da habe ich noch nciht so viel Allgemeinwissen

*rofl* Und ich bin zu blöd zwei Zahlen auseinander zu halten :oops: Na ja, mit 16 ;-) Jetzt schau Dir mal meinen Code an und verrate mir, was Du daran nicht verstehst :gruebel:

...:cat:...

[MrSpock]

Hallo steve-allround,

was genau verstehst du an der beschriebenen Logik nicht? Wenn wir wissen, wo genau dein Problem liegt, können wir sicherlich weiterhelfen.

Ooops, da war sakura schneller...

[Mirilin]

:hi:

Fehlt es Dir am Wissen wie man den Durchschnitt berechnet?
Wenn ja dann :
Durchschnitt = (Summe der Elemente) / (Anzahl der Elemente).


mfg Tobias

[steve-allround]

Ich hänge jetzt an einer Stelle an der Formel.... Ich habe sie schon verstanden...

und zwar...

was muss ich für jeden Edit machen?
das

Delphi-Quellcode:

begin
  Sum := 0;
  Count := 0;
  if Edit2.Text <> '' then
  begin
    Sum := Sum + StrToFloat(Edit2.Text);
    Inc(Count);
  end;

oder das????

Delphi-Quellcode:

if Edit2.Text <> '' then
  begin
    Sum := Sum + StrToFloat(Edit2.Text);
    Inc(Count);
  end;

[steve-allround]

ich habs.... nur noch eine Frage.....

wie kann ich jetzt das Ergebnis in ein Label anzeigen lassen, statt in ein Dialog???

[sakura]

An der Stelle würde ich sagen - teste mal, wenn Dir die Logik da zu schwer ist :shock:

...:cat:...

[steve-allround]

der Link zum Frage beantworten ist nicht da....

[sakura]

Zitat:

Zitat von steve-allround

der Link zum Frage beantworten ist nicht da....

Sorry - was meinen Sie ?

...:cat:...

[GetCool]

Hab sowas im Info-Unterricht auch mal gemacht:

Delphi-Quellcode:

for i:=1 to 10 do // 10 Durchgänge, für jedes Feld einen
begin
  zahl[i]:=0; // Variablen auf 0
  if (TEdit(FindComponent('Edit'+inttostr(i))).text)<>'' then // Wenn das Feld leer ist überspringen
  try // bei Fehler wird in bei except weitergemacht, verhindert Buchstaben
    zahl[i]:=strtoint(Trim(TEdit(FindComponent('Edit'+inttostr(i))).text));
    // Such nach dem Edit-Feld und lese es dann ins Array ein
    inc(zwi,zahl[i]); inc(teiler) // Für die Rechnung zusammenzählen und Teiler erhöhen
  except inc(fehler) end; // Wenn Fehler, dann die Fehleranzahl erhöhen
end;

durchschnitt.text:=floattostr(zwi/teiler);

[steve-allround]

Ich kann dieses Forum nicht als Beantwortet makieren.....

[Robert_G]

Moin.
Der Thread steht ja auch nicht als offene Frage drin.