Seno de un ángulo en grados en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcula el seno de un ángulo en grados y el equivalente en radianes.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

program SenoDeUnAnguloEnGrados;

uses crt, math;

var angulo_en_grados, radianes, seno : real;

begin

    write ('Ingresa el valor de angulo en grados: ');

    readln (angulo_en_grados);

    radianes := angulo_en_grados*PI/180;

    seno := sin(radianes);

    writeln ('Valor de radianes: ', radianes:0:6);

    writeln ('Valor de seno: ', seno:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.