Zitat von
DeddyH:
Eine Möglichkeit:
Delphi-Quellcode:
function DTS(x:real): real; //wieso ist der Parameter real?
var
i: integer;
begin
Result := -1; //initialer Rückgabewert
for i := 0 to 10 do begin
if x = i then
result := (i / 2);
end
end;
Wie wärs stattdessen einfach so:
Delphi-Quellcode:
function DTS(x:real): real;
begin
Result := -1;
if (x >= 0) and (x <= 10) and (Frac(x) = 0) then //Wenn x zwischen 0 und 10, und nach dem Komma nix steht
Result := x / 2;
end;