Delphi-Quellcode:
var
n : integer;
begin
n := floor(kmneu + 5.0);
// falls kmneu = 25.0 dann wäre n = 30
n := n div 10;
tacho := kmneu + (0.1 * n);
Da fehlt noch ne Kleinigkeit und zwar die Prüfung ob km >= 1005 ist und die abweichende Berechnung aber das kriegst du sicher selbst hin.