Hallo black_,
vielleicht hättest Du mit dem Hintergrund zu Deinem Problem anfangen sollen! Wo kommen die Werte 43 und 40 zum Berechnen her?
Ich würde die Konstanten in ein Array legen:
Code:
const
wanz = 38; // Anz. der Werte
werte : array[0..wanz] of real = (0.5, 0.515, ....., 1.479);
function (a,b : integer) : integer;
var
r : real;
begin
r := a/b;
i := 0;
while (r < werte[i]) and (i < wanz) do inc(i);
Result := i;
end;
Voraussetzung, daß zur Bestimmung immer 2 Werte eingegeben werden müssen (Dein Beispiel 40 und 43).
mfg
eddy