|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.10.2011, 19:49 | #1 |
Пользователь
Регистрация: 08.10.2011
Сообщений: 42
|
Проблемы с факториалом
Есть такая задачка
Даны натуральное число n, действительные числа a[1],...,a[n]. Вы- числить -a[1]/1!+a[2]/2!-...+(-1)^n*a[n]/n!. Вот код, но все равно не считает сумму uses crt; const n=5; var s,dx, factorial: real; i : integer; a:array[1..n] of real; begin clrscr; FOR I:=1 TO n DO BEGIN a[i]:= random*100; //READ (X[I,J]); END; WRITELN(' ':20,'GIVVEN MASS'); FOR I:=1 TO n DO BEGIN WRITE(a[I]:7:2); WRITELN; END; factorial := 1.0; s:=0.0; repeat factorial := factorial * n; for i:=1 to n do begin dx:=(exp(n*ln(-1)*a[i])/factorial); s:=s+dx; end; until dx<0.001; writeln(s:32:16); readln end. Буду очень благодарен за помощь. |
13.10.2011, 20:21 | #2 | |
Форумчанин
Регистрация: 19.03.2010
Сообщений: 409
|
Цитата:
Код:
Код:
Есть вопросы, пишите в ЛС.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задание с факториалом, суммой ряда и массивам | Mr_sniper | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 03.10.2011 23:27 |
ПРограмма с факториалом (функция факториал) | factor1 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 24.06.2011 15:20 |
Задача с факториалом | bobkoff | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 9 | 13.01.2011 18:52 |
Программа с факториалом с исопльзованием цикла | BOJIT | Помощь студентам | 0 | 27.10.2010 13:13 |