Реферат: Кодовые комбинации на основе циклических кодов
--PAGE_BREAK--§ 5. Разработка схемы алгоритма<img width=«105» height=«31» src=«ref-1_817870251-851.coolpic» v:shapes="_x0000_s1083"><img width=«105» height=«31» src=«ref-1_817871102-833.coolpic» v:shapes="_x0000_s1084">
Ciclic code
<img width=«291» height=«328» src=«ref-1_817871935-1664.coolpic» v:shapes="_x0000_s1088 _x0000_s1089 _x0000_s1090 _x0000_s1085 _x0000_s1096 _x0000_s1095 _x0000_s1094 _x0000_s1093 _x0000_s1087 _x0000_s1086"> <img width=«2» height=«51» src=«ref-1_817873599-164.coolpic» v:shapes="_x0000_s1092 _x0000_s1091">
<img width=«100» height=«60» src=«ref-1_817873763-950.coolpic» v:shapes="_x0000_s1097 _x0000_s1098 _x0000_s1099"> нет
<img width=«69» height=«2» src=«ref-1_817874713-155.coolpic» v:shapes="_x0000_s1100"><img width=«2» height=«79» src=«ref-1_817874868-164.coolpic» v:shapes="_x0000_s1101"><img width=«70» height=«2» src=«ref-1_817867698-164.coolpic» v:shapes="_x0000_s1102">
да
<img width=«110» height=«42» src=«ref-1_817875196-428.coolpic» v:shapes="_x0000_s1106 _x0000_s1107 _x0000_s1108"> <img width=«110» height=«68» src=«ref-1_817875624-666.coolpic» v:shapes="_x0000_s1103 _x0000_s1104 _x0000_s1105 _x0000_s1109"> <img width=«110» height=«43» src=«ref-1_817876290-371.coolpic» v:shapes="_x0000_s1110 _x0000_s1111 _x0000_s1112">
<img width=«2» height=«214» src=«ref-1_817876661-173.coolpic» v:shapes="_x0000_s1113"><img width=«50» height=«3» src=«ref-1_817876834-163.coolpic» v:shapes="_x0000_s1114"><img width=«79» height=«3» src=«ref-1_817876997-166.coolpic» v:shapes="_x0000_s1115"><img width=«79» height=«3» src=«ref-1_817877163-167.coolpic» v:shapes="_x0000_s1116"><img width=«2» height=«51» src=«ref-1_817877330-164.coolpic» v:shapes="_x0000_s1117"><img width=«100» height=«60» src=«ref-1_817877494-872.coolpic» v:shapes="_x0000_s1118 _x0000_s1119 _x0000_s1120"><img width=«2» height=«50» src=«ref-1_817878366-159.coolpic» v:shapes="_x0000_s1121"><img width=«98» height=«2» src=«ref-1_817878525-157.coolpic» v:shapes="_x0000_s1122"><img width=«79» height=«2» src=«ref-1_817878682-163.coolpic» v:shapes="_x0000_s1123"><img width=«110» height=«42» src=«ref-1_817878845-384.coolpic» v:shapes="_x0000_s1124 _x0000_s1125 _x0000_s1126">
нет
да
Конец
§ 6. Разработка текста программы
Для представления информационного слова в памяти используется
массив. В состав программы входит основная программа и два модуля,
реализующие алгоритм кодирования и декодирования информационных слов и диалога с пользователем соответственно.
Program Cyclic_Code;
Uses
Crt,_CC31,_Serv;
Var
m,mm:Move_code;
p:Polinom;
r:Rest;
i,Mainflag,From,Error:integer;
Switch:byte;
Key:boolean;
begin
Repeat
Key:=true;
TextColor(11);
TextBackGround(7);
Clrscr;
SetWindow(24,10,45,14,2,' Главное меню ');
Switch:=GetMainMenuChoice;
case Switch of
1:begin
About;
Readln;
Key:=False;
end;
2: begin
TextColor(0);
ClrScr;
SetWindow(25,10,40,13,1,' Образовать');
Switch:=GetSubMenuChoice;
case Switch of
1:begin
TextBackGround(0);
TextColor(15);
ClrScr;
SetWindow(1,1,79,24,2,' Демонстрация');
TextColor(14);
GotoXY(2,2);
Init(m,p,r,MainFlag);
Write(‘Информационный полином ');
TextColor(2);
for i:=n downto 0 do
begin
if(i<n-n1+1)then Textcolor(9);
Write(m[i]);
end;
TextColor(14);
GotoXY(2,3);
Write('Образующий полином ');
TextColor(13);
for i:=n1 downto 0 do
Write(p[i]);
TextColor(14);
GotoXY(2,4);
Write('Сложение по модулю 2 (F(x)+P(x)): ');
FxPx(m);
TextColor(9);
for i:=n downto 0 do
begin
if(i<n1)then TextColor(2);
Write(m[i]);
end;
TextColor(14);
GotoXY(2,5);
Write('Остаток: ');
Divizion(m,r,p,Mainflag);
TextColor(11);
for i:=n1 downto Mainflag do
Write(r[i]);
GotoXY(2,6);
TextColor(14);
Write('Передаваемыйполином: ');
BildMoveCode(m,r,Mainflag);
TextColor(9);
for i:=n downto 0 do
begin
if(i<n1) then TextColor(11);
Write(m[i]);
end;
GotoXY(2,7);
TextColor(14);
Write('Произошлаошибка... ');
MakeError(m,Error);
TextColor(9);
for i:=n downto 0 do
begin
if(i=Error)then
TextColor(12)
else
TextColor(9);
write(m[i]);
end;
GotoXY(2,8);
TextColor(14);
Write('Ошибкаисправлена! ');
TextColor(9);
Correction(m,p,r);
for i:=n downto 0 do
begin
if(i=Error)then
TextColor(10)
else
TextColor(9);
write(m[i]);
end;
TextColor(14);
GotoXY(2,9);
Write('Исходныйполином: ');
Decoder(m);
TextColor(2);
for i:=n downto 0 do
begin
if(i<n-n1+1)then Textcolor(9);
Write(m[i]);
end;
Key:=false;
end;
2:begin
TextBackGround(0);
TextColor(15);
ClrScr;
SetWindow(1,1,79,24,2,'Демонстрация');
TextColor(14);
GotoXY(2,2);
Init(m,p,r,MainFlag);
Write('Информационный полином: ');
TextColor(2);
for i:=n downto 0 do
begin
if(i<n-n1+1)then Textcolor(9);
Write(m[i]);
end;
TextColor(14);
GotoXY(2,3);
Write('Образующий полином: ');
TextColor(13);
for i:=n1 downto 0 do
Write(p[i]);
TextColor(14);
GotoXY(2,4);
Write('Результатумножения: ');
BildMoveCodeMultiplication(m);
TextColor(9);
for i:=n downto 0 do
Write(m[i]);
GotoXY(2,5);
TextColor(14);
Write('Произошлаошибка ... ');
MakeError(m,Error);
TextColor(9);
for i:=n downto 0 do
begin
if(i=Error)then
TextColor(12)
else
TextColor(9);
write(m[i]);
end;
GotoXY(2,6);
TextColor(14);
Write('Ошибкаисправлена ! ');
TextColor(9);
Correction(m,p,r);
for i:=n downto 0 do
begin
if(i=Error)then
TextColor(10)
else
TextColor(9);
write(m[i]);
end;
Key:=false;
end;
end;
TextColor(14);
GotoXY(2,22);
Write('Нажмителюбуюклавишу...');
Readln;
end;
3:begin
ClrScr;
GotoXY(1,24);
TextColor(14);
Writeln('Работа программы завершена ...');
Readln;
TextBackGround(0);
TextColor(15);
ClrScr;
Key:=true;
end;
end;
Until Key;
end.
продолжение
--PAGE_BREAK--
еще рефераты
Еще работы по информатике