Question

Diseña un programa que, dados cinco puntos en el plano, determine cuál de los cuatro últimos puntos es más cercano al primero. un punto se representará con dos variables: una para la abcisa y otra para la ordenada. la distancia entre dos puntos (x 1 , y 1 ) y (x 2 , y2).

Answer 1

Algoritmo DistanciaEntreCincoPuntos

Escribir "Ingrese Los Valores Del P1"

Escribir Sin Saltar "Ingrese El Valor De X1: "

leer x1

Escribir Sin Saltar "Ingrese El Valor De Y1: "

leer y1

Limpiar Pantalla

//

Escribir "Ingrese Los Valores Del P2"

Escribir Sin Saltar "Ingrese El Valor De X2: "

leer x2

Escribir Sin Saltar "Ingrese El Valor De Y2: "

leer y2

Limpiar Pantalla

//

Escribir "Ingrese Los Valores Del P3"

Escribir Sin Saltar "Ingrese El Valor De X3: "

leer x3

Escribir Sin Saltar "Ingrese El Valor De Y3: "

leer y3

Limpiar Pantalla

//

Escribir "Ingrese Los Valores Del P4"

Escribir Sin Saltar "Ingrese El Valor De X4: "

leer x4

Escribir Sin Saltar "Ingrese El Valor De Y4: "

leer y4

Limpiar Pantalla

//

Escribir "Ingrese Los Valores Del P5"

Escribir Sin Saltar "Ingrese El Valor De X5: "

leer x5

Escribir Sin Saltar "Ingrese El Valor De Y5: "

leer y5

Limpiar Pantalla

//

Distancia1=rc((x2-x1)^2+(y2-y1)^2)

Distancia2=rc((x3-x1)^2+(y3-y1)^2)

Distancia3=rc((x4-x1)^2+(y4-y1)^2)

Distancia4=rc((x5-x1)^2+(y5-y1)^2)

 

puntoinicio=ConvertirATexto(x1)+","+ConvertirATexto(y1)

 

Si Distancia1<Distancia2 && Distancia1<Distancia3 && Distancia1<Distancia4 Entonces

 mascerca=ConvertirATexto(x2)+","+ConvertirATexto(y2)

 menos=Distancia1

 mensaje="El Punto Mas Cercano A P1 "+"("+puntoinicio+")"+" Es P2 "+"("+mascerca+")"+" Con: "+ConvertirATexto(menos)+" De Distancia"

FinSi

Si Distancia2<Distancia1 && Distancia2<Distancia3 && Distancia2<Distancia4 Entonces

 mascerca=ConvertirATexto(x3)+","+ConvertirATexto(y3)

 menos=Distancia2

 mensaje="El Punto Mas Cercano A P1 "+"("+puntoinicio+")"+" Es P3 "+"("+mascerca+")"+" Con: "+ConvertirATexto(menos)+" De Distancia"

FinSi

Si Distancia3<Distancia1 && Distancia3<Distancia2 && Distancia3<Distancia4 Entonces

 mascerca=ConvertirATexto(x4)+","+ConvertirATexto(y4)

 menos=Distancia3

 mensaje="El Punto Mas Cercano A P1 "+"("+puntoinicio+")"+" Es P4 "+"("+mascerca+")"+" Con: "+ConvertirATexto(menos)+" De Distancia"

FinSi

Si Distancia4<Distancia1 && Distancia4<Distancia2 && Distancia4<Distancia3 Entonces

 mascerca=ConvertirATexto(x5)+","+ConvertirATexto(y5)

 menos=Distancia4

 mensaje="El Punto Mas Cercano A P1 "+"("+puntoinicio+")"+" Es P5 "+"("+mascerca+")"+" Con: "+ConvertirATexto(menos)+" De Distancia"

FinSi

Escribir mensaje

FinAlgoritmo