Помощь нужна

← →
Настя (2007-06-01 17:05) [0]

1. S=1-x2/2!+x4/4!-x6/6!+...
Здравствуйте. Напишите пожалуйста код этой программы. Заранее благодарю...

← →
Плохиш © (2007-06-01 17:06) [1]

Настя, пора с мальчиком умным познакомиться...

← →
Настя (2007-06-01 17:07) [2]

> Настя, пора с мальчиком умным познакомиться...

Я надеюсь ты такой!!!

← →
Настя (2007-06-01 17:17) [3]

Ты че спишь?

← →
Kolan © (2007-06-01 17:25) [4]

Удалено модератором

← →
default © (2007-06-01 17:25) [5]

женский виток разводных веток? что-то их много стало в последнее время

← →
Правильный Вася (2007-06-01 17:26) [6]

> Напишите пожалуйста код этой программы

код этой программы

или я чего не понял?

← →
Настя (2007-06-01 17:28) [7]

> 1. S=1-x2/2!+x4/4!-x6/6!+...

Код этой программы. Ты же Правильный?

← →
Правильный Вася (2007-06-01 17:30) [8]

а где тут программа?

← →
Плохиш © (2007-06-01 17:32) [9]

> Настя (01.06.07 17:28) [7]

Тебе же вот здесь http://delphimaster.net/view/2-1180177564/ уже предлагали помощь или мальчик не понравился?

← →
Настя (2007-06-01 17:38) [10]

> Тебе же вот здесь http://www.delphimaster.ru/cgi-bin/forum.
> pl?id=1180177564&n=18 уже предлагали помощь или мальчик
> не понравился?

Произошла ошибка. Там другая программа и там нет кода. А мне очень нужна именно код этой проги, а то мне будет очень плохо(((

← →
Настя (2007-06-01 17:44) [11]

> женский виток разводных веток? что-то их много стало в последнее
> время

Чудо ты написать можешь или нет?

← →
Настя (2007-06-01 17:50) [12]

Шевелись.................................................................

← →
Правильный Вася (2007-06-01 17:54) [13]

> Чудо ты написать можешь или нет?

чудеса писать - это к Всевышнему

← →
Однокамушкин (2007-06-01 19:08) [14]

Не, ну это же разложение cos(x) в ряд Тейлора! не надо вычислять ряд, функция cos в Delphi есть...

← →
Kostafey © (2007-06-01 19:11) [15]

Настя, делается это так:

1. Открываем Delphi.
2. Пишем "Hellow World"
3. Пишем 2+2
4. Пишем 2/2
5. Пишем функцию, вычисляющую 2/2
6. Пишем функцию, вычисляющую факториал.
7. Если не получилось 6, возвращаемся сюда с
изложением того что было сделано (код) и что не получилось
8. Вычисляем искомую задачу
9. Радуемся.

Примечание. В случае, если до пункта 6 дойти не удалоь берем книжку
(нет, не эту, эту положи пока, возьми ту где про Delphi пишут)
и не ленимся 3 дня потратить на ее изучение.

← →
TUser © (2007-06-01 19:13) [16]

Моя аська в анкете. Шли фотки. Сама понимаешь, одежды много не требуется.

← →
Kostafey © (2007-06-01 19:21) [17]

> [16] TUser © (01.06.07 19:13)

Да уж лучше фотки куда-нибудь для public - доступа ;)
По-моему этого не было в традициях форума ?

Нет, ну правда, создается такое впечатление, что Настей
назвался кто-то из форумчан, ну побаловаться человек решил.

← →
X9 © (2007-06-01 19:27) [18]

> [17] Kostafey © (01.06.07 19:21)
> Да уж лучше фотки куда-нибудь для public - доступа ;)

+1

← →
TUser © (2007-06-01 19:32) [19]

Вот может мне понравицца, и я с Настей шуры-муры заведу. А вы ее - в poublic-доступ. Нехорошо так.

← →
Kostafey © (2007-06-01 19:34) [20]

> Вот может мне понравицца, и я с Настей шуры-муры заведу.
> А вы ее - в poublic-доступ. Нехорошо так.

Ну вот как заведешь, так и дело другое, а пока дай людям
натуральной блондинкой полюбоваться ;)

