Звіт до лабораторної роботи № 6

Тема: Графіка.

Мета: Створення програми для виконання певних математичних дій та , яка складається з 5 модулів, кожен з яких містить окрему підзадачу.

Склад групи: Клюшниченко Д.В., Косенко І.М., Крикунов І.Є.

Керівник: Карпенко В.М.

Виконання роботи

Основна функція. Здійснює взаємодію між модулями.

Завдання 1. Програма будує січну у трикутній піраміді, що проходить через одну із сторін основи і середину протилежного ребра.

Завдання 3. Програма будує в шестикутній призмі січну, що проходить через одну зі сторін нижньої основи та протилежну ії сторону верхньої основи..

Задання 4. Програма створює 4 зображення згідно варіанту.

Контрольні питання. Програма створює 2 зображення згідно варіанту.

Приклад роботи з програмою

Лістинг модуля Main

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "MainUnit.h"

#include "CQUnit.h"

#include "Unit6_3.h"

#include "Unit4.h"

#include "Kubuk.h"

#include "Un2.h"

#include "Un3.h"

#include "Un4.h"

//---------------------------------------------------------------------------

void __fastcall TMainForm::Button1Click(TObject *Sender)

{

switch(RadioGroup1->ItemIndex)

{

case 0: Form1->Show();break;

case 1: Form6_3->Show();break;

case 2: Form4->Show();break;

case 3: CQForm->Show();break;

}

}

Лістинг модуля Unit6_3

#include <vcl.h>

#pragma hdrstop

#include "Unit6_3.h"

//---------------------------------------------------------------------------

void __fastcall TForm6_3::FormActivate(TObject *Sender)

{

Image1->Hide();

Image1->Canvas->Pen->Color = clGreen;

Image1->Canvas->MoveTo(20,50);Image1->Canvas->LineTo(100,20);

Image1->Canvas->LineTo(240,20);Image1->Canvas->LineTo(300,50);

Image1->Canvas->LineTo(300,270);Image1->Canvas->LineTo(220,320);

Image1->Canvas->LineTo(80,320);Image1->Canvas->LineTo(20,270);

Image1->Canvas->LineTo(20,50);Image1->Canvas->LineTo(80,80);

Image1->Canvas->LineTo(220,80);Image1->Canvas->LineTo(300,50);

Image1->Canvas->MoveTo(220,80);Image1->Canvas->LineTo(220,320);

Image1->Canvas->MoveTo(80,320);Image1->Canvas->LineTo(80,80);

Image1->Canvas->Pen->Style = psDot;

Image1->Canvas->MoveTo(100,20);Image1->Canvas->LineTo(100,250);

Image1->Canvas->LineTo(240,250);Image1->Canvas->LineTo(300,270);

Image1->Canvas->MoveTo(20,270);Image1->Canvas->LineTo(100,250);

Image1->Canvas->MoveTo(240,20);Image1->Canvas->LineTo(240,250);

Image1->Canvas->Pen->Color = clRed;

Image1->Canvas->MoveTo(20,270);Image1->Canvas->LineTo(240,20);

Image1->Canvas->LineTo(80,320);Image1->Canvas->LineTo(300,50);

}

//---------------------------------------------------------------------------

void __fastcall TForm6_3::Button1Click(TObject *Sender)

{

Image1->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm6_3::Button2Click(TObject *Sender)

{

Image1->Hide();

}