4 / 4 / 1
Регистрация: 21.11.2012
Сообщений: 87
1

Вычисление факториала

28.04.2014, 20:41. Показов 1064. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var x,k,n,p,i,q:integer;
s,s1:double;
begin
q:=0;
k:=0;
x:=strtoint(edit2.text);
 
while s>1.0e-13 do
begin
 if (k mod 2=0) then p:=1 else p:=-1; //(-1)^k
 s1:=exp((2*k+1)*ln(x))/(2*k+1); //(x^(2k+1))/(2k+1)!
 q:=q*(k*2+1); здесь как бы увеличиваю факториал
 s:=s+p*s1; нахождение суммы
 k:=k+1; 
Memo1.Lines.Add(floatToStr(s));
end;
У меня не получается сделать (2k+1)! Выдает не верные значения подскажите!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2014, 20:41
Ответы с готовыми решениями:

Вычисление факториала
как с помощью for написать программу для подсчета n!

Вычисление факториала
как для кнопки сделать так, чтоб она считала факториал числа ( в калькуляторе). мы нажимаем цифру,...

Вычисление факториала
Ошибка дает на f := factorial(k); procedure TForm1.Button1Click(Sender: TObject); var...

Вычисление факториала
Помогите разобраться! Нужно посчитать факториал 25, а у меня при вводе 21 вылетает ошибка в чем...

1
Модератор
3487 / 2610 / 741
Регистрация: 19.09.2012
Сообщений: 7,971
28.04.2014, 20:49 2
5-я строка:
Delphi
1
q:=1;
и q ты считаешь, а нигде не используешь.

Лучше задание и формулу напиши.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2014, 20:49
Помогаю со студенческими работами здесь

Вычисление факториала
Доброго всем времени суток. Пишу простенькое приложение для вычисления кол-ва сочетаний с...

Калькулятор, вычисление факториала
Необходим код простейшего калькулятора... (+ - * /) Из нестандартных операций нужен лишь n! (n...

Вычисление факториала - составить код по блок-схеме
Доброго времени суток, я как новенький в работе Delphi не могу сделать програмку в консольном...

Двоичный логарифм факториала
Всем привет. Нужно создать калькулятор, все арифметические действия я сделал, но никак не могу...


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

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

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