Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
sven4ik
0 / 0 / 1
Регистрация: 24.02.2012
Сообщений: 18
#1

Дано целое число. Найти сумму 1+1/1+1/3+...+1/N - Delphi

23.05.2013, 15:24. Просмотров 1025. Ответов 6
Метки нет (Все метки)

Решите кто-нибудь задачку.Заранее благодарю!

Дано целое число N(>0). Найти сумму 1+ 1/1+1/3+...+1/N
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2013, 15:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано целое число. Найти сумму 1+1/1+1/3+...+1/N (Delphi):

Дано целое число N. Найти сумму простых чисел от 2 до N
дано целое число N.найти сумму простых чисел от 2 до N. 2<=N<=1000000 надо...

Дано вещественное число X и целое число N (> 0). Найти значение выражения
Дано вещественное число X и целое число N (> 0). Найти значение выражения X –...

For20. Дано целое число N (> О) Используя один цикл найта сумму 1!+2!+3!+.+N!; (выражение N! -факториал— обозначает пр
For20. Дано целое число N (> О) Используя один цикл найта сумму...

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

Дано целое число N и набор из N целых чисел. Найти номера первого и последнего минимального элемента из данного набора
Дано целое число N и набор из N целых чисел. Найти номера первого и последнего...

Дано вещественное число B, целое число N и набор из N вещественных чисел, упорядоченных по возрастанию
Дано вещественное число B, целое число N и набор из N вещественных чисел,...

6
mss
2631 / 2256 / 275
Регистрация: 24.12.2010
Сообщений: 13,725
23.05.2013, 15:51 #2
Цитата Сообщение от sven4ik Посмотреть сообщение
Решите кто-нибудь задачку
С какой радости ?
Задачка тебе дана - тебе ее и решать ..
2
sven4ik
0 / 0 / 1
Регистрация: 24.02.2012
Сообщений: 18
23.05.2013, 19:18  [ТС] #3
mss, я попросил,значит не умею! что не понятного?!
0
ILNAR_93
Android
236 / 236 / 49
Регистрация: 19.01.2013
Сообщений: 1,855
Записей в блоге: 3
23.05.2013, 21:15 #4
типо этого ? если я правильно понял задачу то вроде так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
var i,n:integer;
sum:real;
begin
n:=strtoint(edit1.Text);
i:=1;
sum:=0;
while (i<=n) do
begin
sum:=sum+(1 / i);
i:=i+2;
end;
showmessage(floattostr(sum+1));
end;
в коде может быть ошибка !

код написал т.к. раньше такой хр*нью не занимался и самому стало интересно понять логику выполнения, а так бы как и всех "сделайте мне прогу" отправил бы в фриланс
1
ProRockX
262 / 108 / 26
Регистрация: 16.03.2013
Сообщений: 272
23.05.2013, 23:47 #5
kaspersky, нужно не забывать что к дробям нужно ещё и 1 прибавить.
0
ILNAR_93
Android
236 / 236 / 49
Регистрация: 19.01.2013
Сообщений: 1,855
Записей в блоге: 3
23.05.2013, 23:51 #6
Цитата Сообщение от ProRockX Посмотреть сообщение
нужно не забывать что к дробям нужно ещё и 1 прибавить.
это ты про это

showmessage(floattostr(sum+1)); ?
0
ProRockX
262 / 108 / 26
Регистрация: 16.03.2013
Сообщений: 272
23.05.2013, 23:56 #7
Цитата Сообщение от kaspersky Посмотреть сообщение
showmessage(floattostr(sum+1));
Опаньки, не заметил). Пора, наверное, спать идти
0
23.05.2013, 23:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2013, 23:56
Привет! Вот еще темы с решениями:

Дано неотрицательное целое число n. Необходимо вывести число n + 1
Дано число n. Необходимо вывести число n + 1. Дано неотрицательное целое...

Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, вывести...

Дано четырехзначное число.Найти сумму 3 и 1 цифр
Дано четырехзначное число.Найти сумму 3 и 1 цифр

Дано целое число
Дано целое число N и набор из N целых чисел. Найти номер перво¬го...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru