Как сделать так чтобы факториал находился лишь из целых неотрицательных чисел?

@long399 · Регистрация: 16.10.2013

Author24 — интернет-сервис помощи студентам

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

@saden · 13.03.2014, 20:50

Pascal

1	if x=round(x)

@cotseec · 13.03.2014, 20:56

saden, вещественно число никогда не будет равно целому (х - вещественное, результат round - целое)
тут надо попробовать что-то из разряда

Delphi

1	if Frac(x) = 0 then....

т.е. дробная часть равна нулю (или меньше какого-либо малого эпсилон)

@long399 · 13.03.2014, 20:58 **[ТС]**

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

if x=round(x)

Delphi

1	if not a=round(a)

ругается [DCC Error] Calculator.pas(456): E2015 Operator not applicable to this operand type
a - real

@Arcor · 13.03.2014, 20:58

к примеру вот так, защита от неправильного ввода

Delphi

function fact(x: String): Integer;
var i: Integer;
    k: Integer;
begin
  if not TryStrToInt(x, k) or (StrToInt(x) < 0) then
    begin
      Result := -1;
      Exit;
    end;
  Result := 1;
  for i := 1 to k do
    Result := Result * i;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var n: Array [0..4]of String;
    i: Integer;
begin
  n[0] := '5';
  n[1] := '5a';
  n[2] := '2.5';
  n[3] := 'cc';
  n[4] := '-6';
  for i := 0 to Length(n) - 1 do
 
  if fact(n[i]) <> -1 then
    Memo1.Lines.Add('Факториал от ' + n[i] + ' = ' + IntToStr(fact(n[i])))
  else
    Memo1.Lines.Add('Факториал от ' + n[i] + ' = ERROR');
end;

вот результат от разных значений

Код

Факториал от 5 = 120
Факториал от 5a = ERROR
Факториал от 2.5 = ERROR
Факториал от cc = ERROR
Факториал от -6 = ERROR

@saden · 13.03.2014, 21:04

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

вещественно число никогда не будет равно целому

у меня работало. Если сильно страшно

Pascal

1	if x-round(x)=0

Добавлено через 5 минут

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

Delphi

1	if not a=round(a)

ругается [DCC Error] Calculator.pas(456): E2015 Operator not applicable to this operand type
a - real

по-моему, нот выполняется раньше. Возьми сравнение в скобки

@long399 · 13.03.2014, 21:33 **[ТС]**

Разобрался, спасибо всем большое!!!

@long399 Модератор 2639 / 1751 / 920 Регистрация: 16.10.2013 Сообщений: 5,067 Записей в блоге: 14
		1
	Как сделать так чтобы факториал находился лишь из целых неотрицательных чисел? 13.03.2014, 20:43. Показов 1260. Ответов 6 Метки нет (Все метки) Приветствую вас, форумчане. Подскажите, как сделать так чтобы факториал находился лишь из целых неотрицательных чисел? В противном случае выдавать сообщение об ошибке. Не знаю как условие проверки составить, чтобы исключались дробные числа.. 0

@long399 Модератор 2639 / 1751 / 920 Регистрация: 16.10.2013 Сообщений: 5,067 Записей в блоге: 14
	13.03.2014, 21:33 [ТС]	7
	Разобрался, спасибо всем большое!!! 0

Как сделать так чтобы факториал находился лишь из целых неотрицательных чисел?

Решение