Algoritmos y Programación en Pascal

72 Capítulo 5. Primeros programas completos
Program Hipotenusa (input, output);
begin
{Obtención de datos}
Write(’Catetos: ’);
ReadLn(catA, catB);
Hallar la hipotenusa, hipo
{Escritura de resultados}
WriteLn(’ Hipotenusa = ’, hipo)
end. {Hipotenusa}
añadiendo entonces los identificadores que van surgiendo:
var
catA, catB, {catetos}
hipo : real; {hipotenusa}
Otras instrucciones en cambio son algo más complicadas, pudiendo descomponerse
en varias más sencillas. Así por ejemplo, el paso Hallar la hipotenusa
puede llevarse a cabo en dos:
Hallar la suma de los cuadrados de los catetos (SumCuadr)
Hallar la raíz de SumCuadr, que es ya la hipotenusa
que pueden escribirse directamente como las instrucciones siguientes:
sumCuadr:= Sqr(catA) + Sqr(catB)
hipo:= SqRt(sumCuadr)
requiriéndose añadir la variable sumCuadr, de tipo real.
Finalmente, este desarrollo desemboca en un programa en Pascal:
Program Hipotenusa (input, output);
{Este programa pide las longitudes de los catetos de
un triángulo rectángulo y halla la correspondiente hipotenusa}
var
catA, catB, {longitudes de los catetos}
sumCuadr, {para guardar CatA 2 + CatB 2 }
hipo : real; {longitud de la hipotenusa}
begin {Prog. hipotenusa}
{Obtención de los datos y su comprobación:}
Write (’Introduce las longitudes de los catetos: ’);
ReadLn (catA, catB);
WriteLn (’un cateto mide ’, catA:8:4, ’ y el otro ’, catB:8:4);