AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Wo höchstes Wachstum, wo geringstes?
Thema durchsuchen
Ansicht
Themen-Optionen

Wo höchstes Wachstum, wo geringstes?

Ein Thema von Matze · begonnen am 4. Sep 2003 · letzter Beitrag vom 4. Sep 2003
 
Benutzerbild von Billa
Billa

Registriert seit: 11. Aug 2003
238 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

Re: Wo höchstes Wachstum, wo geringstes?

  Alt 4. Sep 2003, 07:11
Neue Spalte dazu (z.B. Delta oder Wachstum o.ä) für weitere Auswetungen,


delta = 0

tabelle[0,3] = 0
for x := 1 to 11 do
Tabelle[x,3] := Tabelle[x,2] - Tabelle[x-1,2]

min = 9999999
max = 0


L = gewünschte Umtergrenze
H = gewünschte Obergrenze

L und H suchen (auch trivial)

for x := 0 to 11 do
begin
if Tabelle[x,1] = (gesuchte Untergrenze) then L := x
if Tabelle[x,1] = (gesuchte Obergrenze) then H := x
end

for x := L to H do
begin
if max < Tabelle[x,3] then max := Tabelle[x,3]
if min > Tabelle[x,3] then min := Tabelle[x,3]
end

Jahr Anzahl Delta

1980 200 0
1981 218 18
1982 220 2
1983 197 -23
1984 199 2
1985 207 8
1986 183 -24
1987 176 -7
1988 176 0
1989 191 15
1990 210 19
1991 204 -6

voila!
Gruß Billa

Nur weil ich paranoid bin, heißt das nicht, daß die da draussen nicht hinter mir her sind....
  Mit Zitat antworten Zitat
 


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 03:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz