[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]

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

[BBBCat]

Всё правильно про проверку, но Facepalm, видимо по неопытности, предложил немного неправильное направление, проще надо:

Код:

procedure TButton1Click(Sender: TObject);
var
  X: Extended;
begin
  X := StrToFloat(Edit1.Text);
  if X < 0 then
    Label1.Caption := 'Число меньше нуля'
  else if X > 0 then
    Label1.Caption := 'Число больше нуля'
  else
    Label1.Caption := 'Число равно нулю';
end;

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

Ну нафик некропостингом заниматься?

Если на то уж пошло, все решается одной ф-ей Sign, которая вовращает -1 (отриц), 0, 1 (полож).

[NumLock]

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

проще надо

проще это в 4-ом сообщении функция