• Lunes 17 de Junio de 2019, 08:56

Autor Tema:  tengo un problema 1  (Leído 1123 veces)

Napster_EPD

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
tengo un problema 1
« en: Jueves 20 de Marzo de 2014, 16:14 »
0
hola tengo que modificar el siguiente programa:

program arearectangulo;
  uses
     crt;
   var
     base, altura : integer;

   procedure areapantalla(bas, alt : integer);
   begin
      writeln('  El Area Por Pantalla Es = ',bas * alt);
   end;

   function area(bas, alt : integer) : integer;
   begin
      area := 0;
      area := bas * alt;
   end;

  procedure parametros(var bas, alt : integer);
  begin
     writeln('**** Base Del Rectangulo ****');
     write('  Entre Base   : ');
     readln(bas);
     write('  Entre Altura : ');
     readln(alt);
  end;

  begin
      clrscr;
      parametros(base, altura);
      writeln;
      areapantalla(base,altura);
      writeln('  El Area Por Resultado Es = ',area(base,altura));
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end.


este es el ejercicio:
Codifique tres módulos en pascal que realicen el cálculo del área de un rectángulo, de base y altura pasados como parámetros. Cada uno de estos módulos devolverá el área de una manera:
a) El primero por pantalla.
b) El segundo como resultado del módulo.
c) El tercero como parámetro.

col el que ya eh hecho el programa, que esta arriba, pero tengo que cambiar Los parámetros, deben ser de tipo real.
y además falta implementar una 3ª forma en la que el área sea un parámetro pasado por referencia.