Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
sven4ik
0 / 0 / 0
Регистрация: 24.02.2012
Сообщений: 18
#1

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

23.05.2013, 15:24. Просмотров 932. Ответов 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 - Delphi
дано целое число N.найти сумму простых чисел от 2 до N. 2<=N<=1000000 надо сделать с помощью 2 While'oв . помогите пжл. заранее...

Дано вещественное число X и целое число N (> 0). Найти значение выражения - Delphi
Дано вещественное число X и целое число N (> 0). Найти значение выражения X – X^3/(3!) + X^5/(5!) – … + (–1)^N·X^(2·N+1)/((2·N+1)!) (N! =...

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

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

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

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

6
mss
2334 / 2253 / 250
Регистрация: 24.12.2010
Сообщений: 13,727
23.05.2013, 15:51 #2
Цитата Сообщение от sven4ik Посмотреть сообщение
Решите кто-нибудь задачку
С какой радости ?
Задачка тебе дана - тебе ее и решать ..
2
sven4ik
0 / 0 / 0
Регистрация: 24.02.2012
Сообщений: 18
23.05.2013, 19:18  [ТС] #3
mss, я попросил,значит не умею! что не понятного?!
0
ILNAR_93
Android
231 / 231 / 25
Регистрация: 19.01.2013
Сообщений: 1,752
Записей в блоге: 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 / 7
Регистрация: 16.03.2013
Сообщений: 272
23.05.2013, 23:47 #5
kaspersky, нужно не забывать что к дробям нужно ещё и 1 прибавить.
0
ILNAR_93
Android
231 / 231 / 25
Регистрация: 19.01.2013
Сообщений: 1,752
Записей в блоге: 3
23.05.2013, 23:51 #6
Цитата Сообщение от ProRockX Посмотреть сообщение
нужно не забывать что к дробям нужно ещё и 1 прибавить.
это ты про это

showmessage(floattostr(sum+1)); ?
0
ProRockX
262 / 108 / 7
Регистрация: 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 - Delphi
Дано число n. Необходимо вывести число n + 1. Дано неотрицательное целое число n. Известно, что количество цифр в числе не превышает ...

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

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

Дано целое число - Delphi
Дано целое число N и набор из N целых чисел. Найти номер перво¬го экстремального (то есть минимального или максимального) элемента из...


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

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

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