Distancia+entre+2+puntos+del+plano+(tipos+simples)

=__**Calcular la distancia entre dos puntos de un plano**__=

Las variables son de tipos simples. Cada punto está representado por sus dos coordenadas: x e y code format="pascal" PROGRAM DistanciaEntrePuntosEnPlano ;

PROCEDURE LeerPunto   (VAR rX, rY : Real) ; BEGIN Write ('X: ') ; ReadLn (rX) ; Write ('Y: ') ; ReadLn (rY) ; END ;

PROCEDURE MostrarPunto (rX, rY : Real) ; BEGIN Write ('(', rX:0:2, ', ', rY:0:2 , ')' ); END ;

FUNCTION fnrCalcularDistancia (rX_1, rY_1, rX_2, rY_2 : Real) : Real ; VAR rDistancia : Real ; BEGIN rDistancia := sqrt (                     sqr(rX_1 - rX_2) +                      sqr(rY_1 - rY_2)                     ) ;

fnrCalcularDistancia := rDistancia ; END ;

{-- Variables del programa principal -} VAR rX_1, rY_1, rX_2, rY_2 : Real ; rDistancia            : Real ;

BEGIN {-- Programa Principal ---} Writeln ('Escribe coordenadas del Punto 1') ; LeerPunto (rX_1, rY_1) ; Writeln ('Escribe coordenadas del Punto 2') ; LeerPunto (rX_2, rY_2) ;

rDistancia := fnrCalcularDistancia (rX_1, rY_1, rX_2, rY_2);

Writeln ; Write ('La distancia entre los puntos ') ; MostrarPunto (rX_1, rY_1) ; Write (' y ') ; MostrarPunto (rX_2, rY_2) ; Write (' es: ') ; Writeln (rDistancia:0:2) ;

Writeln ; ReadLn ; END. code