purebasic.info

PureBasic forum
Текущее время: Сб дек 16, 2017 11:36 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Сравнение двух чисел (с точкой)
СообщениеДобавлено: Вт сен 05, 2017 12:53 pm 
Не в сети
профессор

Зарегистрирован: Вс авг 31, 2014 12:11 am
Сообщений: 390
Благодарил (а): 49 раз.
Поблагодарили: 18 раз.
Пункты репутации: 10
Всем привет.
Спецы, проверьте, следующий код:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Global difference.d = 0
 
Procedure CompareDoubles(A.d, B.d)
  condition = 0
  If (A < 0 And B >= 0) Or (A < 0 And B < 0)
    If A < 0 And B >= 0
      difference = Abs(A) + B
      ProcedureReturn #True
    ElseIf A < 0 And B < 0
      If Abs(A) > Abs(B)
        difference = Abs(A-B)
        ProcedureReturn #True
      EndIf
    EndIf
  ElseIf A > 0 And B > 0
    If B - A > 0
      difference = B-A
      ProcedureReturn #True
    EndIf
  EndIf
EndProcedure
 
If CompareDoubles(5.0002, 5.001)
  Debug "OK: A < B"
  Debug "difference: " + StrD(difference)
Else
  Debug "Fail: B > A"
EndIf


корректно?

[del]
Пардон.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: bnv123 и гости: 8


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB