Algoritmos y Programación en Pascal

160 Capítulo 8. Procedimientos y funciones
procedure EscrDosDec(valor: real);
{Efecto: escribe valor, con dos decimales}
begin
WriteLn(’El valor es: ’, valor:14:2)
end; {EscrDosDec}
Una vez definido el procedimiento EscrDosDec, es posible sustituir la acción
abstracta Escribir el valor de t con dos decimales por la siguiente llamada:
EscrDosDec(t)
y, de esta forma, si ensamblamos todos estos trozos obtenemos el programa
completo:
Program CalculoTangente (input, output);
var
a, {ángulo}
t: real; {su tangente}
procedure LeerGrados(var angulo: real);
begin
Write(’¿ángulo en grados?: ’);
ReadLn(angulo);
end; {LeerGrados}
function TanGrados(angSexa: real): real;
{Dev. la tangente de angSexa, en grados}
const
Pi = 3.141592;
var
angRad: real;
begin
{Conversión de grados en radianes:}
angRad:= angSexa * Pi/180;
{Cálculo de la tangente:}
TanGrados:= Sin(angRad)/Cos(angRad)
end; {TanGrados}
procedure EscrDosDec(valor: real);
{Efecto: escribe valor, con dos decimales}
begin
WriteLn(’El valor es: ’, valor:14:2)
end; {EscrDosDec}