Retomando el ejemplo del pseudocódigo de la página 2 del apunte anterior
inicio
leer base,altura
sup=(base*altura)/2
imprimir sup
Teniendo en cuenta el tipo de variables a utilizar, todas variables reales, podemos encarar la traducción a Pascal.
PROGRAM TRIANG (input,output);
VAR base,altura,sup:real;
BEGIN
read (base,altura);
sup :=(base * altura)/2;
write('La superficie es=',sup);
END.
Si bien éste programa está completo, no presentará en la práctica algunas características deseables para
cualquier programa. Agreguemos a ese mismo programa, comentarios que den una idea a otro programador que se
encontrara con él para modificarlo. Los comentarios permitirán que se de una idea de que es lo que se está
desarrollando en cada paso. Los comentarios se encierran entre () paréntesis o entre {} llaves, según la versión de
Pascal.
PROGRAM TRIANG (input,output);
{*Calculo de la superficie de un triángulo*}
VAR base,altura,sup:real;
{*Declaración de las variables*}
BEGIN {*Comienzo de las sentencias ejecutables*}
read (base,altura);
{*Leer los valores de base y altura*}
sup :=(base * altura)/2;
{*Multiplicar base por altura y dividir por 2.
asignar ese valor a la variable sup*}
write('La superficie es=',sup);
{*Escribir el valor calculado de la superficie*}
END. {*Fin de las sentencias ejecutables y del programa*}
fin
No hay comentarios:
Publicar un comentario