-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Calcular la fuerza de atracción entre dos masas, separadas por una distancia, mediante la siguiente fórmula:
F = G ⨯ masa₁ ⨯ masa₂ / distancia²
Donde G es la constante de gravitación universal: G = 6.673 * 10-8 cm³/g.seg².
1
2
3
4
5
6
7
8
9
10
11
12
2
3
4
5
6
7
8
9
10
11
12
Proceso FuerzaDeAtraccionEntreDosMasas
Escribir Sin Saltar "Ingresa el valor de distancia:";
Leer distancia;
Escribir Sin Saltar "Ingresa el valor de masa1:";
Leer masa1;
Escribir Sin Saltar "Ingresa el valor de masa2:";
Leer masa2;
G <- 0.00000006673;
F <- G*masa1*masa2/distancia/distancia;
Escribir "Valor de F: ", F;
Escribir "Valor de G: ", G;
FinProceso
Escribir Sin Saltar "Ingresa el valor de distancia:";
Leer distancia;
Escribir Sin Saltar "Ingresa el valor de masa1:";
Leer masa1;
Escribir Sin Saltar "Ingresa el valor de masa2:";
Leer masa2;
G <- 0.00000006673;
F <- G*masa1*masa2/distancia/distancia;
Escribir "Valor de F: ", F;
Escribir "Valor de G: ", G;
FinProceso