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

Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.

25.05.2010, 14:42. Показов 7807. Ответов 4
Метки нет (Все метки)

Надо решить две задачки выручите пожалуйста!

1.Дано вещественное число X и целое число N (> 0). Найти значение выражения
X – X3/(3!) + X5/(5!) – … + (–1)N•X2•N+1/((2•N+1)!)
(N! = 1•2•…•N). (Полученное число является приближенным значением функции sin в точке X).
2.Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2010, 14:42
Ответы с готовыми решениями:

Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + . + 1/N будет больше A, и саму эту сумму
Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 +...

Дано вещественное число A (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+…+1/N будет больше A, и сумму
Добрый вечер всем. Нужна помощь в задании по Pascal ABC Само задание: Дано вещественное число...

Вывести наибольшее из целых чисел N, для которых сумма будет больше A
Помогите пажалуйста с программой, очень срочно надо. Задача: Дано вещественное число A (>1)....

Даю вещественно число A(>1). Вывести наименьшее из целых чиселN, для которых сумма 1+1/2+...+1/N будут больше A, и саму эту сумму
Даю вещественно число A(>1). Вывести наименьшее из целых чиселN, для которых сумма 1+1/2+...+1/N...

4
0 / 0 / 0
Регистрация: 14.04.2010
Сообщений: 8
31.05.2010, 04:30  [ТС] 2
Помогите пожалуйста! Я оплачу решенные задачки!
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
31.05.2010, 06:34 3
Лучший ответ Сообщение было отмечено как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var x,t,s:real;
    n,i:integer;
begin
clrscr;
write('Введите действительное число x=');
readln(x);
write('Введите целое число n=');
readln(n);
s:=x;{первое значение}
t:=x;
for i:=2 to n do{следующие}
 begin
  t:=-t*x*x/((2*i-1)*(2*i-2));{меняем знак, домножаем на x^2, 
                               делим на следующую пару чисел (2*3, 4*5, 6*7)}
  s:=s+t;{суммируем}
 end;
writeln('S  =',s:0:4);
write('Sin=',sin(x):0:4);
readln
end.
Добавлено через 1 минуту
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a,s:real;
    k:longint;
begin
clrscr;
repeat
write('Введите действительное число A>1 a=');
readln(a);
until a>1;
s:=1;k:=1;
while s<a do
 begin
  k:=k+1;
  s:=s+1/k;
 end;
write('K=',k,'  S=',s:0:3);
readln
end.
3
0 / 0 / 0
Регистрация: 14.04.2010
Сообщений: 8
31.05.2010, 12:13  [ТС] 4
Цитата Сообщение от Puporev Посмотреть сообщение
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var x,t,s:real;
    n,i:integer;
begin
clrscr;
write('Введите действительное число x=');
readln(x);
write('Введите целое число n=');
readln(n);
s:=x;{первое значение}
t:=x;
for i:=2 to n do{следующие}
 begin
  t:=-t*x*x/((2*i-1)*(2*i-2));{меняем знак, домножаем на x^2, 
                               делим на следующую пару чисел (2*3, 4*5, 6*7)}
  s:=s+t;{суммируем}
 end;
writeln('S  =',s:0:4);
write('Sin=',sin(x):0:4);
readln
end.
Добавлено через 1 минуту
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a,s:real;
    k:longint;
begin
clrscr;
repeat
write('Введите действительное число A>1 a=');
readln(a);
until a>1;
s:=1;k:=1;
while s<a do
 begin
  k:=k+1;
  s:=s+1/k;
 end;
write('K=',k,'  S=',s:0:3);
readln
end.
Спасибо большое я понимаю что это не сложно, но я много проболел и надо хоть как то разбираться! Как оплатить вам?
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
31.05.2010, 12:31 5
Вне раздела Фриланс переговоры об оплате запрещены, это нарушение правил.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2010, 12:31
Помогаю со студенческими работами здесь

Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму
Дано числа А&gt;1. Вывести наибольшее их целых чисел К, для некоторых сумма 1+1/2+...+1/К будет меньше...

Вывести наибольшее из целых чисел K, для которых сумма будет меньше или равна заданному
Дано целое число N (&gt; 1). Вывести наибольшее из целых чисел K, для которых сумма 1 + 2 + … + K...

Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю. 2)...

Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму
Дано число A (&gt;1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+...+1/k будет...


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

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

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