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

Тема: Лінійне програмування.

Мета: Ознайомитися Технологією створення програмних продуктів та освіжити в пам’яті лінійне програмування.

Склад групи:

• Матвієнко Богдан

• Могила Андрій

• Прилєпа Олександр

• Шастун Владислав

Завдання:

3.

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

Код програми:

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

#include <vcl.h>

#pragma hdrstop

#include "math.h"

#include "vetvlenie.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

Memo1->Clear();

Memo2->Clear();

Memo3->Clear();

---

Memo4->Clear();

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Memo1->Clear();

Memo2->Clear();

Edit1->Clear();

Edit2->Clear();

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Memo1->Lines->Clear();

float y,x;

float a,b,c,d;

x=StrToFloat(Edit1->Text);

y=StrToFloat(Edit2->Text);

Memo1->Lines->Clear();

switch(RadioGroup1->ItemIndex)

{

case 0: Memo1->Lines->Clear();

if ((3.14-2*x)==0){

Memo1->Lines->Add("EROR!");}

else

{ a=(cos(x)/3.14-2*x)+((16*x)*cos(x*y)-2);

Memo1->Lines->Add("A="+FloatToStrF(a, ffFixed, 7,3));}

break;

case 1: Memo1->Lines->Clear();

b=pow(2,-x)-cos(x)-(sin(2*x*y));

Memo1->Lines->Add("B="+FloatToStrF(b, ffFixed, 7,3));

break;

case 2: Memo1->Lines->Clear();

if ((12*pow(x,2)+7*x-5)==0){

Memo1->Lines->Add("EROR!");}

else

{c=2*(atan(3*x))-(1/(12*pow(x,2)+7*x-5));

Memo1->Lines->Add("C="+FloatToStrF(c, ffFixed, 7,3));}

break;

case 3:Memo1->Lines->Clear();

d=abs(pow(x,2)-pow(x,3))-((7*x)/(pow(x,3)-15*x));

Memo1->Lines->Add("D="+FloatToStrF(d, ffFixed, 7,3));

break;

}

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{ Memo2->Lines->Clear();

float A,B,C;

float p,s1,r,s;

A=StrToFloat(Edit3->Text);

B=StrToFloat(Edit4->Text);

C=StrToFloat(Edit5->Text);

switch(RadioGroup2->ItemIndex)

{

case 0:

p=(A+B+C)/2;

s1=sqrt(p*(p-A)*(p-B)*(p-C));

r=(s1/p);

s=3.14*pow(r,2);

Memo2->Lines->Add("Площадь круга вписаного в треугольник="+FloatToStrF(s , ffFixed, 7,3));

break;

case 1:

float s,s1,r1;

s=StrToFloat(Edit6->Text);

s1=(3.14*(sqrt(s)))/(3.14*0.5);

r1=s/s1;

Memo2->Lines->Add("Площадь квадрата="+FloatToStrF(s1, ffFixed, 7,3));

Memo2->Lines->Add("Площадь вписанного квадрата меньше площади заданного="+FloatToStrF(r1, ffFixed, 7,3));

break;

case 2:

float A,B,C;

float a,b,g,r;

a=StrToFloat(Edit7->Text);

b=StrToFloat(Edit8->Text);

g=StrToFloat(Edit9->Text);

r=StrToFloat(Edit9->Text);

A=2*r*sin(a*3.14/180);

B=2*r*sin(b*3.14/180);

C=2*r*sin(g*3.14/180);

Memo2->Lines->Add("Сторона А="+FloatToStrF(A, ffFixed, 7,3));

Memo2->Lines->Add("Сторона В="+FloatToStrF(B, ffFixed, 7,3));

Memo2->Lines->Add("Сторона С="+FloatToStrF(C, ffFixed, 7,3));

break;

}

}

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Memo2->Clear();

Edit3->Clear();

Edit4->Clear();

Edit5->Clear();

Edit6->Clear();

Edit7->Clear();

Edit8->Clear();

Edit9->Clear();

Edit9->Clear();

}

void __fastcall TForm1::Button5Click(TObject *Sender)

{

int N,A;

---

N=StrToInt(Edit11->Text);

switch(RadioGroup3->ItemIndex)

{

case 0:A=sqrt(N);

if((A*A)==N)

{ Memo3->Lines->Add("True-"+IntToStr(N));}

else {Memo3->Lines->Add("False-"+IntToStr(N));}

break;

case 1:if((N==0123) || (N==1234) || (N==2345) || (N==3456) ||

(N==4567) || (N==5678) || (N==6789))

{ Memo3->Lines->Add("True");}

else { Memo3->Lines->Add("False"); }

break;

}

}

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

void __fastcall TForm1::Button7Click(TObject *Sender)

{

int x,y;

x=StrToInt(Edit12->Text);

y=StrToInt(Edit13->Text);

switch(RadioGroup4->ItemIndex)

{

case 0:

if

( abs(4-x)<=1 && abs(4-y)<=2 || abs(4-x)<=3 && abs(7-y)<=1 )

{Memo4->Lines->Add("True");}

else

{Memo4->Lines->Add("False");}

break;

case 1:

if ( (pow((x+4),2)+pow((y-4),2)<=9) || ((x>0) && (y>0) && (y<=6-x)))

{Memo4->Lines->Add("True");}

else

{Memo4->Lines->Add("False");}

break;

}

}

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

void __fastcall TForm1::Button6Click(TObject *Sender)

{

Memo3->Clear();

Edit11->Clear();

}

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

void __fastcall TForm1::Button8Click(TObject *Sender)

{

Memo4->Clear();

Edit12->Clear();

Edit13->Clear();

}

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

Висновок: на лабораторніх роботах мі навчилися створювати програмні продукти группою, коли кожен робе якусь певну працю!

---

Смотрите также файлы

• Автоматизированная система сводных каталогов зарубежных книг..pdf

• Аймухамедова Г.Б. Пирролидонкарбоновая кислота (свойства, применение, способы ее получения и определения).pdf

• Аксентьев С.Т. Сопла ракетных двигателей учеб. пособие.pdf

• Аксютин Л.Р. Контроль остойчивости морского судна.pdf

• Алексеев А.И. Колебательные цепи. Параллельный контур учеб. пособие для курсантов ХВВУ.pdf