-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Calcula la distancia entre dos puntos de coordenadas conocidas.
La fórmula final a despejar es:
D² = (X₂-X₁)² + (Y₂-Y₁)²
Donde:
(D) La distancia entre dos puntos.
1
2
3
4
5
6
7
8
9
10
11
12
2
3
4
5
6
7
8
9
10
11
12
Proceso DistanciaEntreDosPuntosDeCoordenadas
Escribir Sin Saltar "Ingresa el valor de x1:";
Leer x1;
Escribir Sin Saltar "Ingresa el valor de x2:";
Leer x2;
Escribir Sin Saltar "Ingresa el valor de y1:";
Leer y1;
Escribir Sin Saltar "Ingresa el valor de y2:";
Leer y2;
distancia <- RC((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
Escribir "Valor de distancia: ", distancia;
FinProceso
Escribir Sin Saltar "Ingresa el valor de x1:";
Leer x1;
Escribir Sin Saltar "Ingresa el valor de x2:";
Leer x2;
Escribir Sin Saltar "Ingresa el valor de y1:";
Leer y1;
Escribir Sin Saltar "Ingresa el valor de y2:";
Leer y2;
distancia <- RC((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
Escribir "Valor de distancia: ", distancia;
FinProceso