hilfe beim verkürzen meines codes

[himitsu]

Delphi-Quellcode:

if kmneu >= 1005 then
  tacho := kmneu + (kmneu / 100 * 10)
else if kmneu >= 995 then
  tacho := kmneu + (1 / 10 * 100)
else if kmneu >= 985 then
  tacho := kmneu + (1 / 10 * 99)
else if kmneu >= 975 then
  tacho := kmneu + (1 / 10 * 98)
else if kmneu >= 965 then
  tacho := kmneu + (1 / 10 * 97)
...
else if kmneu >= 35 then
  tacho := kmneu + (1 / 10 * 4)
else if kmneu >= 25 then
  tacho := kmneu + (1 / 10 * 3)
else if kmneu >= 15 then
  tacho := kmneu + (1 / 10 * 2)
else 
  tacho := kmneu;

Wenn es nur ein Befehl ist, dann kann man sich natürlich das Begin-End sparen.
Und dann gibt es natürlich noch das Case.

Delphi-Quellcode:

case kmneu of
  1005..10014{weiß ich nicht}: tacho := kmneu + (kmneu / 100 * 10);
  995..1004:  tacho := kmneu + (1 / 10 * 100);
  985..994:   tacho := kmneu + (1 / 10 * 99);
  975..984:   tacho := kmneu + (1 / 10 * 98);
  965..974:   tacho := kmneu + (1 / 10 * 97);
  ...
  35..44:     tacho := kmneu + (1 / 10 * 4);
  25..34:     tacho := kmneu + (1 / 10 * 3);
  15..24:     tacho := kmneu + (1 / 10 * 2);
  else        tacho := kmneu;
end;

Und wie dir auffällt, sind da fortlaufende Zahlen sind, welche man zusammenfassen kann.

Delphi-Quellcode:

case kmneu - 5 of
  1000..1009:
  990..999:
  980..989:
  970..979:
  960..969:
  ...
  30..39:
  20..29:
  10..19:
  else
end;

Delphi-Quellcode:

case (kmneu - 5) div 10 of
  100:
  99:
  98:
  97:
  96:
  ...
  3:
  2:
  1:
  else
end;

Und wenn man weiter sieht, dann kann man die mittlere Reihe auch zusammenfassen.
Ein Blick auf die vorrherrige Reihe gibt auh gleich die mathematische Lösung.

Delphi-Quellcode:

  100:   tacho := kmneu + (kmneu / 100 * 10);
  1..99: tacho := kmneu + (1 / 10 * ((kmneu - 5) div 10 + 1));
  else   tacho := kmneu;

Und nun lässt man einfach noch die äußeren Klammern weg, welche ja nicht nötig sind und stellt löst die Formeln auf.

Delphi-Quellcode:

  100:   tacho := kmneu + kmneu / 10;
  1..99: tacho := kmneu + ((kmneu - 5) div 10 + 1) / 10;
  else   tacho := kmneu;

Und das wäre selbst mit IF nichtmal so lang geworden, wenn man nur mal nach redundanten Regelmäßigkeiten sucht,
vorallem wenn die in der Ausgangsfrage alle schon vorgegeben waren.

Eventuell sollte man die Aufgabestellungen nochmal genau lesen und das machen, was darin steht.
ab 15 in 10er-Schritten = (kmneu - 15) div 10

Und meinst du nicht, daß 1000 km/h nicht ein bissl viel sind?
So viele IFs hättest du nicht gebraucht, vorallem da sie ja sowieso unnötig wären, wenn man es als Gleichung löst.

Und wo steht eigentlich was von der Formel bei 1005... kmh?