функция hor

[fize]

помогите. имеется строка 1E 00 0C D1 00 07 00 01 00 03 00 01 60 00 72 D5 (байты). последние 2 байта это чексумма (72 D5). вычисляется она так -
horятся сначало все нечетные байты- получается 72. затем все (и четные и нечетные) и получается D5. помогите написать процедуру

[Arigato]

Не hor, а xor.
Где Ваши наработки?

[fize]

Сообщение от Arigato

Не hor, а xor.
Где Ваши наработки?

ошибся. вот они http://programmersforum.ru/showthread.php?t=80700

[Arigato]

Ну так и что конкретно не получается?

[fize]

Сообщение от Arigato

Ну так и что конкретно не получается?

неверно считает

[Arigato]

Приведите здесь Вашу функцию подсчёта.

[fize]

Сообщение от Arigato

Приведите здесь Вашу функцию подсчёта.

procedure checksum(strInp : string; var rE, rO : byte);
var i, i1 : longint;
begin
i1 := length(strInp);
For i:=1 to i1 do
if i mod 2 = 1 then
rE := rE XOR ord(strInp[i])
else
rO := rO XOR ord(strInp[i])
end;

[Arigato]

1. Инициализируем переменные: rE, rO - присвоить нули (или они вне процедуры инициализированы?)
2. В rO ксорятся только чётные, а по условию у Вас: "затем все (и четные и нечетные)". Т.е. его надо ксорить вне зависимости от проверяемого условия, просто после if поставьте, без else

[fize]

procedure checksum(strInp : string; var rE, rO : byte);
var i, i1 : integer;
begin
i1 := length(strInp);
For i:=0 to i1 do
if i mod 2 = 1 then
rE := rE XOR ord(strInp[i]);

rO := rO XOR ord(strInp[i])
end;

так?

1. Инициализируем переменные: rE, rO - присвоить нули (или они вне процедуры инициализированы?)

нет. как им присвоить нули?

[Arigato]

Сообщение от fize

так?

Нет, не хватает составного оператора.

Сообщение от fize

как им присвоить нули?

rE := 0;
rO := 0;