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

    

    Рисунок. 3.8 Тест программы графический редактор «Окружности» 

    Тест 4. (программа информация о преподавателях ВУЗа).

    Входными  данными будет созданный заранее файл, загруженный с компьютера.

    Рисунок 3.9 Тест программы информация о преподавателях ВУЗа 

    Тест 5. (программа-тест создание мультипликации).

    Нажав на кнопку «Начать тест» отобразятся вопрос и кнопки вариантов ответов. Ответив на вопрос, появится следующий вопрос и так пока не кончатся вопросы. По завершении теста появится результат.

 

    Рисунок 3.10 Тест программы-теста

    СПИСОК  ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

1. Гофман, В. Delphi 5. В. Гофман, А. Хомоненко  – BHV , Санкт-Петербург , 1999 г, 800 с.
2. Архангельский, A.Я. Программирование в Delphi 5. A.Я. Архангельский  – Бином, Москва , 2000 г, 1100 с.
3. Гради Буч. Обектно- Ориентированный Анализ и Проектирование. Издание Бином” Невский диалект”1998г.
4. Писарев Т.В. «Программирование в Delphi6». М.: ДМК Пресс  2002 г.
5. Delphi. Быстрый старт, Гофман В. Э., Хомоненко А. Д.. — СПб.: БХВ-Петербург, 2003. — 288 с: ил.
6. Delphi 2005. Разработка приложений для баз данных и Интернета, Валерий Фаронов, изд. Питер, 2006 г
7. Е. Марков, В. Никифоров. Delphi 2005 для .NET. - СПб.: БХВ-Петербург, 2005. - 896 с: ил.
8. М. Ву, Т. Девис, Дж. Нейдер, Д. Шрайнер. OpenGL. Руководство по программированию. 4-е издание. 2006.

ПРИЛОЖЕНИЕ 1

    Листинг программы Курсовой проект 

  unit Unit1;

  interface

  uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, StdCtrls; 

  type

    TForm1 = class(TForm)

      Button1: TButton;

      Button2: TButton;

      Button3: TButton;

      Button4: TButton;

      Button5: TButton;

      procedure Button1Click(Sender: TObject);

      procedure Button2Click(Sender: TObject);

      procedure Button3Click(Sender: TObject);

      procedure Button4Click(Sender: TObject);

      procedure Button5Click(Sender: TObject);

    private

      { Private declarations }

    public

      { Public declarations }

    end; 

  var

    Form1: TForm1;

  implementation

  {$R *.dfm} 

  procedure TForm1.Button1Click(Sender: TObject);

  begin

     winexec('Программы/Эллипс.exe',sw_show);

  end; 

  procedure TForm1.Button2Click(Sender: TObject);

  begin

    winexec('Программы/Динамический список.exe',sw_show);

  end; 

  procedure TForm1.Button3Click(Sender: TObject);

  begin

  winexec('Программы/Класс.exe',sw_show);

  end; 

  procedure TForm1.Button4Click(Sender: TObject);

  begin

    winexec('Программы/Информационная система.exe',sw_show);

  end; 

  procedure TForm1.Button5Click(Sender: TObject);

  begin

    winexec('Программы/Тест.exe',sw_show);

  end;

  end. 
 
 

    ПРИЛОЖЕНИЕ 2

    Листинг программы построения эллипса 

  unit Unit1;

  interface

  uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, ComCtrls, StdCtrls, Buttons, XPMan; 

  type

    TForm1 = class(TForm)

      StatusBar1: TStatusBar;

      BitBtn1: TBitBtn;

      XPManifest1: TXPManifest;

      procedure FormCreate(Sender: TObject);

      procedure BitBtn1Click(Sender: TObject);

      procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

        Y: Integer);

    private

      { Private declarations }

    public

      { Public declarations }

    end; 

  var

    Form1: TForm1;

    x,y:integer;

  implementation

  {$R *.dfm} 

  procedure TForm1.FormCreate(Sender: TObject);

  begin

  form1.Caption:='Эллипс';

  end; 

  procedure TForm1.BitBtn1Click(Sender: TObject);

  begin

  x:=100;

  y:=50;

  while x>0 do

   begin

   x:=x-1;

  Canvas.Ellipse(x, y, x+40*3, y+27*3);

  Canvas.FloodFill(10, 10, clBlack, fsBorder);

   end;

  end; 

  procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

    Y: Integer);

  begin

  form1.StatusBar1.Panels[0].Text:='Координаты:'+inttostr(x)+','+inttostr(y);

  end;

  end. 
 
 
 
 
 
 

    ПРИЛОЖЕНИЕ 3

    Листинг программы «Динамический список» 

    u unit dlist1_;

    interface

    uses

      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

      StdCtrls; 

    type

      TForm1 = class(TForm)

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        Edit1: TEdit;       // фамилия

        Edit2: TEdit;       // имя

        Button1: TButton;   // кнопка Добавить

        Button2: TButton;   // кнопка Показать

        procedure Button1Click(Sender: TObject);

        procedure Button2Click(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end; 

    var

      Form1: TForm1; 

    implementation

    {$R *.DFM} 

    type

      TPStudent=^TStudent; //указатель на тип  TStudent 

      TStudent = record

    f_name:string[20];  // фамилия

    l_name: string[20]; // имя

    next: TPStudent;    // следующий элемент  списка

      end; 

    var

      head: TPStudent;  // начало (голова) списка 

    // добавить элемент в начало  списка

    procedure TForm1.Button1Click(Sender: TObject);

    var

       curr: TPStudent;  // новый элемент списка

    begin

       new(curr); // выделить память для элемента списка

       curr^.f_name := Edit1.Text;

       curr^.l_name := Edit2.Text; 

       // добавление в начало списка

       curr^.next := head;

       head := curr; 

       // очистить поля ввода

       Edit1.text:='';

       Edit2.text:='';

    end; 

    // вывести список

    procedure TForm1.Button2Click(Sender: TObject);

    var

      curr: TPStudent;  // текущий элемент списка

      n:integer;        // длина (кол-во элементов) списка

      st:string;        // строковое представление списка

    begin

      n := 0;

      st := '';

      curr := head;  // указатель на первый элемент списка

      while curr <> NIL do

        begin

          n := n + 1;

          st := st + curr^.f_name + ' ' + curr^.l_name +#13;

          curr := curr^.next;  // указатель на следующий элемент

        end; 

     if n <> 0

        then ShowMessage('Список:' + #13 + st)

        else ShowMessage('В списке нет элементов.');

    end;

    end. 
 
 
 
 
 

    ПРИЛОЖЕНИЕ 4

    Листинг программы графический редактор «Окружности» 

    Модуль Unit2 

    unit Unit2;

    interface

    uses extctrls, Graphics; 

    Type

    TMyFigure = class

    private

    x,y,r: Word; {координаты центра и радиус окружности}

    Color: TColor; {цвет}

    Image: TImage; {поле для рисования}

    Procedure Clear; {стирание окружности} 

    public

    Constructor Create(aImage:TImage; ax,ay,ar:Word;aColor:TColor); {конструктор}

    Procedure Draw; virtual; abstract; {абстрактная процедура}