ayuda programa 1
Publicado por Erik (73 intervenciones) el 18/03/2014 10:46:46
hola tengo que modificar el siguiente programa:
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.
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
0