Hallo
Ich komme beim Streichholzspiel grad nicht weiter.
Ich versuch Integerzahlen in binäre umzuwandeln und dann die Quersumme zu bilden
z.B
111
011
111
Und dann soll der Computer soviele Streichhölzer abziehen ,dass die Quersumme
eine gerade Zahl ergibt wie ,enn er z.B 3 aus Reihe 3 nimmt.
111
011
100
=222
Nur leider bekomm ich ein EConvertError
Delphi-Quellcode:
unit ExtendQuersumme;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure quersumme(x:
array of integer);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type feld=array[1..9]
of integer;
var y:feld ;
y2:feld ;
y3:feld ;
qsumme:feld;
type feld2=array [1..3]
of integer;
var h:feld2;
d:feld2;
var
Form1: TForm1;
implementation
{$R *.DFM}
function IntToBin(i: int64):
string;
var x: integer;
begin
if i > 0
then begin
result := '
';
x := 1;
while i >= x
do begin
result := inttostr((i
and x)
div x) + result;
x := x
shl 1;
end;
end else result := '
0';
end;
procedure tform1.quersumme(x:
array of integer);
var s,i,l:integer ;
begin
s:=1;
d[1]:=strtoint(inttobin(x[1])) ;
l:=Length(inttostr(d[1]));
For i:=1
to l
do begin
y[i]:=d[1]
div s
mod 10;
s:=s*10;
end;
s:=1;
d[2]:=strtoint(inttobin(x[2])) ;
l:=Length(inttostr(d[2]));
For i:=1
to l
do begin
y2[i]:=d[2]
div s
mod 10;
s:=s*10;
end;
s:=1;
d[3]:=strtoint(inttobin(x[3])) ;
//[b]Hier zeigt er mir den Error an[/b]
l:=Length(inttostr(d[3]));
For i:=1
to l
do begin
y3[i]:=d[3]
div s
mod 10;
s:=s*10;
end;
l:=Length(inttostr(y[1]));
For i:=1
to l
do begin
qsumme[i]:=y[i]+y2[i]+y3[i];
listbox1.items.add(inttostr(qsumme[i]));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
h[1]:=3;
h[2]:=7;
h[3]:=4;
quersumme(h);
end;
end.