Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » ejercicio

Pascal/Turbo Pascal - ejercicio

Volver
Nuevo Tema
<<>>
 
Vista:

ejercicio

Publicado por Roberto (1 intervención) el 09/05/2013 20:12:31
me piden el siguiente ejercicio; he visto por aqui algunas soluciones pero ninguna parece que es la que piden, alguien sabria el código?

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.
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

Publicado por ramon (2158 intervenciones) el 17/05/2013 12:47:03
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
{A ver si esto te sirve}
 
 program arearect;
  uses
    crt;
  var
    vase, altura : real;
 
 
   procedure arearectangulo(var vase, altura : real);
   var
      resu : real;
   begin
      clrscr;
      writeln('  Entre La Vase Y La Altura');
      writeln;
      write('    Vase : ');
      readln(vase);
      write('    Altura : ');
      readln(altura);
   end;
 
   function pasaarea(vase, altura : real) : real;
   begin
      pasaarea := vase * altura;
   end;
 
   procedure presenta;
   begin
      clrscr;
      writeln('  *** El Area Del Rectangulo Es ***');
      writeln;
      writeln('   Area : ',pasaarea(vase,altura):0:2);
      writeln;
      writeln('  <<<< Pulse Una Tecla >>>>');
      readkey;
   end;
 
 
   begin
      arearectangulo(vase, altura);
      presenta;
   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