Thema: FreePascal Vergleich von Zahlen

Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.041 Beiträge
 
Delphi XE2 Professional
 
#11

AW: Vergleich von Zahlen

  Alt 3. Mär 2020, 17:25
So?

Delphi-Quellcode:
type
   TValues=Array of Double;
FUNCTION CheckRegularity(Values:TValues):Boolean;
var I:Integer; Delta:Double;
begin
   Result:=True;
   if Length(Values)>2 then begin
      Delta:=Values[1]-Values[0];
      for I:=1 to Length(Values)-2 do
         if not SameValue(Values[I+1]-Values[I],Delta) then begin
            Result:=False;
            Exit;
         end;
   end;
end;
Nur nebenbei:
In #1 schreibst du
Zitat:
Diese Daten sind in dem Format "0.000000" also mit 6 Nachkommastellen und einem Dezimalpunkt anstelle des Komma. Die Anzahl der Positionen und deren Wert ist prinzipiell frei. Können theoretisch auch Nachkommastellen enthalten
Was denn nun?
Haben die Daten 6 Nachkommastellen oder können sie auch Nachkommastellen enthalten.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat