Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
паскаль
Помогите пожалуйста решить задачку! Срочно нужно! Определить используя код Хемминга, есть ли в полученном сообщении одиночные ошибки (при кодировании сообщение разбивалось на слова длиной 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.

1 | Автор: lenaG | 2013-04-17, 12:11   |  Репутация: [ + 0 ]
что за 
Цитата (lenaG)
одиночные ошибки
?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-04-17, 18:30   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: