Вычисление функций в среде Delphi

[Vetal07]

Вычислить значение функции y:=y+x/f, где х=103,13; f=4! y-это сумма x/f

Вот моя наработка

procedure TForm1.Button1Click(Sender: TObject);
var
 x,y,f:real;
 i:integer;
begin
x:= StrToFloat(Edit1.Text);
y:= StrToFloat(Edit1.Text);
f:=1;
While i<5 do
f:=f*(f+1);
y:=y+x/f;
i:=i+1;
Label1.Caption:='Y(x)= '+FloatToStrF(y,ffFixed,5,2);
end;

[Вавел из ГМТУ]

Мне непонятно условие. Напиши математическим языком...

Что касается кода, то он работать не будет... А работает?

[mihali4]

Вот этот кусок меня смущает:

While i<5 do
f:=f*(f+1);
y:=y+x/f;
i:=i+1;

Я бы сделал:

y:=0;
for i:=1 to 4 do
begin
f:=f*(f+1);
y:=y+x/f;
end;

[DeKot]

Зачем две переменные x и y , если значения их задается одним и тем же способом?

x:= StrToFloat(Edit1.Text);
y:= StrToFloat(Edit1.Text);

Или речь идет о Edit1 и Edit2?

[VintProg]

i:=i+1;

А можно и так

Inc(i);

.

[Vetal07]

Насчет условия,то я его полностью описал,больше у меня ни чего не дано из того что я описал.

В программе используються Edit1(Ввод Х-х равен 103,13). Button1(Вычислить),Button2(Очистить ),Label1(Вывод Y(x)=177,2035-это ответ должен быть таким)

[mihali4]

Чепуха. Это выражение при данном Х имеет пределом значение 174,4.
Так что 177,2035 быть никак не может.
Можете подсчитать вручную...

var
 x,y,f:real;
 i:integer;
begin
x:= StrToFloat(Edit1.Text);
y:= StrToFloat(Edit1.Text);
f:=1;
for i:=1 to 4 do //можете поставить 10 вместо 4 - ничего не изменится
begin
f:=f*(f+1);
y:=y+x/f;
end;
Label1.Caption:='Y(x)= '+FloatToStrF(y,ffFixed,5,2);
end;

[Vetal07]

mihali4
Ну да,177,2035 ни как не получается(((

Все я разобрался с этим

var
 x,y,f:real;
 i:integer;
begin
x:= StrToFloat(Edit1.Text);
y:= 1;
f:=1;
for i:=1 to 4 do
begin
f:=f*i;
y:=y+x/f;
end;
Label1.Caption:='Y(x)= '+FloatToStrF(y,ffFixed,4,2);
end;

Есть у меня пару вопросов,как сделать что бы вводилася одна запятая,и сетфокус при запуске проги был в поле Еди1 сразу,ну что бы сразу можно было вводить с клавы цифры