Файл: Звіт до лабораторної роботи #1 Лінійне програмування.doc
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 07.08.2024
Просмотров: 14
Скачиваний: 0
Звіт до лабораторної роботи №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();
}
//---------------------------------------------------------------------------
Висновок: на лабораторніх роботах мі навчилися створювати програмні продукти группою, коли кожен робе якусь певну працю!