Escribir un programa en Pascal que calcule y
muestre en pantalla el área de un triángulo de
base 7 y altura 15 usando una función.
La práctica consistirá en
DEFINIR la función adecuada para que el programa siguiente
muestre en pantalla el valor del área de un
triángulo.
Program
area_triangulo;
VAR
base,altura:INTEGER;
BEGIN
base:=7;
altura:= 15;
writeln('El área de un triángulo');
writeln('de base ',base,' y altura ', altura);
writeln('es ',area(base,altura):5:2);
END.
Para definir una función hay que
realizar un análisis previo,
encontrando respuesta a las siguientes preguntas:
- ¿Qué nombre tiene la
función? area
(no usar acentos, es un identificador)
- ¿Cuántos
parámetros de entrada? 2
(necesitamos una función que reciba como entrada un valor de
la base y otro valor para altura)
- ¿de qué tipo cada
uno?. El 1er parámetro de tipo real, el
2º de tipo real
- ¿ qué nombre le damos
a cada parámetro?. b , h . Importante, utilizar para los nombres de los
parámetros formales nombres distintos a los de las variables
globales
- ¿De qué tipo es el valor
que devuelve la función? la función
devolerá un valor REAL
- ¿ Cuál es la
expresión a calcular a partir de los parámetrso
de entrada? area:=(b*h)/2
En definitiva:
Function
area(b,h:real):real;
Begin
area:=(b*h)/2;
End;
y el programa quedaría como sigue:
Program
area_triangulo;
VAR
base,altura:INTEGER;
Function area(b,h:real):real;
Begin
area:=(b*h)/2;
End;
BEGIN
base:=7;
altura:= 15;
writeln('El área de un triángulo');
writeln('de base ',base,' y altura ', altura);
writeln('es ',area(base,altura):5:2);
END.
- Hay diferentes formas de escribir varios
parámetros formales en una función:
- area(b:real;h:real):real
- area(b,h:real):real
- Incorrecto: area(b:real)(h:real):real
nooooo!
- Es importante tener en cuenta que el orden en que se escriben los
parámetros actuales debe corresponderse con el orden de los
parámetros formales.
|