Variablen Algoritmus

[Corpsman]

Die Funktion ist also

Delphi-Quellcode:

(*
die Zahlen entsprechen der Variablennummer :

 1234
+5674
-----
56849
*)

type Tfrage = array [1..9] of Integer;

Function isValid(const a:Tfrage):Boolean;
var s1,s2,s3:string;
begin
  s1 := a[1]+a[2]+a[3]+a[4];
  s2 := a[5]+a[6]+a[7]+a[4];
  s3 := inttostr(strtoint(s1)+strtoint(s2));
  if length(s3) = 5 then 
    result := (s3[1] = a[5]) and (s3[2] = a[6]) and (s3[3] = a[8]) and (s3[4] = a[4]) and (s3[5] = a[9])
  else 
    result := false;
end;