.

Взаимодействие основных частей ЭВМ при выполнении программы

Язык: русский
Формат: курсова
Тип документа: Word Doc
0 871
Скачать документ

Министерство образования РФ

Хабаровский государственный технический университет

Институт (факультет) Институт информационных технологий

Кафедра Компьютерное проектирование и сертификация машин

Специальность Металлорежущие станки и инструменты

Взаимодействие основных частей ЭВМ при выполнении программы

Пояснительная записка к курсовой работе

По дисциплине «Информатика»

КР. 991096.00.00.00 ПЗ

Выполнил:

студент группы МРС-91

Егоров О.В.

зачетная книжка № 991096

Руководитель работы:

доцент

Кетов А.В.

Хабаровск 2000

Задание на курсовую работу

Разработать обучающую программу на тему “Взаимодействие основных частей
ЭВМ при выполнении программы”.

Руководитель:

Реферат

Пояснительная записка к курсовой работе содержит 22 листа формата А4, 2
рисунка, 1 использованный источник, 1 приложение.

ПРОГРАММА ДЛЯ ЭВМ, ПАСКАЛЬ, АЛГОРИТМИЧЕСКИЙ ЯЗЫК, ПРОГРАММИРОВАНИЕ,
ИНФОРМАТИКА.

Целью курсовой работы является разработка программы для ЭВМ средней
сложности с удобным пользовательским интерфейсом.

Это достигается путем проектирования, разработки и отладки на языке
Паскаль обучающей программы на тему: «Взаимодействие основных частей
ЭВМ при выполнении программы».

Приведена блок-схема процедуры для вывода главного меню. В приложении
приведен исходный текст программы на Turbo Pascal.

Содержание TOC \o \h \z

HYPERLINK \l “_Toc483930214” Введение PAGEREF _Toc483930214 \h 3

HYPERLINK \l “_Toc483930215” Блок – схема процедуры «MainMenu»
(вывода на экран главного меню) PAGEREF _Toc483930215 \h 3

HYPERLINK \l “_Toc483930216” Описание программы PAGEREF
_Toc483930216 \h 4

HYPERLINK \l “_Toc483930217” 1. Назначение PAGEREF _Toc483930217 \h
4

HYPERLINK \l “_Toc483930218” 2. Запуск программы PAGEREF
_Toc483930218 \h 4

HYPERLINK \l “_Toc483930219” 3. Работа с программой PAGEREF
_Toc483930219 \h 4

HYPERLINK \l “_Toc483930220” 3.1 Выбор пункта меню «Обучение»
PAGEREF _Toc483930220 \h 4

HYPERLINK \l “_Toc483930221” 3.2 Выбор пункта меню «Проверка знаний»
PAGEREF _Toc483930221 \h 5

HYPERLINK \l “_Toc483930222” Заключение PAGEREF _Toc483930222 \h 5

HYPERLINK \l “_Toc483930223” Список использованных источников
PAGEREF _Toc483930223 \h 5

HYPERLINK \l “_Toc483930224” Приложение А. Исходный текст программы
PAGEREF _Toc483930224 \h 6

Введение

Целью курсовой работы является разработка программы для ЭВМ средней
сложности с удобным интерфейсом на языке программирования Паскаль.

Блок – схема процедуры «MainMenu»
(вывода на экран главного меню)

Описание программы

1. Назначение

Данная программа показывает и обучает, как взаимодействуют основные
части ЭВМ при выполнении программы.

Программа написана на языке Turbo Pascal [1] для персональных ЭВМ,
совместимых с IBM PC, и операционной системой MS DOS.

2. Запуск программы

Находясь в каталоге с программой, в ответ на подсказку DOS набрать
computer.exe и нажать клавишу Enter. Выход из программы по нажатию
клавиши Esc.

3. Работа с программой

После запуска программы на экране появляется главное меню выбора:

Выбор пунктов меню производится с помощью курсорных клавиш Вверх, Вниз и
нажатия клавиши Enter для запуска нужной части программы. Для выхода из
программы достаточно нажать клавишу Esc или выбрать в меню опцию с
надписью «Esc – Выход».

3.1 Выбор пункта меню «Обучение»

Внизу экрана находятся функциональные клавиши