← →
TStas © (2007-06-01 19:45) [21]

Девушка, вы бы хоть задачку уточнили. Вам программка какая нужна? Консолька, окошечко, или пофиг что, абы считало?
S - это чего? Сумма ряда? Если это сумма, то по каким пределам?
Если это так, то x1..Xn откуда тогда берутся?
Вот когда время свободное есть, а есть часто, я бы написал. :)

← →
TStas © (2007-06-01 19:49) [22]

Я уже догадался, что такое Хы - это итерации! :)

← →
ferr © (2007-06-01 20:01) [23]

> Если это так, то x1..Xn откуда тогда берутся?

это x^1 ... x^n ;-)

← →
TStas © (2007-06-01 20:21) [24]

program Project1;
{=======================================================================
Нужно сохранить этот текст в файлике Project1.dpr, иначе дельфи обидятся
и не будут компилить. А могут и маме даже пожаловаться.
========================================================================}
{$APPTYPE CONSOLE} //Это нельзя стирать, а то консольки не будет

uses
SysUtils; //А здесь всякие нужные вещи живут, тоже стирать нельзя

var
i: Word;
dx, Sum, y: Extended;
OK: Boolean;
s: String[20];
sign: Integer;

function Factorial(W: Word): Int64;
var
i: Word;
begin
Result := 1;
for i:=2 to W do
Result := Result*i;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }

OK := false;

repeat
begin
try
WriteLn("Please, be so kind, enter presision");
Write("dx = ");
ReadLn(s);
dx := StrToFloat(s);
OK := True;
except
begin
OK := false;
WriteLn("Lovely girl, value you entered is not a float number");
end
end;
end
until OK;
dx := abs(dx);

Sum := 1;

for i:=2 to 10 do
begin
If Odd(i) then //Определяем знак
Sign := 1
else
Sign := -1;

y := i/Factorial(i);
if y<dx then break; //очередной, не при дамах сказано, член < чем точность
//А т. к. последовательность убывает сильно, то остальные и того меньше
Sum := Sum+sign*y;
end;

WriteLn("S = ", Sum);
ReadLn;
end.

← →
TStas © (2007-06-01 20:23) [25]

Правда я предположил, что X1 - первая итерация, Х2 - вторая и т. д.

← →
Real © (2007-06-01 21:46) [26]

Блин, судя по тому что исходник таки Насте выдали, где то она выложила свои фотки с публичным доступом, а где именно? Неужели модеры удалили пост? :-)))))

← →
TStas © (2007-06-01 23:31) [27]

Это я выдал. Фотки не выкладывала. Во всяком случае я об этом не знаю. Может, где и лежит.

← →
DillerXX © (2007-06-01 23:54) [28]

Кстати, можно немного оффтопный вопрос?..
1+1/1!+1/2!+1/3!+... = exp(1)
а откуда вы это узнали? просто запомнили разложение функции exp или существуют какие-то особые методы анализа рядов? просто интересно
ну вот к примеру, если я задам произвольный ряд, можно ли как-то эффективно подобрать функцию, вычисляющую значение ряда? а то вот представил я, попадётся где-то такая задачка, а как её решать не знаю..

← →
Думкин © (2007-06-02 06:35) [29]

> DillerXX © (01.06.07 23:54) [28]

Это классика. Есть несколько рядов, которые любой изучавший матан вспомнит даже ночью.

← →
Однокамушкин (2007-06-02 09:27) [30]

> Думкин © (02.06.07 06:35) [29]
> Это классика. Есть несколько рядов, которые любой изучавший
> матан вспомнит даже ночью.

