Найти сумму чисел..

[Ins1De]

Найти сумму чисел 1, 1/2, 1/3, 1/4 и т.д., больших заданного числа А.

{
{
double s,a,n;
s=0;
a=Edit1->Floating;
for (n=1; ;n+=1)
{s=1/(n+1);
}
if (s>a)
Label1->Caption=n;
else
Label1->Caption="Нет решений";
}

}

Помогите решить задачку,заранее спасибо..

[Inv1s]

int S = 1.5f;
int p = 2;
while (1/p > A)
{
S += 1 / (++p);
}

[Ins1De]

int S = 1.5f;
int p = 2;
while (1/p > A)
{
S += 1 / (++p);
}

Спасибо большое,но не чего не понял..что откуда береться.. S = 1.5f - это что? по подробнее можно?

переделал программу...

{
{
double a,b=0,S=0;
a=Edit1->Text.ToDouble();
for (b=1; ;b+=1)
if(1./b>a)
{S=S+1/b;
Label1->Caption="S";}
else
Label1->Caption="Нет решения";
}
}

Теперь почему что то программа виснет...помогите найти ошибку

[Inv1s]

for (b=1; ;b+=1)
это как бы бесконечный цикл

[Ins1De]

{
double b=0,S=0,a;
a=Edit1->Text.ToDouble();
for (b=1;b<=a;b+=1)
S=S+b;
if(1./b>a)
{S=S+1./b;
Label1->Caption=S;}
else
Label1->Caption="Нет решения";
}

тогда так...теперь почему то ответ 1...

[Inv1s]

float S = 1;
int p = 1;
double A = Edit1->Text.ToDouble();
while (1/(++p) > A)
{
S += 1 / p;
}

[Ins1De]

Ответ все равно один,а мы вводя в Edit вещественное значение, должны получить сумму до этого числа...

Спасибо Inv1s, все разобрался.последний твой код правильный.

[rmv240899]

Сообщение от Ins1De

Спасибо большое,но не чего не понял..что откуда береться.. S = 1.5f - это что? по подробнее можно?

1.5f - литерал типа float...

[_Bers]

Сообщение от Inv1s

float S = 1;
int p = 1;
double A = Edit1->Text.ToDouble();
while (1/(++p) > A)    //<--условие выполнится, 
                              //только если А отрицательное число
{
    S += 1 / p; // <--всегда будет равно 1
}

Вы уверенны, что это именно то, что было нужно?

[Inv1s]

S += 1 / p; // <--всегда будет равно 1

Верное замечание, надо было 1.0f писать.
Но в любом случае человек разобрался