Показать сообщение отдельно
Старый 22.02.2004, 19:58     # 6
ppiitt
Guest
 
Сообщения: n/a

Цитата:
compaq:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float A,x,y;
float ymin,ymax,xmin,xmax;

for (A=1;A<=1;A++)
{
ymax=-1e10;
ymin=1e10;
ListBox1->Items->Add("A="+FloatToStr(A));
for (x=0.5;x<=2;x=x+0.1) // çäåñü ; òåáå íå íóæíà. ýòî áóäåò ïðîñòî íóëåâîé for
{
y=F(x,A);
if(y>ymax)
{
ymax=y;
xmax=x;
}
if(y<ymin)
{
ymin=y;
xmin=x;
}
}
ListBox2->Items->Add("Xmax="+FloatToStr(xmax)+" Ymax="+FloatToStr(ymax));
ListBox3->Items->Add("Xmin="+FloatToStr(xmin)+" Ymin="+FloatToStr(ymin));
ListBox4->Items->Add("X="+FloatToStr(x)+" Y="+FloatToStr(y));
}
} // âîò ýòîé ñêîáêè ó òåáÿ íåõâàòàëî


float F (float x,float A)
{
return x*x-A*sin(x);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float A,x,y;
float ymin,ymax,xmin,xmax;

for (A=1;A<=1;A++)
{
ymax=-1e10;
ymin=1e10;
ListBox1->Items->Add("A="+FloatToStr(A));
for (x=0.5;x<=2;x=x+0.1) // çäåñü ; òåáå íå íóæíà. ýòî áóäåò ïðîñòî íóëåâîé for
{
y=F(x,A);
if(y>ymax)
{
ymax=y;
xmax=x;
}
if(y<ymin)
{
ymin=y;
xmin=x;
}
ListBox2->Items->Add("Xmax="+FloatToStr(xmax)+" Ymax="+FloatToStr(ymax));
ListBox3->Items->Add("Xmin="+FloatToStr(xmin)+" Ymin="+FloatToStr(ymin));
ListBox4->Items->Add("X="+FloatToStr(x)+" Y="+FloatToStr(y));
}
}
} // âîò ýòîé ñêîáêè ó òåáÿ íåõâàòàëî


float F (float x,float A)
{
return x*x-A*sin(x);
}