+1

← →
TUser © (2007-06-02 09:44) [31]

- Это и есть дверь в хранилище? - спросил я. - Нет, остался еще один зал, - Кройлес подсунул под ручку, усеянную отравленными заусенцами, топорище, и потянул на себя дверь. Мы прошли в следующую пещеру. Лоут повернул налево и вошел в глубокую нишу. Здесь находилась та самая дверь, которая остановила автора манускрипта. Немудрено: он никогда не видел подобных конструкций. Перед нами была словно бы увеличенная в несколько раз дверь старого сейфа с механическим кодовым замком. Большое колесо в центре было окружено кольцом с десятью цифрами от нуля от девяти. - Скверная штука... - пробормотал Лоут. - Кодовый замок. - Ты полагаешь, подобное мог соорудить Элдерик? - впервые усомнился я. - Гм... может, и нет. Хотя почему бы ему не найти где-нибудь сейф наших времен и не скопировать принцип? Так или иначе, за столь основательной дверью явно что-то есть. - Да, дверь капитальная. Не зная кода, ничего не сделаешь. Даже если бы у нас была взрывчатка... взрыв требуемой силы может обрушить своды пещеры. - Черт побери!!! - Лоут в ярости ударил по бронированной плите кулаком. Звук был глухой, как от удара по стене пещеры. - Неужели же придется возвращаться ни с чем?! Я взялся за колесо и попытался повернуть его. Оно поддалось без большого труда. Очевидно, хозяева позаботились о смазке. - Похоже, эта конструкция рассчитана на долгий срок, - заметил я. - А значит, построившие это предполагали, что кто-нибудь может воспользоваться подземельем и после них. А тогда должен быть какой-то намек, понятный посвященному. - А какие намеки были у ловушек? - ворчливо возразил Лоут. - Наверное, где-то существует план, подобный нашему манускрипту, только составленный самими хозяевами. Там указаны и ловушки, и код. Или, может, код зашифрован в тех рунах? Жаль, что я не удосужился как следует порасспросить беглых чернокнижников, в моей банде была парочка... - Взгляни-ка сюда! - прервал я его рассуждения, поднося факел к поверхности металла. Чуть выше кодового устройства в броне вытравлена была маленькая окружность, разделенная пополам прямой линией. - Еще один непонятный символ, - пробурчал Лоут. - Символ, понятный посвященному! - возразил я. - Окружность и диаметр. Число "пи". Он дико воззрился на меня. - Ты думаешь?! - У нас в институте часто ставили такой входной код. Легко запоминается. - Но откуда теперь, после гибели цивилизации... - Геометрия существовала задолго до машинной цивилизации. Как ты знаешь, само это слово означает "землемерие". Так что любой землемер, строитель или художник может знать, чему равно "пи". Не говоря уже о мастерах, оборудовавших это подземелье. Ладно, хватит болтать. Ты до какого знака "пи" помнишь? - До четвертого, - сознался он. - Я до десятого. Надеюсь, хватит. Начнем с тройки или с дробной части? Пожалуй, с тройки. - Как думаешь, при ошибке нам на головы ничего не свалится? - озабоченно спросил Лоут. - Вряд ли. Наверняка те, кто добирался сюда до нас, пробовали крутить колесо, однако я не вижу никаких скелетов, - мы с Лоутом словно поменялись ролями: мной овладел азарт шахматиста, решающего задачу. Я начал набирать код. 3... 1... 4... 1... 5... гм, если их познания такие же, как у Лоута, то не 5, а 6, и на этом все. Ладно, не получится - потом попробуем. 9... 2... 6... 5... Уже восемь знаков дробной части, не слишком ли много они от нас хотят? 3... 6! Я дальше не знаю! В этот миг раздался щелчок. - Получи... - Лоут не успел докончить. Пол внезапно ушел у нас из-под ног.

← →
TUser © (2007-06-02 09:44) [32]