Помощь (F1), Назад ((), Вперед ((), Выход (Esc):

Помощь (F1) – получить справку,

Назад (() – вернуться назад,

Вперед (() – вывести следующую информацию,

Выход (Esc) – выйти из обучения.

3.2 Выбор пункта меню «Проверка знаний»

Тест имеет вид:

Выбор ответа производится клавишами 1, 2 и 3. При необходимости выйти
можно нажать клавишу Esc и выйти из теста.

По окончании теста выводится окно итога, которое имеет вид:

Заключение

В курсовой работе была спроектирована, разработана и отлажена на языке
программирования Паскаль обучающая программа на тему: «Взаимодействие
основных частей ЭВМ при выполнении программы».

Программа имеет удобный для пользователя интерфейс и возможностью
просмотра графического изображения процессов проходящих в ЭВМ при
выполнении программы.

Список использованных источников

1. Марченко А.И. Программирование в среде Turbo Pascal 7.0. Учебное
пособие. – К.: ВЕК+, М.: ДЕСС, 1999. – 496 с.

Приложение А. Исходный текст программы

program LEAN_Ecm;

uses Crt, Graph, Sm_Graph, Sm_Const;

{——————-} {uses}

var

I: Integer;

FuncKeyWindow: array [1..3] of TImage; {Массив картинок
функциональных клавиш}

Temp: array [1..2] of TImage; {Массив вспомогательный}

{——————-} {var}

procedure BildWin;

const

TxtCol: Word = Red; {Цвет текста}

RTACol: Word = Yellow; {Цвет прямоугольников}

BACCol: Word = Black; {Цвет фона}

{Рисуем главную картинку}

begin

SetBkColor(BACCol);

SetColor(BRDCol);

Rectangle(X0, Y0, X0 + 385, Y0 + 300);

Rectangle(X0, Y0 + 305, GetMaxX – X0, YS – 5);

SetColor(MemCol);

{Ячейки памяти}

SetLineStyle(1, 0, 0);

for I := 1 to 4 do {Ячейки памяти}

begin

Line(X0 + 130 + 16 * I, Y0 + 120, X0 + 130 + 16 * I, Y0 + 200);

Line(X0 + 130, Y0 + 120 + 16 * I, X0 + 210, Y0 + 120 + 16 * I)

end;

{CPU}

SetColor(CPUCol);

MoveTo(X0 + 83, Y0 + 203); {0}

LineTo(X0 + 7, Y0 + 203); {1}

LineTo(X0 + 7, Y0 + 117); {2}

LineTo(X0 + 40, Y0 + 117); {3}

LineTo(X0 + 40, Y0 + 45); {4}

LineTo(X0 + 127, Y0 + 45); {5}

LineTo(X0 + 127, Y0 + 27); {6}

LineTo(X0 + 213, Y0 + 27); {7}

LineTo(X0 + 213, Y0 + 73); {8}

Прямоугольники}

SetColor(RTACol);

Rectangle(X0 + 10, Y0 + 120, X0 + 80, Y0 + 200); {УУ(ЦУУ)}

Rectangle(X0 + 55, Y0 + 120, X0 + 80, Y0 + 130); {КОП}

Rectangle(X0 + 130, Y0 + 120, X0 + 210, Y0 + 200); {ОЗУ}

Rectangle(X0 + 130, Y0 + 30, X0 + 210, Y0 + 70); {АЛУ}

Rectangle(X0 + 130, Y0 + 250, X0 + 210, Y0 + 290); {ВЗУ}

Rectangle(X0 + 260, Y0 + 120, X0 + 360, Y0 + 150); {У.Ввода}

Rectangle(X0 + 260, Y0 + 170, X0 + 360, Y0 + 200); {У.Вывода}

{Подписи к прямоугольникам}

SetColor(TxtCol);

SetTextJustify(2, 0);

OutTextXY(X0 + 80, Y0 + 200, ‘УУ(ЦУУ)’);

OutTextXY(X0 + 80, Y0 + 130, ‘PC’);

OutTextXY(X0 + 210, Y0 + 200, ‘ОЗУ’);

OutTextXY(X0 + 210, Y0 + 70, ‘АЛУ’);

OutTextXY(X0 + 210, Y0 + 290, ‘ВЗУ’);

OutTextXY(X0 + 360, Y0 + 150, ‘У.Ввода’);

OutTextXY(X0 + 360, Y0 + 200, ‘У.Вывода’);

SetTextJustify(0, 0);

{Стрелки Big}

SetColor(ARBCol);

SetFillStyle(1, FILCol);

{Вид стрелки}

CArrow := BArrow;

Arrow(X0 + 85, Y0 + 140, 40, 1); {ОЗУ – УУ(ЦУУ)}

FloodFill(X0 + 90, Y0 + 140, ARBCol);

Arrow(X0 + 150, Y0 + 75, 40, 3); {ОЗУ – АЛУ}

FloodFill(X0 + 150, Y0 + 80, ARBCol);

Arrow(X0 + 190, Y0 + 115, 40, 4); {АЛУ – ОЗУ}

FloodFill(X0 + 190, Y0 + 110, ARBCol);

Arrow(X0 + 150, Y0 + 205, 40, 3); {ВЗУ – ОЗУ}

FloodFill(X0 + 150, Y0 + 210, ARBCol);

Arrow(X0 + 190, Y0 + 245, 40, 4); {ОЗУ – ВЗУ}

FloodFill(X0 + 190, Y0 + 240, ARBCol);

Arrow(X0 + 215, Y0 + 135, 40, 1); {У.Ввода – ОЗУ}

FloodFill(X0 + 220, Y0 + 135, ARBCol);

Arrow(X0 + 255, Y0 + 185, 40, 2); {У.Вывода – ОЗУ}

FloodFill(X0 + 250, Y0 + 185, ARBCol);

{Стрелки Small}

SetColor(ARSCol);

{Вид стрелки}

CArrow := SArrow;

Arrow(X0 + 125, Y0 + 180, 40, 2); {УУ(ЦУУ) – ОЗУ}

Arrow(X0 + 125, Y0 + 270, 80, 2); {УУ(ЦУУ) – ВЗУ}

Arrow(X0 + 125, Y0 + 50, 80, 2); {УУ(ЦУУ) – АЛУ = КОП}

Line(X0 + 45, Y0 + 115, X0 + 45, Y0 + 50); {1}

OutTextXY(X0 + 70, Y0 + 60, ‘КОП’); {2}

{УУ(ЦУУ) – У.Вводы, У.Вывода}

Line(X0 + 45, Y0 + 205, X0 + 45, Y0 + 295); {1}

Line(X0 + 45, Y0 + 295, X0 + 380, Y0 + 295); {2}

Line(X0 + 380, Y0 + 295, X0 + 380, Y0 + 135); {3}

Arrow(X0 + 365, Y0 + 135, 15, 1); {in} {4}

Arrow(X0 + 365, Y0 + 185, 15, 1); {out} {5}

{Носики стрелок Small}

SetColor(LightGreen);

Arrow(X0 + 125, Y0 + 180, 0, 2); {1}

Arrow(X0 + 125, Y0 + 270, 0, 2); {2}

Arrow(X0 + 125, Y0 + 50, 0, 2); {3}

Arrow(X0 + 365, Y0 + 135, 0, 1); {4}

Arrow(X0 + 365, Y0 + 185, 0, 1); {5}

SetColor(BRDCol);

Rectangle(0, 0, GetMaxX, GetMaxY);

end; {BildWin}

{——————-}

procedure BildContext;

const

TxtCol: Word = LightBlue;

begin

SetColor(BRDCol); {Устанавливаем цвет границы и рисуем ее}

Rectangle(XC, YC, GetMaxX – X0, YC + 300);

SetTextJustify(1, 1);

SetColor(TxtCol + 1); {Заголовок}

OutTextXY(GetMaxX – (GetMaxX – X0 – XC) div 2 – X0, YC + 20,
‘Обозначения ‘ +

‘на схеме:’);

CArrow := BArrow; {Стрелки}

SetColor(ARBCol);

SetFillStyle(1, Blue);

Arrow(XC + 50, YC + 50, 40, 2);

FloodFill(XC + 40, YC + 50, ARBCol);

CArrow := SArrow;

SetColor(ARSCol);

Arrow(XC + 50, YC + 80, 40, 2);

SetColor(LightGreen);

Arrow(XC + 50, YC + 80, 0, 2);

SetColor(MemCol);

SetLineStyle(1, 0, 0);

Line(XC + 10, YC + 110, XC + 34, YC + 110);

Line(XC + 10, YC + 126, XC + 34, YC + 126);

Line(XC + 14, YC + 106, XC + 14, YC + 128);

Значения}

OutTextXY(XC + 60, YC + 50, ‘ – Передача данных’);

OutTextXY(XC + 60, YC + 80, ‘ – Сигнал управления’);

OutTextXY(XC + 60, YC + 120, ‘ – Ячейка памяти’);

OutTextXY(XC + 60, YC + 150, ‘ – Данной линией’);

OutTextXY(XC + 60, YC + 160, ‘ обведены части’);

OutTextXY(XC + 60, YC + 170, ‘ входящие в состав’);

OutTextXY(XC + 60, YC + 180, ‘ процессора (ЦПУ)’);

OutTextXY(XC + 20, YC + 200, ‘? – содержимое файла’);

OutTextXY(XC + 20, YC + 210, ‘1 – адрес первого операнда’);

OutTextXY(XC + 20, YC + 220, ‘2 – адрес второго операнда’);

OutTextXY(XC + 20, YC + 230, ‘3 – адрес результата’);

SetTextJustify(0, 0)

end; {Context}

{——————-}

procedure BildFuncKey;

const

StrFK: array [1..4] of string[11] =

(‘Помощь F1’, ‘Назад ‘, ‘Выход Esc’);

FkbCol: Word = Green;

TxtCol: Word = LightCyan;

begin

SetColor(BRDCol);

Rectangle(XS, YS, GetMaxX – XS, GetMaxY – XS);

SetTextJustify(1, 1);

SetFillStyle(1, DarkGray);

for I := 1 to 4 do

begin

SetColor(FkbCol); {Установка цвета границы клавиш}

Bar((GetMaxX – XS * 2) div 5 * I – Length(StrFK[I]) * 4, YS + 7,

(GetMaxX – XS * 2) div 5 * I + Length(StrFK[I]) * 4, YS + 23);

Rectangle((GetMaxX – XS * 2) div 5 * I – Length(StrFK[I]) * 4, YS
+ 7,

(GetMaxX – XS * 2) div 5 * I + Length(StrFK[I]) * 4, YS
+ 23);

SetColor(Black); {Установка цвета текста клавиш}

OutTextXY((GetMaxX – XS * 2) div 5 * I + 2, YS + 15 – 2,
StrFK[I]);

SetColor(TxtCol);

OutTextXY((GetMaxX – XS * 2) div 5 * I, YS + 15, StrFK[I])

end;

SetTextJustify(0, 0);

{Сахраняем картинки}

FuncKeyWindow[1].Get(XS, YS, GetMaxX – XS, GetMaxY – XS);

SetFillStyle(1, GetBkColor);

Bar((GetMaxX – XS * 2) div 5 * 3 – Length(StrFK[I]) * 4, YS + 7,

(GetMaxX – XS * 2) div 5 * 3 + Length(StrFK[I]) * 4, YS + 23);

FuncKeyWindow[3].Get(XS, YS, GetMaxX – XS, GetMaxY – XS);

FuncKeyWindow[1].Put(XS, YS);

Bar((GetMaxX – XS * 2) div 5 * 2 – Length(StrFK[I]) * 4, YS + 7,

(GetMaxX – XS * 2) div 5 * 2 + Length(StrFK[I]) * 4, YS + 23);

FuncKeyWindow[2].Get(XS, YS, GetMaxX – XS, GetMaxY – XS)

end; {FuncKey}

{——————-}

{+———————————————-+}

{ }

{ Процедуры вывода текстовой информации на экран }

{ }

{+———————————————-+}

procedure Page_1;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

ClearViewPort;

SetColor(Blue);

OutTextXY(GetMaxX – X – 25, 100, ‘1’);

SetColor(TxtCol);

MyText(0, 8, ‘До начала работы программы, она находится на ВЗУ, ‘ +

‘в виде файла программы’);

MyText(0, 16, ‘(*.exe или *.com).’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_1}

{——————-}

procedure Page_2;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

ClearViewPort;

SetColor(Blue);

OutTextXY(GetMaxX – X – 25, 100, ‘2’);

SetColor(TxtCol);

MyText(0, 8, ‘После того как ЭВМ получила команду на запуск ‘ +

‘программы, содержимое’);

MyText(0, 16, ‘этого файла помещается в ячейку ОЗУ, начиная с ‘ +

‘ячейки с некоторым’);

MyText(0, 24, ‘стартовым адресом.’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_2}

{——————-}

procedure Page_3;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

ClearViewPort;

SetColor(Blue);

OutTextXY(GetMaxX – X – 25, 100, ‘3’);

SetColor(TxtCol);

MyText(0, 8, ‘Содержимое ячейки со стартовым адресом программы ‘ +

‘ (первая машинная команда)’);

MyText(0, 16, ‘пересылается в УУ. УУ расшифровывает первую машинную ‘
+

‘команду и выробатывает’);

MyText(0, 24, ‘соответствующие ей сигналы управления для всех систем
управления.’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_3}

{——————-}

procedure Page_4_1;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

SetColor(Blue);

OutTextXY(GetMaxX – X – 25, 100, ‘4’);

SetColor(TxtCol);

MyText(0, 8, ‘Например: если первой машинной командой оказалась ‘ +

‘трех адресной командой’);

MyText(0, 16, ‘сложения двух чисел, произойдут следующие действия:’);

MyText(0, 24, ‘- УУ посылает первый и второй адреса в ОЗУ’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_4_1}

{——————-}

procedure Page_4_2;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

SetColor(TxtCol);

MyText(0, 32, ‘- ОЗУ пересылает содержимое ячеек с этими адресами в
АЛУ,’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_4_2}

{——————-}

procedure Page_4_3;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

SetColor(TxtCol);

MyText(0, 40, ‘- УУ отправляет сигнал управления (КОП) в АЛУ,’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_4_3}

{——————-}

procedure Page_4_4;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

SetColor(TxtCol);

MyText(0, 48, ‘- АЛУ выполняет эту операцию (сложение) над двумя ‘ +

‘операндами и возвращает’);

MyText(0, 56, ‘ результат в ОЗУ.’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_4_4}

{——————-}

procedure Page_4_5;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

SetColor(TxtCol);

MyText(0, 64, ‘- УУ собщает ОЗУ третий адрес (адрес результата),’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_4_5}

{——————-}

procedure Page_4_6;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

SetColor(TxtCol);

MyText(0, 72, ‘- ОЗУ помещает полученный результат в ячейку памяти.’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_4_6}

{——————-}

procedure Page_4_7;

begin

SetViewPort(X, Y, GetMaxX – X, YS – 10, ClipOn);

SetColor(TxtCol);

MyText(0, 80, ‘На этом выполнение первой машинной команды ‘ +

MyText(0, 88, ‘переход к следующей по порядку машинной команде. ‘ +

‘Содержимое ячейки ОЗУ с’);

MyText(0, 96, ‘адресом, следующим за стартовым, пересылается в УУ ‘ +

‘и все повторяется.’);

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_4_6}

{——————-}

{+——————+}

{ }

{ Процедуры анимации }

{ }

{+——————+}

procedure Move_1;

begin

BLink(150, 285, ‘kurs.exe’);

end; {Move_1}

{——————-}

procedure Move_2;

begin

SetColor(Green);

Animation(150, 285, -125, 2, ‘ ? ?’, True)

end; {Move_2}

{——————-}

procedure Move_3;

begin

SetColor(GetBkColor);

SetColor(Green);

Animation(100, 168, -70, 1, ‘ 1 2 +’, True)

end; {Move_3}

{——————-}

procedure Move_4_1;

begin

SetColor(GetBkColor);

OutTextXY(30, 176, ‘ 1 2’);

SetColor(Green);

Animation(47, 198, 63, 1, ‘ 1 2’, False);

SetColor(GetBkColor);

OutTextXY(150, 168, ‘ ? ?’);

SetColor(Green);

OutTextXY(150, 168, ‘ a b’)

end; {Move_4_1}

{——————-}

procedure Move_4_2;

begin

SetColor(Green);

Animation(150, 160, -95, 2, ‘ a b’, True)

end; {Move_4_2}

{——————-}

procedure Move_4_3;

begin

setcolor(getbkcolor);

OutTextXY(30, 176, ‘ +’);

SetColor(Green);

Animation(52, 160, -94, 2, ‘+’, False)

end; {Move_4_3}

{——————-}

procedure Move_4_4;

begin

SetColor(Green);

Animation(52, 66, 115, 1, ‘+’, True);

OutTextXY(183, 73, ‘=c’)

end; {Move_4_4}

{——————-}

procedure Move_4_5;

begin

SetColor(GetBkColor);

SetColor(Green);

Animation(47, 198, 63, 1, ‘3’, False);

end; {Move_4_1}

{——————-}

procedure Move_4_6;

begin

SetColor(Green);

Animation(191, 66, 94, 2, ‘c’, True)

end; {Move_4_5}

{——————-}

procedure Help; {Помощь}

const

XH: Integer = 70;

YH: Integer = 70;

begin

ClearDevice;

SetColor(BRDCol);

Rectangle(0, 0, GetMaxX, GetMaxY);

SetColor(LightCyan);

SetTextJustify(1, 0);

OutTextXY(GetMaxX div 2, YH + 10,’Помощь:’);

SetTextJustify(0, 0);

OutTextXY(XH + 10, YH + 20,’Адрес :’);

OutTextXY(XH + 10, YH + 30,’УУ :’);

OutTextXY(XH + 10, YH + 40,’АЛУ :’);

OutTextXY(XH + 10, YH + 50,’АЛУ+УУ :’);

OutTextXY(XH + 10, YH + 60,’ВЗУ :’);

OutTextXY(XH + 10, YH + 70,’ОЗУ :’);

OutTextXY(XH + 10, YH + 80,’УВвода :’);

OutTextXY(XH + 10, YH + 90,’УВывода:’);

SetColor(Cyan);

OutTextXY(XH + 90, YH + 20,’номер ячейки памяти’);

OutTextXY(XH + 90, YH + 30,’устройство управления’);

OutTextXY(XH + 90, YH + 40,’арифметико-логическое устройство’);

OutTextXY(XH + 90, YH + 50,’процессор’);

OutTextXY(XH + 90, YH + 60,’внешнее запоминающее устройство (hdd, fdd
и др.)’);

OutTextXY(XH + 90, YH + 70,’оперативное запоминающее устройство’);

OutTextXY(XH + 90, YH + 80,’устройство ввода’);

OutTextXY(XH + 90, YH + 90,’устройство вывода’);

_Pause

end; {Help}

{——————-}

procedure MainWin;

begin

ClearDevice;

BildWin;

BildContext;

BildFuncKey

end; {MainWin}

{——————-}

procedure Play;

{————-}

procedure SelectPage(N: Byte);

begin

case N of

1: begin

FuncKeyWindow[2].Put(XS, YS);

Page_1;

Move_1

end;

2: begin

FuncKeyWindow[1].Put(XS, YS);

Page_2;

Move_2

end;

3: begin

FuncKeyWindow[1].Put(XS, YS);

Page_3;

Move_3

end;

4: begin

FuncKeyWindow[3].Put(XS, YS);

Page_4_1;

Move_4_1;

Delay(Time_3 * 20);

Page_4_2;

Delay(Time_3 * 20);

Move_4_2;

Delay(Time_3 * 20);

Page_4_3;

Delay(Time_3 * 20);

Move_4_3;

Move_4_4;

Page_4_4;

Delay(Time_3 * 20);

Page_4_5;

Delay(Time_3 * 20);

Move_4_5;

Delay(Time_3 * 20);

Page_4_6;

Delay(Time_3 * 20);

Move_4_6;

Delay(Time_3 * 20);

Page_4_7

end

end

end; {SelectPage}

{————-}

const

Back = #75;

Next = #77;

F1 = #59;

Esc = #27;

var

ArrowsAndEsc: set of Char;

ExtentedKey: Boolean;

Flag: Boolean;

CH: Char;

N: Byte;

begin

ClearDevice;

MainWin;

ArrowsAndEsc := [Back, Next, F1, Esc];

repeat

ExtentedKey := False;

Flag := False;

CH := ReadKey;

if CH = Esc then

Flag := True;

if CH = #0 then

begin

CH := ReadKey;

ExtentedKey := True

end;

if ExtentedKey then

case CH of

Back: begin

Dec(N);

SelectPage(N);

if N 4 then N := 4

end;

F1: begin

Temp[1].Get(X0, Y0, X0 + 380, Y0 + 300);

Temp[2].Get(X0, Y0 + 305, GetMaxX – X0, YS – 5);

Help;

MainWin;

Temp[1].Put(X0, Y0);

Temp[2].Put(X0, Y0 + 305);

if N #27 then

begin

Val(C, Res, Code);

if Res = Ok[N] then

begin

Quastion := 1;

SetColor(Green);

MyText(GetMaxX div 2 – 20, GetMaxY – 200, ‘ВЕРНО’)

end

else

begin

Quastion := 0;

SetColor(Red);

MyText(GetMaxX div 2 – 28, GetMaxY – 200, ‘НЕВЕРНО’)

end;

Delay(Time_2)

end

else

CH := C;

ClearDevice

end; {Quastion}

{—————–}

function Mark(Res: Byte): Char;

begin

case Res of

1: Mark := ‘1’;

3: Mark := ‘3’;

4: Mark := ‘4’;

5: Mark := ‘5’;

else

Mark := ‘0’

end

end; {Mark}

{—————–}

var

I: Byte;

Result: Byte;

StrRes: string[2];

TempS: TText;

C: Char;

begin

C := #0;

ClearDevice;

Result := 0;

TempS := EndofTest;

for I := 1 to 5 do

begin

if Quastion(I, C) = 1 then

Inc(Result);

if C = #27 then Exit

end;

ClearDevice;

SetColor(BRDCol);

Rectangle(0, 0, GetMaxX, GetMaxY);

Str(Result, StrRes);

TempS[3] := EndofTest[3] + StrRes;

TempS[4] := EndofTest[4] + Mark(Result);

SetColor(BRDCol);

Rectangle(GetMaxX div 2 – 150, GetMaxY div 2 – 60,

GetMaxX div 2 + 150, GetMaxY div 2 + 40);

TextT(TestCol, TempS);

_Pause;

ClearDevice

end; {TestMode}

{——————-}

procedure MainMenu;

var

C: Char;

ExtentedKey: Boolean;

TempCol: TColor;

K: ShortInt;

begin

ClearDevice;

TempCol[1] := MenuCol[1];

TempCol[2] := MenuCol[3];

TempCol[3] := MenuCol[4];

TempCol[4] := MenuCol[4];

K := 1;

repeat

SetColor(BRDCol);

Rectangle(GetMaxX div 2 – 150, GetMaxY div 2 – 60,

GetMaxX div 2 + 150, GetMaxY div 2 + 40);

ExtentedKey := False; {флаг поступления расширенного кода}

TextT(TempCol, Menu);

while KeyPressed do ReadKey; {очистка буфера клавиатуры}

C := ReadKey; {считывание кода новой нажатой клавиши}

if C = #0 then {если “да” – код расширенный}

begin

C := ReadKey; {считывается второй символ расширенного кода}

ExtentedKey := True

end;

if ExtentedKey then {если код был расширенный}

case C of

#72: K := K – 1;

#80: K := K + 1

end;

if C = #13 then

case K of

1: Play; {Обучение}

2: TestMode; {Проверка знаний}

3: Exit {Выход}

end;

if K 3 then K := 1;

for I := 2 to 4 do

TempCol[I] := MenuCol[4];

TempCol[K + 1] := MenuCol[3]; {Смена цвета выделленого пункта}

until C = #27 {т.е. нажата клавиша “Esc”}

end; {MainMenu}

{——————-}

begin

MyInitGraph; {Инициализация графического режима}

Title; {Титульный лист}

MainMenu; {Главное меню}

CloseGraph; {Закрытие графического режима}

end. {LEAN_Ecm;}

{——————-}

Текст модуля Sm_Const

unit Sm_Const;

interface

uses Graph, Sm_Graph;

type

TText = array [1..4] of string;

TColor = array [1..4] of Word;

——————- type

const

X0: Integer = 10; {Начальная координата X}

Y0: Integer = 20; {Начальная координата Y}

XS: Integer = 10; {FuncKey}

YS: Integer = 440; {FuncKey}

XC: Integer = 400; {Context}

YC: Integer = 20; {Context}

XT: Integer = 80; {Test}

YT: Integer = 150; {Test}

X: Integer = 15; {Координата вывод текста X}

Y: Integer = 330; {Координата вывод текста Y}

ARBCol: Word = LightCyan; {Цвет внешней границы стрелки Big}

ARSCol: Word = Red; {Цвет внешней границы стрелки Small}

FILCol: Word = Blue; {Цвет стрелки Big}

MemCol: Word = LightGreen; {Цвет ячеек памяти}

CPUCol: Word = DarkGray; {Цвет CPU}

BRDCol: Word = Brown; {Цвет рамки}

TxtCol: Word = White; {Цвет текста}

BArrow: TArrow = (X1 : 15; Y1 : 2; Y2 : 5); {Форма стрелки Big}

SArrow: TArrow = (X1 : 5; Y1 : 0; Y2 : 1); {Форма стрелки Small}

TestCol: TColor = (Green, White, Blue, Red); {Цвет окна теста}

MenuCol: TColor = (Cyan, 0, LightGreen, Blue);

V: string[1] = ”;

Q: string[9] = ‘Вопрос #’;

{Вопросы]

Quastions: array [1..5] of string =

(‘1. Что такое ВЗУ?’,

‘2. Что в ходит в процесор?’,

‘3. Через какое устройство в ЭВМ происходит обмен данными?’,

‘4. Где в начальный момент находится программа? ‘,

‘5. Какое из устройств расшифровывает первую машинную команду?’);

{Варианты ответов}

Answer: array [1..5, 1..3] of string =

((‘1. Внешнее записывающее устройство’, ‘2. Внешнее запоминающее
устройство’, ‘3. Внутреннее запоминающее устройство’), (‘1. ЦУУ + АЛУ +
ВЗУ’, ‘2. УВвода + ОЗУ’, ‘3. ЦУУ + АЛУ + КОП’),

(‘1. АЛУ ‘,’2. ОЗУ’, ‘3. ВЗУ’),

(‘1. В ВЗУ’,’2. В АЛУ’,’3. В УУ’),

(‘1. ВЗУ’, ‘2. ЦУУ’, ‘3. АЛУ’));

{Номера правильных ответов}

OK: array [1..5] of Byte = (2, 3, 2, 1, 2);

{Текст Меню}

Menu: TText =(‘Ваш выбор:’,

‘Обучение’,

‘Проверка знаний’,

‘Esc – Выход’);

{Текст итога тестовой части программы}

EndofTest: TText = (‘Ваш результат:’,

‘Всего вопросов: 5’,

‘Количество правильных ответов: ‘,

‘Оценка: ‘);

——————- const

implementation

end.

Текст модуля Sm_graph

unit Sm_Graph;

interface

uses

Graph, Crt;

{——————-} {Uses}

type

TArrow = record X1, Y1, Y2: Integer; end;

TImage =

object

private

Image: Pointer;

Size : Word;

public

procedure Destroy;

procedure Get(X1, Y1, X2, Y2: Integer);

procedure Put(X, Y: Integer);

end;

{——————-} {Type}

const

CArrow: TArrow = (X1 : 15; Y1 : 2; Y2 : 5);

Time_1: Word = 5000; {Время мерцания}

Time_2: Word = 15000; {Время задержки экрана после ответа на вопрос}

Time_3: Word = 300; {Время анимации}

Time_4: Word = 400; {Время задержки вывода текста по буквам}

procedure _Pause;

procedure Animation(X, Y: Integer; D: Integer; XY: Byte; S: string; Vis:
Boolean);

procedure Arrow(X, Y, L: Integer; DIRectIOn: Byte);

procedure BLink(X, Y: Integer; S: string);

procedure MyInitGraph;

procedure MyText(X, Y: Integer; S: string);

procedure Title;

var

TempImage: TImage;

implementation

{———Object TImage———-}

procedure TImage.Destroy;

begin

if Image nil then

begin

FreeMem(Image, Size);

Image := nil;

Size := 0;

end

end; {Timage.Destroy}

{——————-}

procedure TImage.Get(X1, Y1, X2, Y2: Integer);

begin

Destroy;

Size := ImageSize(X1, Y1, X2, Y2);

GetMem(Image, Size);

GetImage(X1, Y1, X2, Y2, Image^);

end; {TImage.Get}

{——————-}

procedure TImage.Put(X, Y: Integer);

begin

if Image nil then

PutImage(X, Y, Image^, 0);

end; {TImage.Put}

{———Object TImage———-}

procedure MyInitGraph;

var

GD, GM : Integer;

begin

GD := Detect;

InitGraph(GD, GM,”);

if GraphResult grOK then

Halt(1);

end; {MyInitGraph}

{——————-}

procedure MyText(X, Y: Integer; S: string);

var

I: Word;

C: Char;

begin

MoveTo(X, Y);

I := 0;

repeat

Inc(I);

OutText(S[I]);

Delay(Time_4);

until (I = Length(S));

end; {NyText}

{——————-}

procedure _Pause;

begin

ReadKey;

end; {_Pause}

{——————-}

procedure Animation(X, Y: Integer; D: Integer;

XY: Byte; S: string; Vis: Boolean);

{Animation}

var

DX, DY: Integer;

I: Integer;

begin

DX := 1;

DY := 1;

SetColor(Green);

if D D then

TempImage.Put(X + I * DX, Y + I * DY);

if (I = D) and not VIs then

TEMPImage.Put(X + I * DX, Y + I * DY);

end;

end; {Animation}

{——————-}

procedure Arrow(X, Y, L: Integer; Direction: Byte);

type

COOrAR = array [1..6] of Integer;

var

X1: Integer;

Y1: Byte;

Y2: Byte;

XX: COOrAR;

YY: COOrAR;

procedure Change1;

begin

X1 := -X1;

L := -L

end;

procedure Change2;

var

I: Byte;

Temp: Integer;

begin

for I := 1 to 6 do

begin

TEMP := XX[I];

XX[I] := YY[I];

YY[I] := TEMP;

end;

end;

procedure ArrowCCOOr;

begin

XX[1] := X1; YY[1] := Y2;

XX[2] := X1; YY[2] := Y1;

XX[3] := L; YY[3] := Y1;

XX[4] := L; YY[4] := -Y1;

XX[5] := X1; YY[5] := -Y1;

XX[6] := X1; YY[6] := -Y2;

end;

var

I: Byte;

begin

X1 := CArrow.X1;

Y1 := CArrow.Y1;

Y2 := CArrow.Y2;

if L 3

K := 3

If C := #27

If K

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2019