Калькулятор, вычисление факториала

@YellowSubmarine · Регистрация: 04.11.2015

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

Добавлено через 21 минуту
Если будет проще, то можно и так! Из операций ( +, -, *, /, n! ) первые 2 строчки это аргументы.В 3 вводит саму операцию. А 4 будет ответом... Прошу о помощи...

@YellowSubmarine · 04.11.2015, 21:38 **[ТС]**

А в идеале было бы вот так... Кнопки я набросал... А вот задать выполнение действий знаний не хватит

@D1973 · 04.11.2015, 22:18

YellowSubmarine, а как на счет того, чтобы в низу страницы ссылки посмотреть? Куча ведь таких тем - копипасть на здоровье...

@YellowSubmarine · 05.11.2015, 00:26 **[ТС]**

Вот то, что нужно, но по отдельности, объединить не выходит! Умельцы нужна помощь!!!

@northener · 05.11.2015, 00:41

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

Вот то, что нужно, но по отдельности, объединить не выходит! Умельцы нужна помощь!!!

Умельцы, как правило, не любят возиться с мусором нарытым на помойке.
Если сам ничего не можешь/не хочешь писать может поможешь умельцам материально?

@PharatriX · 05.11.2015, 01:00

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,b,i:integer;
begin
b:=1;
a:=StrToInt(Edit1.Text);
for i:=2 to a do
b:=b*i;
Edit1.Text:=FloatToStr(b);
end;

@RostorLuxor · 05.11.2015, 05:53

Delphi

function GetFact( f:Integer ) : Integer;
var i1:Integer;
begin
for i1 := f-1 downto i1 > 1 do
begin
f := f*i1;
end;
result := f;
end;

@CheshireesCat · 05.11.2015, 07:20

+ - * / сам сделаешь а факториал держи

Delphi

function factorial(n:integer):integer;
var
  i:integer;
  f:integer = 1;
begin
  for i:=1 to n do
    f:=f*i;
  result:=f;
end;

@YellowSubmarine 0 / 0 / 0 Регистрация: 04.11.2015 Сообщений: 6
		1
	Калькулятор, вычисление факториала 04.11.2015, 21:27. Показов 2736. Ответов 7 Метки нет (Все метки) Необходим код простейшего калькулятора... (+ - * /) Из нестандартных операций нужен лишь n! (n факториал). Добавлено через 21 минуту Если будет проще, то можно и так! Из операций ( +, -, *, /, n! ) первые 2 строчки это аргументы.В 3 вводит саму операцию. А 4 будет ответом... Прошу о помощи... Изображения 0

@YellowSubmarine 0 / 0 / 0 Регистрация: 04.11.2015 Сообщений: 6
	04.11.2015, 21:38 [ТС]	2
	А в идеале было бы вот так... Кнопки я набросал... А вот задать выполнение действий знаний не хватит Миниатюры 0

@D1973 Модератор 8339 / 5551 / 2264 Регистрация: 21.01.2014 Сообщений: 23,840 Записей в блоге: 3
	04.11.2015, 22:18	3
	YellowSubmarine, а как на счет того, чтобы в низу страницы ссылки посмотреть? Куча ведь таких тем - копипасть на здоровье... 0

@northener пофигист широкого профиля 4632 / 3077 / 852 Регистрация: 15.07.2013 Сообщений: 17,740
	05.11.2015, 00:41	5
	Сообщение от YellowSubmarine Вот то, что нужно, но по отдельности, объединить не выходит! Умельцы нужна помощь!!! Умельцы, как правило, не любят возиться с мусором нарытым на помойке. Если сам ничего не можешь/не хочешь писать может поможешь умельцам материально? 1

Опции темы