Arithmetischer- und geometrischer Mittelwert ,...... (?????)

King_of_Blunts · Hält's aus hier Beiträge: 4

Hallo allerseits,

Ich bin Schüler und arbeite im Informatikunterricht mit Borland Delphi 5! Jetzt haben wir diese Aufgabe bekommen:

Zu einer einzugebenden Liste beliebiger, aber positiver Zahlen ist die Summe, das Produkt, der arithmetische und der geometrische Mittelwert zu ermitteln.

Ich habe nicht die leiseste Ahnung wie ich das machen soll. :-(

Wenn da jemand mehr Ahnung hat wäre es sehr nett wenn er mir helfen könnte!!!

Mfg Jan K.

Gausi · Verfasst: So 20.04.08 12:49

Hallo und

in der Entwickler-Ecke,

bitte ändere den Titel des Topics, da er wenig über das eigentlich Thema verrät - Hilfe braucht hier fast jeder ;-)

.

Einfach oben bei Deinem ersten Beitrag auf user defined image

oder

klicken und den Titel ändern. Danke Dir!

Zum Thema: Wie sehen denn deine Ansätze aus?

_________________
We are, we were and will not be.

Jakob_Ullmann · Verfasst: So 20.04.08 13:59

Du gehst mit einer For-Schleife alle Einträge eines Memos durch:

markieren

Delphi-Quelltext

1:
2:
3:
4:

for i := 0 to Memo1.Lines.Count - 1 do
begin
  ...
end;

Davor initialisierst du eine Single-Variable mit 0. Die wird bei jedem Schleifendurchgang mit dem Item[i] addiert:

markieren

Delphi-Quelltext

1:	summe := summe + StrToFloat(Memo1.Lines[i]);

Arithmisches Mittel geht dann so:

markieren

Delphi-Quelltext

1:	arithmic_medium := summe / Memo1.Lines.Count;

Den Rest kannst du dir mit diesen Informationen selbst überlegen. :wink:

Sollte eigentlich kein Problem sein.

//EDIT: Für den geometrischen Mittelwert: Wurzel geht mit sqrt();

King_of_Blunts · Hält's aus hier Beiträge: 4

Vielen Dank!!

King_of_Blunts · Hält's aus hier Beiträge: 4

Ich bin leider kein begnadeter Informatiker und währe auf Grund dessen sehr dankbar wenn mir jemand die kommplette Unit schicken könnte! (vor allem weil ich sonst vllt sitzen bleibe!) :-(

jan@d-koehler.de

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Du hattest jetzt über eine Woche Zeit, Dich damit zu beschäftigen! Du hättest hundert Mal bei Problemen hier nachfragen können. Und jetzt kommst Du an, und willst, dass Dir jemand Deine Hausaufgaben macht? Das ist einfach eine Frechheit!

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

King_of_Blunts · Hält's aus hier Beiträge: 4

Hab ich ja aber es hat nicht funktioniert!!

DerDepp · Beiträge: 21

Nein, das ist keine Frechheit, es ist halt so !
Bitte in die Job-Börse verschieben und eine Zahl mit der Einheit [EUR] dazuschreiben.
Wir wollen doch nicht, dass er etwa eine Ehrenrunde wegen uns drehen muss ..

Mahlzeit DeDe

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

King_of_Blunts hat folgendes geschrieben:

Hab ich ja aber es hat nicht funktioniert!!

Dann zeig, was Du versucht hast und wo es hakt, dann helfen wir Dir. Dann lernst Du was dabei und hast im Endeffekt viel mehr davon.

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme