50101 (572485), страница 2
Текст из файла (страница 2)
if (n==6)
{
Series1->Add(x1,0,clRed);
Series1->Add(x2,1,clRed);
Series1->Add(x3,2,clRed);
Series1->Add(x4,3,clRed);
Series1->Add(x5,4,clRed);
Series1->Add(x6,5,clRed);
Series1->Add(x6,6,clRed);
}
if (n==1)
{
Series2->Add(x11,0,clRed);
Series2->Add(x11,1,clRed);
}
if (n==2)
{
Series2->Add(x11,0,clRed);
Series2->Add(x21,1,clRed);
Series2->Add(x21,2,clRed);
}
if (n==3)
{
Series2->Add(x11,0,clRed);
Series2->Add(x21,1,clRed);
Series2->Add(x31,2,clRed);
Series2->Add(x31,3,clRed);
}
if (n==4)
{
Series2->Add(x11,0,clRed);
Series2->Add(x21,1,clRed);
Series2->Add(x31,2,clRed);
Series2->Add(x41,3,clRed);
Series2->Add(x41,4,clRed);
}
if (n==5)
{
Series2->Add(x11,0,clRed);
Series2->Add(x21,1,clRed);
Series2->Add(x31,2,clRed);
Series2->Add(x41,3,clRed);
Series2->Add(x51,4,clRed);
Series2->Add(x51,5,clRed);
}
if(n==6)
{
Series2->Add(x11,0,clRed);
Series2->Add(x21,1,clRed);
Series2->Add(x31,2,clRed);
Series2->Add(x41,3,clRed);
Series2->Add(x51,4,clRed);
Series2->Add(x61,5,clRed);
Series2->Add(x61,6,clRed);
}
}
//---------------------------------------------------------------------------
Додаток 2
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int mas1[10];
int mas[10];
int mask[10];
float n1;
int masa[20];
int masb[20];
int masc[20];
int masd[20];
int mase[20];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
if (CheckBox1->Checked)
{
Label10->Caption=Label10->Caption+"x7+";
mas1[0]=7;
}
if (CheckBox2->Checked)
{
Label10->Caption=Label10->Caption+"x6+";
mas1[1]=6;
}
if (CheckBox3->Checked)
{
Label10->Caption=Label10->Caption+"x5+";
mas1[2]=5;
}
if (CheckBox4->Checked)
{
Label10->Caption=Label10->Caption+"x4+";
mas1[3]=4;
}
if (CheckBox5->Checked)
{
Label10->Caption=Label10->Caption+"x3+";
mas1[4]=3;
}
if (CheckBox6->Checked)
{
Label10->Caption=Label10->Caption+"x2+";
mas1[5]=2;
}
if (CheckBox7->Checked)
{
Label10->Caption=Label10->Caption+"x+";
mas1[6]=1;
}
if (CheckBox8->Checked)
{
Label10->Caption=Label10->Caption+"1";
mas1[7]=0;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i;
n1=StrToFloat(Edit1->Text);
mas[0]=StrToFloat(Edit2->Text);
mas[1]=StrToFloat(Edit3->Text);
mas[2]=StrToFloat(Edit4->Text);
mas[3]=StrToFloat(Edit5->Text);
mas[4]=StrToFloat(Edit6->Text);
mas[5]=StrToFloat(Edit7->Text);
mas[6]=StrToFloat(Edit8->Text);
mas[7]=StrToFloat(Edit9->Text);
for (i=0;i<=n1-1;i++)
Label11->Caption = Label11->Caption + mas[i] ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="";
Edit8->Text="";
Edit9->Text="";
Label10->Caption="";
Label11->Caption="";
CheckBox1->Checked=False;
CheckBox2->Checked=False;
CheckBox3->Checked=False;
CheckBox4->Checked=False;
CheckBox5->Checked=False;
CheckBox6->Checked=False;
CheckBox7->Checked=False;
CheckBox8->Checked=False;
Label12->Caption="";
Label13->Caption="";
Label14->Caption="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int h=0;
int r=0;
int j,i,k,l,m;
for (i=n1-1;i>0;i--)
{
if (mas[i]==1)
mas[i]=i;
else
mas[i]=0;
if (mas[0]==1)
mas[0]=1;
}
for (i=n1-1;i>0;i--)
{
if (mas[i]!=0)
{
Label12->Caption = Label12->Caption +"x"+ mas[i]+"+" ;
h++;
}
}
if (mas[0]!=0)
{
Label12->Caption = Label12->Caption + mas[0] ;
h++;
}
int max=0;
for (j=7;j>=0;j--)
{
if (mas1[j]>max)
{
max=mas1[j];
r=max;
}
}
Label13->Caption = Label13->Caption + r ;
for (i=n1-1;i>0;i--)
{
if (mas[i]!=0)
{
mas[i]+=r;
Label14->Caption = Label14->Caption +"x"+ mas[i]+"+" ;
}
}
if (mas[0]!=0)
mas[0]=r;
Label14->Caption = Label14->Caption +"x"+ (mas[0]) ;
i=0;j=0;
for (m=0;m { for (k=r;k>=0;k--) { masa[i]=mas1[i]; masb[j]=mas[j]; masc[k]=masb[j]-masa[i]; for (l=0;l { masd[l]=masa[i]+masc[k]; i++; if (masd[l]!=masb[j]) { mase[m]=masd[l]; masd[l]=mase[m]; } j++; } } } for (l=0;l { Label17->Caption=Label17->Caption + masd[l]; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button6Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { if (CheckBox1->Checked) { mask[7]=7; } if (CheckBox2->Checked) { mask[6]=6; } if (CheckBox3->Checked) { mask[5]=5; } if (CheckBox4->Checked) { mask[4]=4; } if (CheckBox5->Checked) { mask[3]=3; } if (CheckBox6->Checked) { mask[2]=2; } if (CheckBox7->Checked) { mask[1]=1; } if (CheckBox8->Checked) { mask[8]=0; } int mak[8]; int i; for (i=1;i<8;i++) { if (mask[i]>0) ; else mask[i]=99; } if(CheckBox8->Checked) mask[0]=0; else mask[0]=99; for (i=0;i<8;i++) { if (mask[i]==99) mak[i]=0; else mak[i]=1; } int max=0; for (i=0;i<8;i++) if ((mask[i]>max)&&(mask[i]!=99)) max=mask[i]; if((mask[7]!=99)&&(max>7)) { Image15->Visible=true; Image14->Visible=true; } if((mask[7]==99)&&(max>7)) Image15->Visible=true; if((mask[6]!=99)&&(max>6)) { Image2->Visible=true; Image3->Visible=true; } if((mask[6]==99)&&(max>6)) Image2->Visible=true; if((mask[5]!=99)&&(max>5)) { Image4->Visible=true; Image5->Visible=true; } if((mask[5]==99)&&(max>5)) Image4->Visible=true; if((mask[4]!=99)&&(max>4)) { Image6->Visible=true; Image7->Visible=true; } if((mask[4]==99)&&(max>4)) Image6->Visible=true; if((mask[3]!=99)&&(max>3)) { Image8->Visible=true; Image9->Visible=true; } if((mask[3]==99)&&(max>3)) Image8->Visible=true; if((mask[2]!=99)&&(max>2)) { Image10->Visible=true; Image11->Visible=true; } if((mask[2]==99)&&(max>2)) Image10->Visible=true; if((mask[1]!=99)&&(max>1)) { Image12->Visible=true; Image13->Visible=true; } if((mask[1]==99)&&(max>1)) Image12->Visible=true; Image1->Visible=true; } //---------------------------------------------------------------------------