Плита, перевернувшаяся под нашей тяжестью, с глухим стуком встала на место у нас над головами. Мы скользили вниз по каменному желобу. Затем под ногами раздался хруст, и спуск прекратился. Мы оказались в маленькой каморке, настоящем "каменном мешке". Один из наших факелов погас; второй, упавший на пол, озарял останки трех предыдущих знатоков геометрии. Двое из них давно уже стали скелетами; третий же, как видно, попал сюда относительно недавно и еще не конца сгнил, отчего в воздухе стояла омерзительная вонь. Я с трудом удержал тошноту. Колеблющиеся тени мертвецов, отбрасываемые огнем факела на стены, создавали ощущение эпизода из фильма ужасов. - Проклятье! - прохрипел Лоут, очевидно, тоже борясь со спазмом в горле. - Чертовы ублюдки, все-таки ловушка! - Нет, - ответил я, подымая факел выше. - Всего лишь следующий уровень нашей игры. Перед нами была еще одна мощная дверь - на этот раз, очевидно, настоящая, ибо помимо колеса для набора кода было и другое, позволявшее, как видно, выдвинуть засовы после того, как замок будет открыт. Мы поднялись на ноги и принялись разыскивать очередное "указание для посвященных". На этот раз над кодовым замком изображено было перекрестье, верхнюю половину которого пересекала кривая, почти сливавшаяся с горизонтальной чертой слева и резко возраставшая справа. - Похоже на график экспоненты, - сказал я. - Но ведь в средние века не было дифференциального исчисления! - воскликнул Лоут. - Ну, если Элдерик нашел сейф, то что мешало ему найти учебник математики? - усмехнулся я. - А если серьезно, то, по-моему, все здесь построено перебежчиками. - В таком случае, их было здесь достаточно много, судя по проделанной работе... Думаешь, экспонента? Значит, следующий код - число "е"? До какого знака ты его помнишь? - 2.718281828, - выдал я. - Гм... девять знаков дробной части. Плохо, у "пи" было 10. - Попробуем, - сказал Лоут. - Может, на этот раз они были не столь требовательны к нашей памяти. Шутка ли, кто в этом мире вообще слышал о числе "е"! Я набрал все известные мне цифры. Ничего не произошло. - Попробуй без двойки, - посоветовал Лоут. - "Пи" начиналось с тройки, - напомнил я. - Попробовать-то надо! Я набрал одну дробную часть - естественно, без результата. - Черт, учить надо было математику... - пробормотал Кройлес. - Ты помнишь, как вычисляется экспонента? - Конечно, это же самый простой ряд! Сумма по i от нуля до бесконечности... ммм... икс в i-той, деленное на i факториал... если мне память не изменяет. - Если изменяет, мы составим им компанию! - Лоут указал на пол. - Давай считать. - В уме, что ли? - Зачем в уме? - удивился Лоут. - У меня с собой грифель, я же рассчитывал делать пометки на плане. - Реально ли вообще сосчитать такое без калькулятора? - пробурчал я. - Гм... икс равен единице, остаются факториалы. Их тоже отдельно вычислять не нужно, а нужно делить результат предыдущего деления на новое i и добавлять к общей сумме. Черт возьми, считать столбиком! Что за занятие для цивилизованного человека! - Куда более подобающее занятие, чем махать мечом и добывать себе обед с помощью арбалета, - ответил Кройлес. - Хватит трепаться, давай считать, пока факел не погас. Какую точность берем для промежуточных результатов? - Думаю, 16 разрядов хватит. Не на компьютере же они сами считали, в конце концов! Вот, должно быть, была картина - двое грязных и заросших кладоискателей, запертые в крохотной пещере с тремя покойниками, при свете чадящего факела вычисляют число "е" с точностью до шестнадцатого знака! Я делил на четные значения i, Лоут - на нечетные. Тот, кто освобождался первым, складывал результаты. На двенадцатой итерации у нас наконец получилось знакомое 2.718281828, за которым шло 286 и еще цифры. Но мы не обольщались, понимая, что этот хвост еще изменится. И действительно, уже на следующем i - 13 - после 1828 получилось уже 446 с явной тенденцией округлиться в большую сторону. Четырнадцатая итерация превратила 446 в 458. При i, равном 15, 58 изменилось на 59. Таким образом, на десятом месте явно стояла четверка, но если в код входили только 10 цифр дробной части, то десятая четверка округлялась до пяти. Если же код был длиннее, то за четверкой шла опять-таки не то пятерка, не то округленная шестерка... - Я думаю, их все-таки десять, - сказал Лоут. - Никогда не доверял оптимистам, - проворчал я. - Ладно, попробуем, - и набрал 2718281828... 5. В двери что-то клацнуло! Колесо, отвечавшее за засов и прежде намертво застопоренное, теперь повернулось без особого труда. Мы потянули тяжелую дверь на себя, и она открылась.

← →
Alx2 © (2007-06-02 10:06) [33]

>TUser ©

Хм, а симпатичная практическая ценность :)
Вот сейчас поймался на мысли, что если им попадется e^Pi ? Какой ряд придумают? :)

← →
Alx2 © (2007-06-02 10:09) [34]

Для проверки:
exp(Pi) ~ 23.14069263277926900572908636794854738026....

Подумаю над быстросходящимся рядом.

← →
Romkin © (2007-06-02 10:24) [35]

> остаются факториалы. Их тоже отдельно вычислятьне нужно,
> а нужно делить результат предыдущего деления на новое
> i и добавлять к общей сумме.

Вот-вот :)
А что в [24]?!

← →
@!!ex © (2007-06-02 10:32) [36]

> [31] TUser © (02.06.07 09:44)

Что з апроизведение??? Интересно было бы почитать.

← →
DillerXX © (2007-06-02 17:29) [37]

> TUser

Спасибо, интересный отрывок :) А кто автор, как называется то?
Кстати, что мешало им 20 раз попробовать подобрать последние 2 цифры в комбинации?..

← →
ferr © (2007-06-02 17:57) [38]

> > TUser

что это? ;-)

← →
Kostafey © (2007-06-02 18:17) [39]

TUser, вот молодец, всех заинтересовал.
Ну не томи уже. :)

← →
DillerXX © (2007-06-02 18:24) [40]

/me стукнул TUser"a

← →
Kostafey © (2007-06-02 18:35) [41]

> [40] DillerXX

Зря, TUser прав. Внимательно читаем.
Какие выводы следует сделать?

← →
Kostafey © (2007-06-02 18:40) [42]

http://lib.web-malina.com/getbook.php?bid=3427

← →
Думкин © (2007-06-03 05:00) [43]

3 в кубе, год рождения Толстого, год рождения Толстого, Пи на четыре, Пи на два, Пи на четыре.... :)
2,7 1828 1828 45 90 45....

← →
Zagaevskiy © (2007-06-03 11:25) [44]

Классный отрывок!

← →
Kostafey © (2007-06-03 14:15) [45]

> [43] Думкин © (03.06.07 05:00)

Сам придумал ?

> Думкин

Вы об чём?

Если я правильно понял Думкина, ваш пост [28]

> Kostafey © (03.06.07 14:15) [45]

Зачем сам? В 1988 году рассказали в школе.

> DillerXX © (03.06.07 22:08) [46]

Если почитать ветку, то нетрудно понять о чем я. Я бы набрал второй шифр по памяти до 16 знаков. Речь идет о запоминании. Вы же сами спрашивали.

http://fan.lib.ru/n/nesterenko_j_l/text_0040.shtml

