Двоичный логарифм факториала

@sereganator · Регистрация: 24.09.2013

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

@palva · 19.02.2014, 15:57

Delphi

function log2fact(n: Integer): Real;
var
  r: Real;
  i: Integer;
begin
  r:=0.0;
  for i := 2 to n do r := r + ln(10);
  log2fact := r/ln(2.0);
end;

@sereganator · 19.02.2014, 18:48 **[ТС]**

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

Delphi

procedure TForm1.Button7Click(Sender: TObject);
var A,B,C:real; st:string; code : integer;
begin
st:=Edit1.Text;
Val(st,A,code);
st:=Edit2.Text;
Val(st,B,code);
C:=Power(A,B);
STR(C:0:3,st);
Edit3.Text:=st;
end;

@Puporev · 19.02.2014, 19:38

точно так же

Delphi

1
2
3

C:=log2fact(A);
STR(C:0:3,st);
Edit5.Text:=st;

Добавлено через 53 секунды
Функция описывается в начале программы, до процедур..

@sereganator · 19.02.2014, 20:11 **[ТС]**

я в этом новичок, можно поподробнее, а то у меня не работает(

@Puporev · 19.02.2014, 20:18

Ну я не телепат, но примерно так.

Delphi

function log2fact(n: Integer): Real;
var
  r: Real;
  i: Integer;
begin
  r:=0.0;
  for i := 2 to n do r := r + ln(10);
  log2fact := r/ln(2.0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
 
end;
 
............................................................
procedure TForm1.Button7Click(Sender: TObject);
begin
 
end;
procedure TForm1.Button8Click(Sender: TObject);
var A,B,C:real; st:string; code : integer;
begin
st:=Edit1.Text;
Val(st,A,code);
C:=log2fact(A);
STR(C:0:3,st);
Edit6.Text:=st;
end;

@sereganator · 19.02.2014, 20:51 **[ТС]**

ерунда какая то, выдает много ошибок, хоть функцию описал после слова private

Добавлено через 19 минут
выдает несовместимость Real and Integer

@palva · 19.02.2014, 21:29

Сообщение от sereganator

выдает несовместимость Real and Integer

Тогда начните функцию по-другому

Delphi

1	function log2fact(n: Real): Real;

Вообще-то грех вычислять факториал от действительного числа.
Потом, смущает, что вы используете функцию Val. В Delphi вообще-то принято использовать функции типа StrToInteger. Из Edit1 вы получаете строку типа String, а Val подразумевает использование ShortString. Правда, преобразования происходят автоматом, но предупреждения все равно выдаются.

@sereganator · 19.02.2014, 21:31 **[ТС]**

объясни пожалуйста на примере, что такое двоичный логарифм факториала.

@palva · 19.02.2014, 21:52

Ну, если n=4 то надо вычислить $https://www.cyberforum.ru/cgi-bin/latex.cgi?\mbox{log}_2\, (1\cdot2\cdot3\cdot4)=\mbox{log}_2\,1+\mbox{log}_2\,2+\mbox{log}_2\,3+\mbox{log}_2\,4.$

Добавлено через 15 минут
Я поясню. Экономнее и очевиднее сначала вычислять факториал, а потом брать от него логарифм. Но если число n большое, например 1000, то вы рискуете получить переполнение при вычислении факториала. Поэтому я разложил логарифм произведения в сумму логарифмов.

@sereganator 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 52
		1
	Двоичный логарифм факториала 19.02.2014, 14:24. Показов 3108. Ответов 9 Метки нет (Все метки) Всем привет. Нужно создать калькулятор, все арифметические действия я сделал, но никак не могу понять как написать такую функцию двоичный логарифм факториала. Подскажите пожалуйста __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@sereganator 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 52
	19.02.2014, 20:11 [ТС]	5
	я в этом новичок, можно поподробнее, а то у меня не работает( 0

@sereganator 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 52
	19.02.2014, 20:51 [ТС]	7
	ерунда какая то, выдает много ошибок, хоть функцию описал после слова private Добавлено через 19 минут выдает несовместимость Real and Integer 0

@sereganator 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 52
	19.02.2014, 21:31 [ТС]	9
	объясни пожалуйста на примере, что такое двоичный логарифм факториала. 0

@palva 3926 / 2844 / 660 Регистрация: 08.06.2007 Сообщений: 9,639 Записей в блоге: 4
	19.02.2014, 21:52	10
	Ну, если n=4 то надо вычислить $https://www.cyberforum.ru/cgi-bin/latex.cgi?\mbox{log}_2\, (1\cdot2\cdot3\cdot4)=\mbox{log}_2\,1+\mbox{log}_2\,2+\mbox{log}_2\,3+\mbox{log}_2\,4.$ Добавлено через 15 минут Я поясню. Экономнее и очевиднее сначала вычислять факториал, а потом брать от него логарифм. Но если число n большое, например 1000, то вы рискуете получить переполнение при вычислении факториала. Поэтому я разложил логарифм произведения в сумму логарифмов. 0

Опции темы