• Lenguaje

    Pascal

  • Descripción

    Convierte grados sexagesimales a centesimales.

1
2
3
4
5
6
7
8
9
10
11
12
13
program GradosSexagesimalesACentesimales;
uses crt;

var grados_centesimales, grados_sexagesimales : real;
begin
    write ('Ingresa el valor de grados sexagesimales: ');
    readln (grados_sexagesimales);
    grados_centesimales := grados_sexagesimales*10/9;
    writeln ('Valor de grados centesimales: ', grados_centesimales:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.