У меня получились такие значения exp(1) :
1 | 2 2 | 2,5 3 | 2,66666666666667 4 | 2,70833333333333 5 | 2,71666666666667 6 | 2,71805555555556 7 | 2,71825396825397 8 | 2,71827876984127 9 | 2,71828152557319 10 | 2,71828180114638 11 | 2,71828182619849 12 | 2,71828182828617
_________________________________________
где-то здесь по идее 2,7 1828 1828 45 90 45 |
13 | 2,71828182880375 14 | 2,71828182958565 15 | 2,71828183008457 16 | 2,71828183058353 17 | 2,71828182711759 18 | 2,71828182600454 19 | 2,71828183512516 20 | 2,71828183464945
Что я делаю не так? exp(1) = 2,71828182845905 - так Делфи выдаёт.

>
> Думкин © (04.06.07 11:29) [51]
>
> > Zagaevskiy © (04.06.07 11:28) [50]
>
> У тебя ошибка в 17-й строке.

В смысле? Я прогу написал там циклом от 1 до 20...И всё! Не получается у меня это e!

Или иначе: У тебя ошибка в проограмме.
У меня вот все ништяк:
1
2
2,5
2,66666666666667
2,70833333333333
2,71666666666667
2,71805555555556
2,71825396825397
2,71827876984127
2,71828152557319
2,71828180114638
2,71828182619849
2,71828182828617
2,71828182844676
2,71828182845823
2,71828182845899
2,71828182845904
2,71828182845905
2,71828182845905
2,71828182845905

> Думкин © (04.06.07 12:32) [54]

Почему-то до этого места :2,71828182828617 всё правильно, а потом у меня резкий скачёк аж на 0,00000000051758! не могу понять , почему!

Делаю так : цикл по х от 1 до 20 , где увеличиваю переменную типа REAL на 1/х!
Факториал - отдельной ф-цией (от 1 до числа умножать) и вроде всё.
МОжет ты использовал не REAL? Я пробовал ещё EXTENDED и DOUBLE

> Zagaevskiy © (04.06.07 13:52) [55]

Extended. Факториал считать не нужно, будешь считать тут - будешь призовые места получать только школьного уровня. :о)

Ддааа... с факториалом я ступил ... Ладно учту на будущее. Но это ничего фактичеки не меняет : результат тот же и возможно скорость больше на несколько микросекунд? Что ты делаешь?

ЗЫ Как узнал про места?

procedure TForm1.Button1Click(Sender: TObject); var exponenta : Extended; i,fak : Integer; begin exponenta:=1; fak:=1; Memo1.Clear; for i:=1 to 20 do begin fak:=fak*i; exponenta:=exponenta+(1/fak); Memo1.Lines.Add(FloatToStr(exponenta)) end; end;
Вот и всё на форму - кнопку и мемо.

ЗЫ
физ-мат 47 Выезная Олимпиада МФТИ II
физ Общегородская Олимпиада для школьников и студентов (Евразийский университет имени Гумилёва) I
инф - районная 2007 I
экон - город 2007 II
А я вообще забыл про ту анкету

> Думкин © (04.06.07 14:29) [60]
> > Zagaevskiy © (04.06.07 14:27) [59]
>
> Ты выведи значения факториалов по пути следования.

Согласен, integer не хватает,потом уходит в минус, но в той строке где скачок всё реально и след. фак. тоже считается нормально

> Zagaevskiy © (04.06.07 14:42) [61]

Что нормально, что реально? Тогда явно посчитай шаг. При такой подготовке и первые места, представляю что из себя представляют 2, 3 и далее...

> Zagaevskiy © (04.06.07 14:42) [61]

Какие фак считаются нормально? Вы можете в интежер выписать фак 13, 14-20? О чем вы вообще?

Да ты прав в integer"е не правильно считает. Я не прав. Сделал int64 тогда работает. Но как сделать, чтоб е считалось скажем знака до 20-25?

> Zagaevskiy © (05.06.07 13:54) [64]

Использовать библиотеку, свою или чужую для работы с такими числами. Я писал. 50000 знаков Е считал.

Помощь нужна Найти похожие ветки