0 / 0 / 0
Регистрация: 28.12.2015
Сообщений: 10
1

Дано действительное число a; найти такое наименьшее n, что 1+1/2+.+1/n > a

02.06.2016, 21:49. Показов 1914. Ответов 1
Метки нет (Все метки)

помогите решить в Delphi
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2016, 21:49
Ответы с готовыми решениями:

Дано действительное число а, и натуральное число n. Найти частичную сумму ряда
1/a + 1/a^2 + 1/a^4 +... 1/(a^(2)^n)

Дано действительное число a, найти такое наименьшее n. что
1+\frac{1}{2}+...+\frac{1}{n}>a

Дано действительное а Найти такое наименьшее n, что
1+ 1/2+...1/n a

Дано действительное а Найти такое наименьшее n
Дано действительное а Найти такое наименьшее n, что 1+ 1/2+...1/n a, c предусловие, с постусловием,...

1
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
03.06.2016, 08:09 2
Лучший ответ Сообщение было отмечено andreyka67rus как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var a,s:double;
    n,k:integer;
begin
val(Edit1.Text,a,k);
if k<>0 then
 begin
  ShowMessage('Введите действительное число');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
s:=1;
n:=1;
while s<a do
 begin
  inc(n);
  s:=s+1/n;
 end;
Edit2.Text:='n='+inttostr(n)+' An='+format('%.2f',[s]);
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2016, 08:09
Помогаю со студенческими работами здесь

Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а
Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)&gt;а.

Дано вещественное число a. Найти такое наименьшее n, что 1+1/2+1/3+.+1/n>a
Дано вещественное число a. Найти такое наименьшее n, что 1+1/2+1/3+...+1/n&gt;a. (С++)

Найти наименьшее число r, такое что 2 ^r≥N
Дано натуральное число N. Найти наименьшее число r, такое что 2r≥N.

Найти наименьшее число n, такое что сумма чисел от 1 до n делилась на m
найти наименьшее число n, такое что сумма чисел от 1 до n делилась на m (m &lt;&gt; = 2012). Организуйте...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru