Algoritmos y Programación en Pascal

8.1. Introducción 159
De esta forma, se puede proceder al diseño general del algoritmo en ese nivel
posponiendo el desarrollo de cada acción abstracta. Cuando, más tarde, se
concreten sus detalles, el lenguaje de programación se habrá ampliado (en el
ámbito de nuestro programa, véase el apartado 8.5) con esta acción o expresión,
legitimando entonces su uso.
En Pascal, una acción se introduce mediante un procedimiento. Por ejemplo,
la lectura del ángulo se puede hacer así:
procedure LeerGrados(var angulo: real);
begin
Write(’¿ángulo en grados?: ’);
ReadLn(angulo);
end; {LeerGrados}
En Pascal, una expresión abstracta se introduce mediante una función. En
nuestro ejemplo, vamos a crear una función IR → IR, a la que llamaremos
TanGrados, que recibe un argumento real, lo pasa a radianes y devuelve el valor
de la tangente, calculado a partir de las funciones predefinidas Sin y Cos: 2
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}
Ahora, la asignación de t en el programa principal definitivo:
t:= TanGrados(a)
es válida.
Finalmente, en nuestro ejemplo utilizaremos otro procedimiento al que llamaremos
EscrDosDec, que recibe un valor de tipo real y lo muestra con dos
decimales.
2 En adelante emplearemos Dev. como abreviatura de Devuelve en las especificaciones de las
funciones.