:
, .
1) , : b>=1 & b<=5;
2) for y<=a y, ;
3) While po<=b*12;
4) o>=-1 & o<1.
-
- :
|
:
1. Label , , .
2. Edit - . .
3. Image , .
4. Memo , . .
5. OpenDialog . .
6. Button . ( , )
|
Button1 , .. . Button1Click ( 1) . , . ( ) .
, Button2 . Button2Click Clouse ( ).
|
TForm1 ():
BorderIcons ( ) biMaximaze () .
BorderStyle ( ) bsSizeable ( ) bsSingle ( ) .
, Borland C++ Builder. , , ++ , Borland C++ Builder . Borland C++ Builder . , . , . , , . , , ++, Borland C++ Builder, . Borland C++ Builder ++, .
|
|
1. .. ++ Builder. .: -,2005. 320.: .
2. .. /++ . .: -, 2006. 288.: .
3. Borland Builder C++. . .: , 2005. 702.: .
4. . Visual C++ 6. . .: , 2006. 570.: .
5. .., .. . . .: ,2006. 256.: .
6. ., . ++. (2- ). .: , 2005. 381.: .
7. . ++: . .: , 2005. 522.: .
//---------------------------------------------------------------------------
#include <vcl.h>
#include <math.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
long int a,b,c,x,p,po;
float o,y;
if (OpenDialog1->Execute())
{
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
Edit1->Text=" ";
a=StrToInt(Memo1->Lines->operator [](0));
Label2->Caption=IntToStr(a);
b=StrToInt(Memo1->Lines->operator [](1));
Label4->Caption=IntToStr(b);
c=StrToInt(Memo1->Lines->operator [](2));
Label6->Caption=IntToStr(c);
o=0;
if ((StrToInt(Label4->Caption)>=1) && (StrToInt(Label4->Caption)<=5))
{
for (y=a*c/100;y<=a;y=y+0.001)
{
o=a;
po=1;
while (po<=b*12)
{
o=o+o*c/100;
o=o-y;
po=po+1;
}
if (o<-1) break;
if ((o<1) && (o>=-1))
{
Label8->Caption=FloatToStrF(y,ffFixed,5,2);
o=a;
po=1;
Image1->Canvas->MoveTo(15,200);
Image1->Canvas->LineTo(15,5);
Image1->Canvas->LineTo(10,10);
Image1->Canvas->MoveTo(15,5);
Image1->Canvas->LineTo(20,10);
|
|
Image1->Canvas->MoveTo(0,114);
Image1->Canvas->LineTo(500,114);
//Image1->Canvas->MoveTo(0,0);
Image1->Canvas->MoveTo(po*7+14,120-o/10);
while (po<=b*12)
{
Image1->Canvas->MoveTo(po*7+14,120-o/10);
Image1->Canvas->LineTo(po*7+15,120-o/10);
o=o+o*c/100;
o=o-y;
po=po+1;
}
}
}
}
else
{
Edit1->Text=" ";
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------