• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 727
  • Last Modified:

Reminder of a Floating Point to Floating Point Devision Divistion. Is it Possible?


I'm translating a VB.NET Code to Delphi (Pascal). In this code, MOD operator used to get the reminder of a floating point division. I could not understand what a reminder of a floating point division mean and How it's possible to get a reminder of such division.

Here is the code I'm got in stuck with:
        If angle Mod Math.PI = Math.PI / 2D Then Return Single.PositiveInfinity

In pascal there is DIV and MOD operator but they both could only used to get the reminder of Integer division. For floating point division, / Operator could be used. But there is no operator for calculating the reminder of a floating point division.

So, Does it really possible to get the reminder of floating point division? If so, how could I translate this code to pascal?

Second What "2D" mean? Does it mean that it's a Double Number?

Private Function GetAngularCoefficient(ByVal segment As PointF()) As Single
        If segment.Length <> 2 Then Throw New ArgumentException("Parameter must be of 2 items", "segment")
        Dim U As PointF = segment(0)
        Dim V As PointF = segment(1)
        Dim angle As Double = GetAngularCoefficientRads(U, V)
        If angle Mod Math.PI = Math.PI / 2D Then Return Single.PositiveInfinity
        If angle Mod Math.PI = -Math.PI / 2D Then Return Single.NegativeInfinity
        Return CSng(Math.Tan(angle))
    End Function

Open in new window

  • 2
1 Solution
ShimaAlaviAuthor Commented:
I'm not sure. But As I understand from searches on the internet, MOD operator return reminder of Integer division and not floating-point division.
ShimaAlaviAuthor Commented:
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Train for your Pen Testing Engineer Certification

Enroll today in this bundle of courses to gain experience in the logistics of pen testing, Linux fundamentals, vulnerability assessments, detecting live systems, and more! This series, valued at $3,000, is free for Premium members, Team Accounts, and Qualified Experts.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now