Реферат по предмету "Программирование"


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

| | | | |Министерство образования РФ | | | |Хабаровский государственный технический университет | | | | | |Институт (факультет) Институт информационных технологий | |Кафедра Компьютерное проектирование и сертификация машин | |Специальность Металлорежущие станки и инструменты | | | | | | | | | | | | | | | | | | | |Взаимодействие основных частей ЭВМ при выполнении программы | | | | | |Пояснительная записка к курсовой работе | | | |По дисциплине «Информатика» | | | |КР. 991096.00.00.00 ПЗ | | | | | | | | | | | |Выполнил: | |студент группы МРС-91 | |Егоров О.В. | |зачетная книжка № 991096 | |Руководитель работы: | |доцент | |Кетов А.В. | | | | | | | | | | | | | |Хабаровск 2000 | | | | | |Задание на курсовую работу | |Разработать обучающую программу на тему "Взаимодействие основных частей ЭВМ| |при выполнении программы". | |Руководитель: | |Реферат | |Пояснительная записка к курсовой работе содержит 22 листа формата А4, 2 | |рисунка, 1 использованный источник, 1 приложение. | |ПРОГРАММА ДЛЯ ЭВМ, ПАСКАЛЬ, АЛГОРИТМИЧЕСКИЙ ЯЗЫК, ПРОГРАММИРОВАНИЕ, | |ИНФОРМАТИКА. | |Целью курсовой работы является разработка программы для ЭВМ средней | |сложности с удобным пользовательским интерфейсом. | |Это достигается путем проектирования, разработки и отладки на языке Паскаль| |обучающей программы на тему: «Взаимодействие основных частей ЭВМ при | |выполнении программы». | |Приведена блок-схема процедуры для вывода главного меню. В приложении | |приведен исходный текст программы на Turbo Pascal. | | | |Содержание | |Введение 3 | |Блок – схема процедуры «MainMenu» (вывода на экран главного меню) 3 | |Описание программы 4 | |1. Назначение 4 | |2. Запуск программы 4 | |3. Работа с программой 4 | |3.1 Выбор пункта меню «Обучение» 4 | |3.2 Выбор пункта меню «Проверка знаний» 5 | |Заключение 5 | |Список использованных источников 5 | |Приложение А. Исходный текст программы 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} | |LineTo(X0 + 127, Y0 + 73); {9} | |LineTo(X0 + 127, Y0 + 55); {10} | |LineTo(X0 + 50, Y0 + 55); {11} | |LineTo(X0 + 50, Y0 + 117); {12} | |LineTo(X0 + 83, Y0 + 117); {12} | |LineTo(X0 + 83, Y0 + 203); {13} | |SetLineStyle(0, 0, 0); | |{Прямоугольники} | |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); | |Line(XC + 30, YC + 106, XC + 30, YC + 128); | |SetColor(CPUCol); | |Line(XC + 12, YC + 150, XC + 30, YC + 150); | |SetLineStyle(0, 0, 0); | |SetColor(TxtCol); | |SetTextJustify(0, 1); {Значения} | |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); | |ClearViewPort; | | | | | | 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; | |N := 0; | | | | | | 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 |end; | |Next: begin | |Inc(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 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 |begin | |DX := -1; | |DY := -1; | |end; | |case XY of | |1: DY := 0; | |2: DX := 0; | |end; | |D := Abs(D); | |for I := 1 to D do | |begin | |TempImage.Get(I * DX + X, | |I * DY + Y, | |TextWidth(S) + I * DX + X, | |TextHeight(S) + I * DY + Y); | |OutTextXY(X + I * DX, Y + TextHeight(S) + I * DY, S); | |Delay(Time_3); | |if I 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 |case Direction of | |2, 4: Change1; | |end; | |ArrowCCOOr; | |case Direction of | |3, 4: Change2; | |end; | |MoveTo(X, Y); | |for I := 1 to 6 do | |LineTo(X+XX[I], Y+YY[I]); | |LineTo(X, Y); | |end; {Arrow} | |{-------------------} | | | |procedure Title; | |const | |Word_1: string = 'Курсовая работа по информатике.'; | |Word_2: string = 'Тема: взаимодействие основных частей ЭВМ при выполнении | |программы'; | |Word_3: string = 'Выполнили студенты группы МРС-91:'; | |Word_4: string = 'Егоров О.В.'; | |Word_5: string = 'Шетманюк М.В.'; | |begin | |ClearDevice; | |SetColor(LightGreen); | |Rectangle(0, 0, GetMaxX, GetMaxY); | |SetFillStyle(1, Blue); | |FloodFill(1,1, LightGreen); | |SetColor(LightGray); | |Rectangle(25, 25,GetMaxX-25, GetMaxY-25); | |SetFillStyle(1, DarkGray); | |FloodFill(101,101, LightGray); | |SetTextJustify(1, 0); | |SetTextStyle(0,0,2); | |SetColor(Black); | |OutTextXY(GetMaxX div 2+1, GetMaxY div 2-1, Word_1); | |SetColor(Brown); | |OutTextXY(GetMaxX div 2, GetMaxY div 2, Word_1); | |SetTextStyle(0,0,0); | |SetColor(Red); | |OutTextXY(GetMaxX div 2, GetMaxY-35, 'Хабаровск 2000'); | |SetColor(Black); | |OutTextXY(GetMaxX div 2+1, GetMaxY div 2-1+18, Word_2); | |SetColor(Brown); | |OutTextXY(GetMaxX div 2, GetMaxY div 2+18, Word_2); | |SetTextJustify(0, 0); | | | | | | | |SetColor(Black); | |OutTextXY(GetMaxX-Length(Word_3)*8+1-180, GetMaxY-100-1, Word_3); | |SetColor(White); | |OutTextXY(GetMaxX-Length(Word_3)*8-180, GetMaxY-100, Word_3); | |SetColor(Black); | |OutTextXY(GetMaxX+1-180, GetMaxY-90-1, Word_4); | |SetColor(LightGreen); | |OutTextXY(GetMaxX-180, GetMaxY-90, Word_4); | |SetColor(Black); | |OutTextXY(GetMaxX+1-180, GetMaxY-80-1, Word_5); | |SetColor(LightGreen); | |OutTextXY(GetMaxX-180, GetMaxY-80, Word_5); | |_Pause; | |ClearDevice; | |end; {Title} | |{-------------------} | | | |procedure BLink(X, Y: Integer; S: string); | |var I: Byte; | |begin | |for I := 1 to 3 do | |begin | |SetColor(Black); | |Delay(Time_1); | |OutTextXY(X, Y + TextHeight(S), S); | |SetColor(Green); | |Delay(Time_1); | |OutTextXY(X, Y + TextHeight(S), S) | |end | |end; {Blink} | |{-------------------} | | | |end. | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
----------------------- | | | | | | . 991096.00.00.00 |8AB | | | | | | | | 0 |
B0 | |22 | |
| | | | | . 991096.00.00.00 |8AB | | | | | | | |


Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Расчёт технико-экономических показателей ремонтного участка АТП по восстановлению гильзы цилиндр
Реферат Генезис федерализма
Реферат Оптимизация путей продвижения товаров на предприятии ООО Фаворит ОПТ
Реферат Особенности Нового курса Ф. Рузвельта в США
Реферат Династія Романових
Реферат Life Essay Research Paper Life Experiences With
Реферат Листы рабочей тетради по теме "Организация" при изучении дисциплины "Менеджмент"
Реферат Краткое содержание Ярмарка тщеславия Уильям Мейкпис Теккерей
Реферат Виды переломов костей. Травматический шок. Первая помощь
Реферат Творчество Франсуа Рабле и народная культура Средневековья и Ренессанса
Реферат Capitlal Punishment Is Reasonable For Society Essay
Реферат Расчёт аэрофонтанной сушилки
Реферат Процесс разработки ПО и ЯП
Реферат Выявление потребностей в ресурсах субъектов туристской деятельности
Реферат Модели внимания