Список используемой литературы
Культин Н.Б. Самоучитель С++ Builder. – СПб.: БХВ-Петербург,2005. – 320с.: ил.
Культин Н.Б. С/С++ в задачах и примерах. – СПб.: БХВ-Петербург, 2006. – 288с.: ил.
Borland Builder C++. Освой самостоятельно. – СПб.: Питер, 2005. – 702с.: ил.
Холзнер С. Visual C++ 6. Учебный курс. – СПб.: Питер, 2006. – 570с.: ил.
Красиков И.В., Красикова И.Е. Алгоритмы. Просто как дважды два. – М.: Эксмо,2006. – 256с.: ил.
Карпов Б., Баранова Т. С++. Специальный справочник (2-е издание). – СПб.: Питер, 2005. – 381с.: ил.
Франка П. С++: Учебный курс. – СПб.: Питер, 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();
}
//---------------------------------------------------------------------------