Das Ganze mod 2 zu rechnen ist eine gute Idee - nur komischerweise bekomme ich auch den Wert "-1" angezeigt und generell scheint mein Gleichungssystem überhaupt nicht zu funktionieren. Die Integer-Werte meines GLS sind auch sehr ungewöhnlich, mal 6, mal 21, mal -45600 oder sowas
Also, ich möchte aus dem Array arr je neun Elemente aufsummieren und den Wert 1 erhalten, also quasi
arr[1,1,1]+...+arr[1,1,9]=1
haben.
Delphi-Quellcode:
var arr: array [1..9, 1..9, 1..9] of integer; a:integer;
a:=(arr[1,1,1]+arr[1,1,2]+arr[1,1,3]+arr[1,1,4]) mod 2;
a:=1;
Label2.Caption:=IntToStr(arr[1,1,1] mod 2);
Label3.Caption:=IntToStr(arr[1,1,2] mod 2);
Label4.Caption:=IntToStr(arr[1,1,3] mod 2);
Label5.Caption:=IntToStr(arr[1,1,4] mod 2);
Das GLS muss so wohl komplett falsch konstruiert sein, oder?