[CYXARIK]

Помогите, нужно создать небольшую программу, что бы при вводе числа она вычислила какое это число: отрицательное, положительное или ноль.

Заранее спс.

[Facepalm]

Код:

  если число меньше ннуля, то
    сообщение("число отрицательное")
  иначе если число равно нулю, то
    сообщение("число равно нулю")
  иначе если число больше нуля, то
    сообщение("число положительное")
  иначе
    сообщение("число неведомое")

[NeverBelieveInWonder]

Код:

var A:String;
begin

A:=Edit1.Text;
Label1.Caption:=A;
If (StrToInt(A) < 0)then
Label1.Caption:='Число меньше нуля.';
If (StrToInt(A) = 0)then
Label1.Caption:='Число равно нулю';
If (StrToInt(A) > 0)then
Label1.Caption:='Число больше нуля';

Исходник нужен?

[NumLock]

как-то так:

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;

Description

Use Sign to test the sign of a numeric value. Sign returns

0 if AValue is zero.
1 if AValue is greater than zero.
-1 if AValue is less than zero.

[angvelem]

Если не подключать Math, то есть ещё функция Odd.

[M.A.D.M.A.N.]

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

Если не подключать Math, то есть ещё функция Odd.

Она вроде чет/нечет проверяет.
http://www.delphisources.ru/pages/fa...s/Odd.php.html

[angvelem]

Вот сейчас и вспомнилось, чего то я не то ляпнул.