[LiveMoroz]

Есть ли в делфи (конкретно в 7-й версии) возможность узнать, какой знак у текущего числа? Если нет, то есть ли это в новых версиях?

[Assistant]

всмысле какой знак? положительный или отрицательный? если да, то:

Код:

var
  n: integer;
begin
  n := -1;
  if n < 0 then
    ShowMessage('Отрицательный')
  else
    ShowMessage('Положительный');
end;

[eXplorer]

всмысле знак у числа? вопрос можно поточнее?
если символ из таблицы символов тогда chr:
например:

Код:

ShowMessage(chr(22)); //символ "т"

[eXplorer]

ааа... вот оно что сорри...

[v1s2222]

Ну а самому написать. Даже примитивно:

Код:

function SignOf(N: Integer): Boolean; // True - число положительно, иначе - отрицательное
begin
  if(N > 0) then
    Result := True
  else
    if(N < 0) then
      Result := False
    else
      ShowMessage('Ноль.');
end;

ЗЫ Почитай хоть пару первых страничек из любого самоучителя по делфи... и не будешь задавать подобных вопросов.

[Assistant]

по-моему с 1го класса учат как определить какой знак у числа ))

или так

Код:

n := -1;
if Pos('-',IntToStr(n)) > 0 then
  ShowMessage('отрицательный');

[eXplorer]

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

по-моему с 1го класса учат как определить какой знак у числа ))

да уж..

[NumLock]

Есть готовая функция Sign:

Indicates whether a numeric value is positive, negative, or zero.

Unit

Math

Category

Arithmetic routines

Delphi syntax:

type TValueSign = -1..1;
function Sign(const AValue: Double): TValueSign; overload;
function Sign(const AValue: Integer): TValueSign; overload;
function Sign(const AValue: Int64): TValueSign; overload;

[LiveMoroz]

Ох парни... Что-то я туплю... Совсем запарили преподы с их алгоритмами, теперь даже простую задачу не могу решить... Знали бы вы, КАК я хотел решить эту задачу: хотел использовать абс, складывать, вычитать... А про "<" и ">" забыл. Сорри за потраченное время и спасибо.

[LiveMoroz]

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

по-моему с 1го класса учат как определить какой знак у числа ))

Не, первоклашкам рановато еще отрицательные числа

[kalinochkind]

Не, первоклашкам рановато еще отрицательные числа

Их в 6 проходят