50 «помехозащитное кодирование» данные …, представленные кодом хэмминга. при передаче изменился один разряд данных. получен был следующий ошибочный код 1 0 0 1 0 1 0 0 1 0 1. определите, в каком разряде возникла ошибка передачи, исправьте ошибку и запишите исправленный код без контрольных разрядов. решить по следующему примеру: «помехозащитное кодирование» данные …, представленные кодом хэмминга. при передаче изменился один разряд данных. получен был следующий ошибочный код 1 0 0 1 0 1 0 0 1 0 1. определите, в каком разряде возникла ошибка передачи, исправьте ошибку и запишите исправленный код без контрольных разрядов. формируется корректирующее число 4 разряд (8 9 10 11) – 1001=0 3 разряд (4 5 6 7) – 0010=1 2 разряд (2 3 6 7 10 11) – 011001 = 1 1 разряд (1 3 5 7 9 11) – 110001 = 1 ошибка обнаружена в разряде 0111 (7) 1 0 0 1 0 1 0 0 1 0 1 в результате получим исправленный код 1 0 0 1 1 1 0 0 1 0 1 переведите его в десятичную систему счисления. 10011012 = 1*26 + 0*25 + 0*24 + 1*23 + 1*22 + 0*21 + 1*20 = 64+8+4+1=7710

Переменные — контейнеры для хранения изменяемых данных. Без них не обходится практически ни одна программа. Для переменную можно сравнить с номерком в гардеробе — вы сдаете в "гардероб" какие-то данные, в ответ вам выдается номерок. Когда вам опять потребовались эти данные, вы "предъявляете номерок" и получаете их. Пример работы с переменными в VBA может выглядеть так:

Dim nMyAge As Integer

nMyAge = nMyAge + 10

MsgBox nMyAge

Перед работой с переменной настоятельно рекомендуется ее объявить. Объявление переменной в нашем примере выглядит так:

Dim nMyAge As Integer

Как расшифровать эту строку:

Dim — это область видимости переменной. В VBA предусмотрено 4 ключевых слова для определения области видимости переменных:

1)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[ i]:8); writeln;

for i:=n downto 1 do write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

2)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[ i]); readln;

for i:=1 to n do if a[i]<0 then write(i:2,a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

3)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do if not odd(i) then write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

4)

var i,n,s:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[i]:8); writeln;

s:=0; for i:=1 to n do s:=s+a[i]; writeln('Sum=',s); ;

writeln('Для выхода нажмите Enter'); readln

end.

Объяснение: