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

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

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

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

	Вопрос # {номер вопроса}. {Текст вопроса} 1.   {Вариант ответа №1}. 2.   {Вариант ответа №2}. 3.   {Вариант ответа №3}.

Ваш результат: Всего вопросов                                        5 Количество правильных ответов            # Оценка                                                      #

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

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

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

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

	КР. 991096.00.00.00 ПЗ Лист ——– Изм. Лист № докум. Подп. Дата 5

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);

	КР. 991096.00.00.00 ПЗ Лист ——– Изм. Лист № докум. Подп. Дата 6

КР. 991096.00.00.00 ПЗ Лист ——– Изм. Лист № докум. Подп Дата Страницы: 1, 2, 3, 4, 5, 6, 7 Новости Быстрый поиск Группа вКонтакте: новости Пока нет Новости в Twitter и Facebook                  Новости Обратная связь Поиск Обратная связь Реклама и размещение статей на сайте © 2010.