close

Вход

Забыли?

вход по аккаунту

?

Практическая работа №4

код для вставкиСкачать
Практическая работа №4
Коды, обнаруживающие и исправляющие ошибки
Цель
работы
:
Составить
алгоритм,
блок
-
схему
и
программу,
позволяющую
кодировать
числовую
последовательность
кодом
Хэмминга,
а
также
добавлять
и
корректировать
ошибки
.
1. Создаем двумерный символьный массив kod
(10,2)
Program Hemming;
type s=array[1..10,1..2] of string;
var
kod:s
, k,m,n,i,j:integer
; s1, kodn:string
;
begin
for i:=1 to 10 do
for j:=1 to 2 do
readln
(
kod
[i, j]);
for i:=1 to 10 do
begin
for j:=1 to 2 do
write (
kod
*i, j+, ‘ ‘);
writeln
;
end;
2.
Вводим целое натуральное число n
и кодируем его по таблице Хемминга (1 вариант)
read
(n)
;
while
n<
0
do
begin
m
:
=
m
mod
10
;
write
(m)
;
kodn
:
=
kodn
+
kod
(m+
1
,
2
)
;
n
:
=
n
div
10
;
end
;
writeln
(
kodn
)
;
end
.
3
.
Вводим символьную последовательность n
и кодируем её по таблице Хемминга (2 вариант)
read (
n
);
k:=length(n);
for m:=1 to k do
begin
s1
:= copy(n, m, 1);
for i := 1 to 10 do
for j := 1 to 2 do
if s1=
kod
(i, j) then kodn
:= kodn
+ kod
(i, j+1)
end;
writeln
( kodn
);
end.
4
. Добавляем помехи
Функция
Помехи (
сим:
kodn
): сим
цел:
k, m;
сим:
b;
{
Делать от m
:=1 до 3
{k:= 1+ int
(rand(34,3));
b:= часть (
kodn
,
k
, 1)
Если (
b
=1) то {b
=0
}
иначе {b
=
1}
znach
:= часть(
kodn
,1,
k
-
1)+
b
+часть(
kodn
, k
+1, 35
-
k
)
;}}
Автор
zukovaivik
Документ
Категория
Презентации
Просмотров
69
Размер файла
117 Кб
Теги
практическая, работа
1/--страниц
Пожаловаться на содержимое документа