Помогите пожалуйста решить задачку! Срочно нужно! Определить используя код Хемминга, есть ли в полученном сообщении одиночные ошибки (при кодировании сообщение разбивалось на слова длиной 4).Добавлено (17.04.13, 12:11)
---------------------------------------------
Помогите исправить ошибку
Program kod;
uses crt;
var
sss,ss:string;
a:array[0..8] of integer;
slovo,s,s1,s2,s3:integer;
procedure dva;
begin
s1:=(a[1]+a[3]+a[5]+a[7]) mod 2;
s2:=(a[2]+a[3]+a[6]+a[7]) mod 2;
s3:=(a[4]+a[5]+a[6]+a[7]) mod 2;
if (s1=1) or (s2=1) or (s3=1) then
begin
s:=s1+s2*2+s3*4;
writeln('oshibka dopushena v pozitcii nomer ',s)
end
else
writeln('oshibok net');
end;
BEGIN
slovo:=1;
writeln('vvedite posledovatelnost is 0 i 1');
readln(ss);
while length(ss)>=7 do
begin
sss:=copy(ss,1,7);
delete(ss,1,7);
writeln('dlya ',slovo,'slova:',sss);
slovo:=slovo+1;
dva;
readln;
end;
end.
