Einzelnen Beitrag anzeigen

Benutzerbild von Billa
Billa

Registriert seit: 11. Aug 2003
237 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