Memo sem logica. Usando Xor

Delphi

30/11/2004

procedure TForm1.FormCreate(Sender: TObject);
begin
a[1]:=0;a[2]:=1;a[3]:=2;a[4]:=3;a[5]:=4;
a[6]:=5;a[7]:=6;a[8]:=7;a[9]:=8;a[10]:=9;a[11]:=10;
b[1]:=0;b[2]:=1;b[3]:=2;b[4]:=3;b[5]:=4;
b[6]:=5;b[7]:=6;b[8]:=7;b[9]:=8;b[10]:=9;b[11]:=10;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,r :integer;
begin
 for x:=1 to 11 do
    begin
      memo1.Lines.Add(inttostr(a[x]));
    end;
    for y:=11 downto 1 do
      begin
       memo2.Lines.Add(inttostr(b[y]));
      end;
    for z:=1 to 11 do
      begin
       c[z]:=a[x] xor b[y];
      end;
    for r:=1 to 11 do
    begin
      memo3.Lines.Add(inttostr(c[z]));
    end;
 end;


Foi feito este codigo com a instrução de multiplicar todos os valores das arrays a e b.
para colocar o resultado em c[z]. utilizando o codigo XOR.
o resultado está dando tudo -1.
Onde estária o erro.
as arrays são do tipo inteiras...
grato respondere-me. :wink:


Gollum

Gollum

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

30/11/2004

Gollum,
Evite postar tópicos duplicados!


GOSTEI 0
Otto

Otto

30/11/2004

[color=red:6cc2668cb4]Duplicidade.[/color:6cc2668cb4]

[b:6cc2668cb4]Bloqueado![/b:6cc2668cb4] [img:6cc2668cb4]http://forums.offtopic.com/images/smilies/lockd.gif[/img:6cc2668cb4]

:arrow: http://delphiforum.icft.com.br/forum/viewtopic.php?t=55571
:idea: [color=blue:6cc2668cb4]Evite postar tópicos duplicados.[/color:6cc2668cb4]
:idea: [color=blue:6cc2668cb4][url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=16976]Saiba como obter resposta rápida..[/url][/color:6cc2668cb4]
:idea: [color=blue:6cc2668cb4]Leia sempre [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta.[/url][/color:6cc2668cb4]
:idea: [color=blue:6cc2668cb4]Use sempre o Link [url=http://delphiforum.icft.com.br/forum/search.php][img:6cc2668cb4]http://delphiforum.icft.com.br/forum/templates/subSilver/images/icon_mini_search.gif[/img:6cc2668cb4] Pesquisar[/url] no topo da Página.[/color:6cc2668cb4]


GOSTEI 0
POSTAR