задача на while (Delphi)

[schibeki]

дано число A>1. вывести наименьшее из целых чисел K, для которых сумма 1+1/2+...+1/k будет больше A и саму эту сумму. Помогите,пожалуйста...

[Streletz]

Простите, но пока нечему помогать. Выложите Ваши наработки, тогда разговор будет уже предметный.

[schibeki]

Дано вещественное число x(|x|<1) и целое число N(>0). Найти значение выражения 1+x/2-1*x/2(2*4)+1*3*x3/(2*4*6)-...+(-1)N-1*1*3*...*(2*N*3)*XN/(2*4*///*(2*N)).
Полученное число является приближенным значением функции +1X help me,please

[Streletz]

Есть раздел "Помощь студентам". По поводу задач лучше обращаться туда.

[schibeki]

вот скрин. но программа выводит один и тот же результат при разных значениях

var
k,A:integer;
S:extended;
begin
A:=StrToInt(Edit1.Text);
k:=1;
S:=1;
While S>=a do
begin
K:=k+1;
s:=s+1/k;
end;
Memo1.Lines.Add('Íàèìåíüøåå öåëîå K='+IntToStr(k));
Memo1.Lines.Add('Ñóììà ='+FloatToStr(s));

вот сам код

[Streletz]

Простите, но что Вам помешало выложить код и скрин в самом первом посте?Теперь совсем другое дело.
Проблема в том, что условие цикла составлено таким образом, что программа в цикл не входит. Если изменить его на противоположное всё становится на свои места.
То, что я исправил в Вашем коде, я подчеркнул.

var
k,A:integer;
S:extended;
begin
A:=StrToInt(Edit1.Text);
k:=1;
S:=1;
While S<=a do
begin
K:=k+1;
s:=s+1/k;
end;
Memo1.Lines.Add('Íàè ìåíüø&#229 ;å öåëîå K='+IntToStr(k));
Memo1.Lines.Add('Ñóì ìà ='+FloatToStr(s));

И, без обид, просто так на будущее, темы по поводу решения задач лучше создавать в разделе "Помощь студентам".

[Serge_Bliznykov]

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

И, без обид, просто так на будущее, темы по поводу решения задач лучше создавать в разделе "Помощь студентам".

перенёс тему...