purebasic.info
http://purebasic.info/phpBB3ex/

Сравнение двух чисел (с точкой)
http://purebasic.info/phpBB3ex/viewtopic.php?f=1&t=4757
Страница 1 из 1

Автор:  knower [ Вт сен 05, 2017 12:53 pm ]
Заголовок сообщения:  Сравнение двух чисел (с точкой)

Всем привет.
Спецы, проверьте, следующий код:
Код:
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 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/