Tengo que usar tres procedimientos, para calcular el area de un rectangulo, que cada uno devuelve el área de una manera:
a) El primero por pantalla.
b) El segundo como resultado del módulo.
c) El tercero como parámetro.
Luego, en el modulo principal, tengo que pedir al usuario los datos (base y altura) y llamar a estos tres modulos para que me la muestre.
Tengo este código, pero me da error de tipo de variable y no se como hacer que funcione.
Código:
program area3;
function primerresultado(base, altura:real):real;
begin
primerresultado := base * altura;
end;
procedure segundoresultado(var base,altura:real);
begin
writeln('>>',primerresultado(base,altura));
end;
procedure tercerresultado(base,altura:real);
begin
writeln('>>',segundoresultado(base,altura));
end;
var
b, h : real;
begin
write('Indique la base: ');
readln(b);
write('Indique la altura: ');
readln(h);
readln();
end.
Agradezco la ayuda
Saludos