P__6_E19

=__**Calcular fuerza de atracción entre dos masas**__= >

code format="pascal" PROGRAM Pagina_6_Ejercio_19 ; CONST G = 6.67E-11 ; { Nw. m^2 / Kg^2 } VAR rMasa_1, rMasa_2, rDistancia, rFuerza : Real ; BEGIN WriteLn ; WriteLn ('Programa que calcula la fuerza de atraccion gravitacional',           ' entre dos masas') ; WriteLn ;

Write ('Escribe el valor de una de las masas (Kg): ') ; ReadLn (rMasa_1) ; Write (' el valor de la otra masa (Kg): ') ; ReadLn (rMasa_2) ; Write (' la distancia que las separa (m): ') ; ReadLn (rDistancia) ;

{ Cálculo de la fuerza de atracción } rFuerza := G * (rMasa_1 * rMasa_2) / Sqr (rDistancia) ;

WriteLn ; WriteLn ; WriteLn (' La fuerza de atraccion vale: ', rFuerza:12, ' Nw') ;

WriteLn ; ReadLn ; END. code