Pascal/Turbo Pascal - ayuda programa 1

   
Vista:

ayuda programa 1

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 18/03/2014 10:46:46
hola tengo que modificar el siguiente programa:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda programa 1

Publicado por ramon (2072 intervenciones) el 23/03/2014 11:44:22
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
{Esto servirá}
 
   program arearectangulo;
  uses
     crt;
   var
     base, altura : real;
 
   procedure areapantalla(bas, alt : real);
   begin
      writeln('  El Area Por Pantalla Es   = ',bas * alt:0:2);
   end;
 
   function area(bas, alt : real) : real;
   begin
      area := 0.0;
      area := bas * alt;
   end;
 
  procedure parametros(var bas, alt : real);
  begin
     writeln('**** Base Del Rectangulo ****');
     write('  Entre Base   : ');
     readln(bas);
     write('  Entre Altura : ');
     readln(alt);
  end;
 
   function arearefe : real;
   begin
      arearefe := base * altura;
   end;
 
  begin
      clrscr;
      parametros(base, altura);
      writeln;
      areapantalla(base,altura);
      writeln('  El Area Por Resultado Es  = ',area(base,altura):0:2);
      writeln('  El Area Por referencia Es = ',arearefe:0:2);
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar