|
#1
|
|||
|
|||
Определение числа
Помогите, нужно создать небольшую программу, что бы при вводе числа она вычислила какое это число: отрицательное, положительное или ноль.
Заранее спс. |
#2
|
||||
|
||||
Код:
если число меньше ннуля, то сообщение("число отрицательное") иначе если число равно нулю, то сообщение("число равно нулю") иначе если число больше нуля, то сообщение("число положительное") иначе сообщение("число неведомое") Ну ты понел ^_^. |
#3
|
|||
|
|||
Код:
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:='Число больше нуля'; |
#4
|
||||
|
||||
как-то так:
Цитата:
Пишу программы за еду. __________________ |
#5
|
||||
|
||||
Если не подключать Math, то есть ещё функция Odd.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
||||
|
||||
Цитата:
http://www.delphisources.ru/pages/fa...s/Odd.php.html — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#7
|
||||
|
||||
Вот сейчас и вспомнилось, чего то я не то ляпнул.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#8
|
||||
|
||||
Всё правильно про проверку, но 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; Последний раз редактировалось BBBCat, 14.03.2013 в 21:25. |
#9
|
||||
|
||||
Ну нафик некропостингом заниматься?
Если на то уж пошло, все решается одной ф-ей Sign, которая вовращает -1 (отриц), 0, 1 (полож). — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#10
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |