Pascal/Turbo Pascal - ejercicio 3

   
Vista:

ejercicio 3

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 11/03/2014 12:14:31
tengo que hacer lo siguiente:

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.

Incluya los módulos en un programa que pida al usuario la base y la altura de un rectángulo y llame a estos tres módulos para calcular el área.

gracias de antemano
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

ejercicio 3

Publicado por ramon (2072 intervenciones) el 12/03/2014 11:19:58
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
{A ver si esto te ayuda}
 
 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.
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