Помогите написать пару прог, даже не написать а исправить) у мя написаны с программой, а мне еще нада с подпрограммой, вот это и не получается)
1) с рекуррентной формулой
с программой, как оно должно быть:
{
float x,a,S;
int n,k;
x=StrToFloat(Edit1->Text);
n=StrToInt(Edit2->Text);
S=0;
a=sqrt(x)/6;
for(k=1;k<=n;k++){S=S+a;a=sqrt(k+1)/sqrt(k)*(k+3)*a}
Edit3->Text=FloatToStr(S);
}
вот эта программа работает правильно если ввести n=4, x=2, то ответ должен приблизительно лучиться =0.343..
с подпрограммой я написал так, но ответ ваще почему то другой:
{
float R(int x)
float x,a;
int k;
S=0
a=sqrt(x)/6;
for(k=1;k<=n;k++){S=S+a;a=sqrt(k+1)/sqrt(k)*(k+3)*a}
return S;
}
void . Button1Click )
{
int n
float S;
x=StrToFloat(Edit1->Text);
n=StrToInt(Edit2->Text);
S=R(x);
Edit3->Text=FloatToStr(S);
}
вот в это программе что-то я напартачил...а ваще голова не варить разобраться=(
2)
здесь табулирование простая программа тоже работает, а вот с подпрограммою, я даже понятие не имею как ее написать(((,
здесь правильный ответ при А=0, В=2 и с шагов в Н=0.2:
х у
0.0 -1.000
0.2 -1.204
{
float A,B,H,x,y;
x=StrToFloat(Edit1->Text);
B=StrToFloat(Edit2->Text);
H=StrToFloat(Edit3->Text);
while (x<=B+0.01*H);
{y=pow(x,2.5)-exp(x);
Memo1->Lines->Add("x="+FormatFloat("0.0",x)+" "+"y="+FormatFloat("0.000",y));
x=x+H;
}
}
___________________________________________________
помогите бедному студенту..не вылетит с универа)
Сообщение отредактировал DUO Z6 - 23.11.2010, 17:18
1) с рекуррентной формулой
с программой, как оно должно быть:
{
float x,a,S;
int n,k;
x=StrToFloat(Edit1->Text);
n=StrToInt(Edit2->Text);
S=0;
a=sqrt(x)/6;
for(k=1;k<=n;k++){S=S+a;a=sqrt(k+1)/sqrt(k)*(k+3)*a}
Edit3->Text=FloatToStr(S);
}
вот эта программа работает правильно если ввести n=4, x=2, то ответ должен приблизительно лучиться =0.343..
с подпрограммой я написал так, но ответ ваще почему то другой:
{
float R(int x)
float x,a;
int k;
S=0
a=sqrt(x)/6;
for(k=1;k<=n;k++){S=S+a;a=sqrt(k+1)/sqrt(k)*(k+3)*a}
return S;
}
void . Button1Click )
{
int n
float S;
x=StrToFloat(Edit1->Text);
n=StrToInt(Edit2->Text);
S=R(x);
Edit3->Text=FloatToStr(S);
}
вот в это программе что-то я напартачил...а ваще голова не варить разобраться=(
2)
здесь табулирование простая программа тоже работает, а вот с подпрограммою, я даже понятие не имею как ее написать(((,
здесь правильный ответ при А=0, В=2 и с шагов в Н=0.2:
х у
0.0 -1.000
0.2 -1.204
{
float A,B,H,x,y;
x=StrToFloat(Edit1->Text);
B=StrToFloat(Edit2->Text);
H=StrToFloat(Edit3->Text);
while (x<=B+0.01*H);
{y=pow(x,2.5)-exp(x);
Memo1->Lines->Add("x="+FormatFloat("0.0",x)+" "+"y="+FormatFloat("0.000",y));
x=x+H;
}
}
___________________________________________________
помогите бедному студенту..не вылетит с универа)
Сообщение отредактировал DUO Z6 - 23.11.2010, 17:18