AMLab Logo AMLab 
Eng          
         
 
 

 



1.

2.

3.

4.

5.

6.

7.

 

1


.

1.

     

    C++ :

    float Distance(Point p0,Point p1)
    {
        float xdist, ydist;
        xdist = p1.x - p0.x;
        ydist = p1.y - p0.y;
        return sqrt (xdist * xdist + ydist * ydist);
    }

    Basic :

    Function Distance(p0 As Point, p1 As Point) As Single
        Dim xdist As Single, ydist As Single
        Let xdist = p1.x - p0.x
        Let ydist = p1.y - p0.y
        Let Distance = sqrt(xdist * xdist + ydist * ydist)
    End Function

    Pascal :

    Function Distance(p0,p1:Point):Real;
        Var xdist,ydist:Real;
    Begin
        xdist:=p1.x-p0.x;
        ydist:=p1.y-p0.y;
        Distance:=sqrt(xdist*xdist+ydist*ydist);
    End;

    , Intel Pentium :


    55 8B EC 83 EC 4C 53 56 57 8D 7D B4 B9 13 00 00 00 B8 
    CC CC CC CC F3 AB D9 45 10 D8 65 08 D9 5D FC D9 45 14 
    D8 65 0C D9 5D F8 D9 45 FC D8 4D FC D9 45 F8 D8 4D F8 
    DE C1 83 EC 08 DD 1C 24 E8 A1 00 00 00 83 C4 08 D9 55 F4

    | |  

1999-2001 AM Lab.

amlab@mail.ru

. . . . - : . . .