Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: inquilin@19 en 1 Junio 2013, 15:21 pm



Título: Ayuda, codigo Pascal
Publicado por: inquilin@19 en 1 Junio 2013, 15:21 pm
Hola a todos, me hallo inmersa en un ejercicio de Pascal que, es una bobada en principio pero me trae por la calle de la amargura.

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