End;
3 : Begin
Case _Exit(1,15,0) of
1 : begin
Np:=3;
flag:=true;
end;
2 : Flag:=False;
end
End;
End;
Until (Np=3) or (Np=4);
Ramka_Off(x1,y1,x2,y2);
End;
2:Begin
SetFillStyle(1,7); {Строка состтояния}
Bar(3,450,getmaxx-3,getmaxy-3);
SetColor(15);
Line(3,450,getmaxx-3,450);
Line(3,450,3,getmaxy-3);
SetColor(0);
Line(3,getmaxy-3,getmaxx-3,getmaxy-3);
Line(getmaxx-3,450,getmaxx-3,getmaxy-3);
Window_(100,80,510,400,1,'О программе');
moveto(130,130);
SetTextJustify(0,1);
outtext('Данная программа является курсовой работой');
moveto(300,145);
SetTextJustify(1,1);
outtext('по курсу :');
moveto(300,160);
SetTextJustify(1,1);
outtext('" Передача информации " ');
moveto(120,200);
SetTextJustify(0,1);
outtext('Задание : Построить кодирующее устройство');
moveto(185,220);
outtext('для кода Файра.Кодируемых сообщений 63,');
moveto(185,240);
outtext('число обнаруживаемых ошибок Br=4, число');
moveto(185,260);
outtext('исправляемых ошибок Bs=3.');
moveto(120,290);
outtext('Студент : Иванов А. Е.');
moveto(120,310);
outtext('Группа : BM-1-97');
moveto(120,330);
outtext('Преподаватель : Каевченко .');
moveto(300,380);
SetTextJustify(1,1);
outtext('СМОЛЕНСК 1999 г.');
moveto(20,465);
SetTextJustify(0,1);
SetColor(0);
outtext('Нажмите любую клавишу ...');
Readkey;
Ramka_Off(x1,y1,x2,y2);
End;
3:Begin
SetFillStyle(1,7); {Строка состтояния}
Bar(3,450,getmaxx-3,getmaxy-3);
SetColor(15);
Line(3,450,getmaxx-3,450);
Line(3,450,3,getmaxy-3);
SetColor(0);
Line(3,getmaxy-3,getmaxx-3,getmaxy-3);
Line(getmaxx-3,450,getmaxx-3,getmaxy-3);
Window_(100,50,500,350,1,'Помощ');
moveto(120,110);
SetTextJustify(0,1);
outtext('<-- --> ПЕРЕДВИЖЕНИЕ ПО ГОРИЗОНТАЛЬНОМУ МЕНЮ.');
moveto(120,130);
outtext('‑ |');
moveto(120,135);
outtext('| | ПЕРЕДВИЖЕНИЕ ПО ВЕРТИКАЛЬНОМУ МЕНЮ.');
moveto(120,140);
outtext('| ');
moveto(114,150);
moveto(114,155);
outtext('<Enter> АКТИВАЦИЯ ПУНКТА МЕНЮ.');
moveto(140,200);
outtext('В программе использованы соотношения :');
moveto(120,220);
outtext('L >= Bs c >= Bs+Br-1');
moveto(160,235);
outtext('L');
moveto(120,240);
outtext('e = 2 -1 m = c + L');
moveto(120,260);
outtext('n = НОК(e,c)');
moveto(120,280);
outtext('После расчетов получили образующий многочлен');
moveto(120,300);
outtext('Файра : P(x)=1011001011');
moveto(20,465);
SetTextJustify(0,1);
SetColor(0);
outtext('Нажмите любую клавишу ...');
ReadKey;
Ramka_Off(x1,y1,x2,y2);
End;
End; {Case}
Until flag;
closegraph;
End.
Оглавление.
| Аннотация |
| Введение |
| 1. Теоретическое введение |
| 1.1. Постановка задачи. |
| 1.2. Понятие двоичных циклических кодов. |
| 1.2.1. Общие понятия и определения. |
| 1.2.2. Методы построения циклических кодов. |
| 1.3.Технические средства кодирования для двоичных циклических кодов. |
| 1.4. Коды Файра. |
| 2. Разработка схемы кодирующего устройства. |
| 2.1. Построение кода Файра. |
| 2.2. Структурная схема кодирующего устройства. |
| 3. Анализ технического задания. |
| 4. Работа устройства |
| 5.Выбор узлов принципиальной схемы. |
| 5.1. Расчет генератора тактовых импульсов |
| 5.2. Счетчик К555 ИЕ10 |
| 5.3. Тригер К555 ТВ6 |
| 5.4. Регистр К155ИР13. |
| 6. Описание разработки системы. |
| 6.1. Модульная структура системы. |
| 6.2. Организация пользовательского интерфейса . |
| 6.2.1. Меню системы. |
| 6.2.2. Обработка ошибочных ситуаций. |
| 6.3. Спецификация на программные модули. |
| 7 . Тестирование. |
| 7.1. Выбор методики тестирования. |
| 7.2. Результаты тестирования |
| 8. Ограничения на разработку. |
| 8.1. Инструкция пользователя |
| Заключение. |
| Список литературы. |
| Приложения |
| Приложение 1. Перечень элементов. |
| Приложение 2. Блок схема алгоритма. |
| Приложение 3. Текст программных модулей. |
| Приложение 4. Экранные формы. |