функция hor

[fize]

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

Приведите, что у Вас в конечном итоге получилось.

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

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

вот. мне без этой функции ну не как

[Arigato]

begin не в том месте, где ему положено быть.

[fize]

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

begin не в том месте, где ему положено быть.

procedure checksum(strInp : string; var rE, rO : byte);
var i, i1 : integer;
begin
rE := 0;
rO := 0;

i1 := length(strInp);
For i:=1 to i1 do
begin
if i mod 2 = 1 then

rE := rE XOR ord(strInp[i]);

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

тогда может так? но все равно неверный результат

[Arigato]

А от куда Вы знаете, верный или нет результат, есть какой-то эталон, на котором проверяете? Вроде, в этом варианте всё верно, rE получит сумму элементов с нечётными индексами, а rO - сумму всех элементов.

P.S. По причине блокировки ТС, набранной нарушениями по мелочи, будет время подумать. Когда придёте, ждём вопросов по существу, а не попытки ткнуть пальцем в небо