надо Определить ошибку в 32-битовой информационной последовательности двоичных чисел с кода Хемминга. - id1411240420230228 от lykuanenkoartem 28.02.2023 04:37

Question

Информатика: надо Определить ошибку в 32-битовой информационной последовательности двоичных чисел с кода Хемминга. Представьте схему построения кода Хемминга.1) 3-сбойный бит, 2) 5-сбойный бит, 3) 6-сбойный бит, 4) 7-сбойный бит, 5) 9-сбойный бит, 6) 10-сбойный бит, 7) 11-сбойный бит, 8) 12-сбойный бит, 9) 13-сбойный бит, 10) 14-сбойный бит, 11) 15-сбойный бит, 12) 17-сбойный бит, 13) 18-сбойный бит, 14) 19-сбойный бит, 15) 20-сбойный бит, 16) 21-сбойный бит, 17) 22-сбойный бит, 18) 23-сбойный бит, 19) 24-сбойный

lykuanenkoartem · Accepted Answer

Uses crt;
var i,j,k,n,max:integer; a:array[1..100] of integer;
procedure rmassr;
begin
    for i:=1 to n do
    a[i]:=random(10);
end;
procedure rmassy;
begin
    for i:=1 to n do
    readln(a[i]);
end;
procedure maxe;
begin
max:=a[1];
    for i:=2 to n do begin
        if a[i] > max then max:=a[i];
    end;
    writeln('max element = ', max);
end;
procedure wmass;
begin
    for i:=1 to n do
    write(a[i],' ');
    writeln;
end;
begin
clrscr;
randomize;
write('Длина массива'); readln(n);
write('1-random; 2- в ручную '); readln(k);
if k=1 then rmassr()
else rmassy();
wmass();
maxe();
readln
end.

MOGZ ответил