в программе по нахождению избыточности (код Хеминга) иногда выводится не тот результат

[Алексей_2012]

Дело в том что логические команды мы никогда не использовали, по крайней мере пока, и задание дал учитель по компьютерным сетям, а не по делфи, так что если можете растолкуйте что к чему

[Алексей_2012]

операцию XOR применить не знаю как, пришлось разрабатывать свой алгоритм, заполняем массив строк, потом последовательно выводим по две строки из массива, суммируем их и выводим в ричедит

var
s,l,m,k:string;
i,j:Integer;


procedure TForm1.Button1Click(Sender: TObject);
var
    a:array[1..255] of string;
    s1,k1,i1,ki:integer;
begin
  Edit1.Text:=Trim(Edit1.text);
  Edit2.Text:=Trim(Edit2.text);
  RichEdit1.clear;
 if RadioButton1.Checked then
 begin
 if edit1.text='' then exit;
 j:=0;
 ki:=0;
 RichEdit1.Lines.Add('Âûïèñûâàåì íîìåðà ïîçèöèé 1 ñ êîíöà â âàøåì ÷èñëå è ïåðåâîäèì â äâîè÷íûé êîä:');
 RichEdit1.lines.Add('----------------------------------------------------------');
 for i:=length(Edit1.text) downto 1 do
 begin
  if Edit1.Text[i]='1' then
  begin
  a[j]:=bin(length(Edit1.text)-i+1);
  RichEdit1.Lines.Add(IntToStr(length(Edit1.text)-i+1)+'='+bin(length(Edit1.text)-i+1));
  Inc(j);
  end;
  end;
  i:=j;
 RichEdit1.lines.Add('----------------------------------------------------------');
 for j:=0 to i do
 begin
 s:=a[j];
 k:=a[j+1];
 s1:=Length(s);
 k1:=Length(k);
 if (s1=k1) or (s1>k1) then
 begin
  for i1:=s1 downto 1 do
  begin
  if (s[Length(s)-ki]='0')  and (k[Length(k)-ki]='1') or (s[Length(s)-ki]='1')  and (k[Length(k)-ki]='0') then
  m:='1'
  else
  if (s[Length(s)-ki]='0')  and (k[Length(k)-ki]='0') then
  m:='0'
  else
  if (s[Length(s)-ki]='1')  and (k[Length(k)-ki]='1') then m:='1';
  l:=l+m;
  inc (ki);
  end;
 end
 else
 begin
  for i1:=k1 downto 1 do
  begin
  if (s[Length(s)-ki]='0')  and (k[Length(k)-ki]='1') or (s[Length(s)-ki]='1')  and (k[Length(k)-ki]='0') then
  m:='1'
  else
  if (s[Length(s)-k1]='0')  and (k[Length(k)-k1]='0') then
  m:='0'
  else
  if (s[Length(s)-k1]='1')  and (k[Length(k)-k1]='1') then m:='1';
  l:=l+m;
  inc (ki);
  end;
 end;
 end;
 RichEdit1.Lines.Add(l);
 Edit1.SetFocus;
 end

[Алексей_2012]

Ну дак что, будут еще советы?

[Аватар]

Так попробуйте, отрицание сами сделайте

procedure TForm1.Button1Click(Sender: TObject);
var k: Integer;
begin
  Edit1.Text:=Trim(Edit1.text);
  if edit1.text='' then exit;
  RichEdit1.clear;
  if RadioButton1.Checked then begin
    k:=0;
    for i:=length(Edit1.text) downto 1 do  if Edit1.Text[i]='1' then begin
      RichEdit1.Lines.Add(IntToStr(length(Edit1.text)-i+1)+'='+bin(length(Edit1.text)-i+1));
      k:=k xor (length(Edit1.text)-i+1);
    end;
    RichEdit1.Lines.Add('');
    RichEdit1.Lines.Add(IntToBin(k,16);
    Edit1.SetFocus;
  end;
  Button2.Visible:=True;
end;

[Алексей_2012]

А что если попробовать массивом записей?
там где пустые begin...end должна быть процедура сложения по модулю два, еще нужно учесть что первое слагаемое может быть 10101 допустим, а второе 101, а в итоге должно получится так 10000

procedure TForm1.Button1Click(Sender: TObject);
type
  zap=record
  nomber:string[100];
  dvoich:string[255];
  end;
var  i,j:integer;
     a:array[1..255] of zap;
     s,l:string;
begin
RichEdit1.Clear;
Edit1.Text:=Trim(Edit1.text);
 j:=0;
 for i:=Length(Edit1.Text) downto 1 do
   if Edit1.Text[i]='1' then
   begin
   a[j].nomber:=IntToStr(Length(Edit1.Text)-i+1);
   a[j].dvoich:=bin(Length(Edit1.Text)-i+1);
   RichEdit1.Lines.Add(a[j].nomber+'='+a[j].dvoich);
   if j<>i then Inc(j);
   end;
 for i:=0 to j do
 begin



 
 end;
end;

Аватар! спасибо вам за помощь, смотрю ваш код

З.Ы. Сделал без Tradiobutton, потому что пока эта процедура не готова-другие бессмысленные

[Алексей_2012]

аватар! спасибо вам огромное, все работает, но я пытаюсь убрать нули, перед суммой которые, не получается(( и еще, зачем отрицание? Итак все хорошо работает

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k: Integer;
begin
  Edit1.Text:=Trim(Edit1.text);
  if edit1.text='' then exit;
  RichEdit1.clear;
    k:=0;
    j:=Length(Edit1.text);
    for i:=length(Edit1.text) downto 1 do
    if Edit1.Text[i]='1' then
    begin
      RichEdit1.Lines.Add(IntToStr(length(Edit1.text)-i+1)+'='+bin(length(Edit1.text)-i+1));
      k:=k xor (length(Edit1.text)-i+1);
      j:=Length(Edit1.text)-i+1;
    end;
    RichEdit1.Lines.Add('-----------------------------');
    RichEdit1.Lines.Add(IntToBin(k,j));
    Edit1.SetFocus;
end;

Ввел 10101, результат


1=1
3=11
5=101
-----------------------------
00111

должно быть 111, а получается 00111

[Алексей_2012]

Вот как я решил эту проблему, но код больше получился+если в результате одни нули, то выводится их бесконечное число

procedure TForm1.Button1Click(Sender: TObject);
var  i,k,j:integer;
s:string;
begin
  Edit1.Text:=Trim(Edit1.text);
  if edit1.text='' then exit;
  RichEdit1.clear;
    k:=0;
    for i:=length(Edit1.text) downto 1 do
    if Edit1.Text[i]='1' then
    begin
      RichEdit1.Lines.Add(IntToStr(length(Edit1.text)-i+1)+'='+bin(length(Edit1.text)-i+1));
      k:=k xor (length(Edit1.text)-i+1);
      j:= length(Edit1.text)-i+1;
    end;
    RichEdit1.Lines.Add('-----------------------------');
    s:=IntToBin(k,j);
    for i:=1 to Length(s) do
    if s[i]='1' then s:=Copy(s,i,Length(s));
    RichEdit1.Lines.Add(s);
    Edit1.SetFocus;
end;

[Аватар]

    for i:=1 to Length(s) do
    if s[i]='1' then s:=Copy(s,i,Length(s));

Не правильно (и вообще может на ошибку вывалиться), для '0101' получится '1' вместо '101'. Тогда уж так

i:=Pos('1',s);
if i>0 then s:=Copy(s,i,Length(s)) else s:='';

[Алексей_2012]

Ну я сделал по другому, но программа неверно работает, для начала мой код

procedure TForm1.Button1Click(Sender: TObject);
var  i,k,j:integer;
s:string;
begin
  Edit1.Text:=Trim(Edit1.text);
  if edit1.text='' then exit;
  RichEdit1.clear;
    k:=0;
    for i:=length(Edit1.text) downto 1 do
    if Edit1.Text[i]='1' then
    begin
      RichEdit1.Lines.Add(IntToStr(length(Edit1.text)-i+1)+'='+bin(length(Edit1.text)-i+1));
      k:=k xor length(Edit1.text)-i+1;
    end;
    RichEdit1.Lines.Add('-----------------------------');
    s:=IntToBin(k,length(bin(length(Edit1.text)-i+1)));
    RichEdit1.Lines.Add(s);
    Edit1.Se

А ошибка вот в чем, ввел 101010, в ричедит появились такие символы: 110,100,10, должно получится 000, а получилось 100, должно складываться так: 110+100+010=000 (Решается по такому правилу: 0+1=1, 1+1=0, 0+0=0)

[Аватар]

k:=k xor (length(Edit1.text)-i+1);