AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Summe, Mittelwert, min und max ermitteln...

Ein Thema von sqrt 9 · begonnen am 24. Mai 2008 · letzter Beitrag vom 24. Mai 2008
Antwort Antwort
Seite 3 von 5     123 45   
sqrt 9

Registriert seit: 24. Mai 2008
25 Beiträge
 
#21

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 14:16
ah ok!!!!!

wie muss ich jetzt i festlegen? jetzt zeigt er mir immer nur die letzte Zahl im Memo an

i:=zahl+???
  Mit Zitat antworten Zitat
Mikender
(Gast)

n/a Beiträge
 
#22

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 14:16
Zitat von sqrt 9:
[delphi]

procedure TForm1.Button1Click(Sender: TObject);
var summe, mitte, max, min:double;
i, zahl: integer;
begin

for i := 0 to Memo1.Lines.Count - 1 do
zahl:=strtoint (memo1.lines.text);
i:=???;
edit1.Text:=floattostr(i);

end;

falls ihr mich fragt was ich mir dabei gedacht hab....keine Ahnung
Mal ne Frage gibst du auch Komma-Zahlen ein dann müsstest du FloatToStr benutzen
und i ist Integer also nimm am besten intToStr (wegen der Form )
an i solltest du gar nichts ändern
und für die summe mach doch einfach Summe:=summe+ Memo1.Lines
für den Durchschnitt teile dies durch den Count+1

und min und max sind am leichtesten die kannst du dir selber überlegen
(TIPP: nimm ne if-Abfrage(nicht Schleife ))

[EDIT]Rechtschreibfehelr verbessert [/EDIT]
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#23

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 14:18
Zitat von Mikender:
für den Durchschnitt teile dies durch den Count+1
Durch Count teilen, nicht durch Count + 1, sonst mogelst Du noch ein Eintrag hinzu.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#24

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 14:19
Zitat von Mikender:
für den Durchschnitt teile dies durch den Count+1
Sicher?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
sqrt 9

Registriert seit: 24. Mai 2008
25 Beiträge
 
#25

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 14:20
OK DANKE vielmals!!!!!!

Ich glaube jetzt hab ichs!!!!!!!!!!

geht wirklich schnell bei euch!!! ;]
  Mit Zitat antworten Zitat
Mikender
(Gast)

n/a Beiträge
 
#26

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 14:21
Zitat von Die Muhkuh:
Zitat von Mikender:
für den Durchschnitt teile dies durch den Count+1
Durch Count teilen, nicht durch Count + 1, sonst mogelst Du noch ein Eintrag hinzu.
Ups da hab ich mich schwer verdacht
  Mit Zitat antworten Zitat
Benutzerbild von inherited
inherited

Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
 
Turbo Delphi für Win32
 
#27

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 14:32
Zitat von sqrt 9:
[delphi]

procedure TForm1.Button1Click(Sender: TObject);
var summe, mitte, max, min:double;
i, zahl: integer;
begin

for i := 0 to Memo1.Lines.Count - 1 do
zahl:=strtoint (memo1.lines.text);
i:=???;
edit1.Text:=floattostr(i);

end;

falls ihr mich fragt was ich mir dabei gedacht hab....keine Ahnung
Kurz noch zur Erklärung, weshalb du an I nichts ändern musst:
Die For-schleife setzt i auf 0 (for i := 0) und zählt dieses I dann bei jedem Durchlauf um eins hoch bis es "Memo1.Lines.Count -1" ist und führt für jedes i den Inhalt der Schleife aus
Nikolai Wyderka

SWIM SWIM HUNGRY!
Neuer Blog: hier!
  Mit Zitat antworten Zitat
sqrt 9

Registriert seit: 24. Mai 2008
25 Beiträge
 
#28

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 14:36
eigentlich habe ich mit i die summe gemeint...denkfehler!!!
  Mit Zitat antworten Zitat
sqrt 9

Registriert seit: 24. Mai 2008
25 Beiträge
 
#29

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 19:26
Hallo nochmals

ich habe es jtzt ungefähr 10 000 000 versucht aber irgendetws scheint nicht zu klappen!!!
[quote="Mikender"]
und für die summe mach doch einfach Summe:=summe+ Memo1.Lines
quote]

dieser Vorschlag ergibt folgende Fehlermeldung:
incompitable files...

tschuldigung wenn ich mich blöd anstelle!?!
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#30

Re: Summe, Mittelwert, min und max ermitteln...

  Alt 24. Mai 2008, 19:31
Also gut, für die Summe:
Delphi-Quellcode:
Summe := 0;
for i := 0 to Memo.Lines.Count - 1 do
  inc(Summe,StrToInt(Memo.Lines[i]));
Wobei Du eine Fehlerbehandlung selbst implementieren musst, das nehm ich Dir nicht auch noch ab
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz