Registriert seit: 11. Aug 2003
237 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Wo höchstes Wachstum, wo geringstes?
4. Sep 2003, 08: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....
|