duda ejercicio 2
Publicado por Erik (73 intervenciones) el 14/03/2014 18:10:58
hola ,tengo una duda. Tengo que hacer lo siguiente:
Los parámetros deben ser de tipo real.
Y te falta implementar una 3ª forma en la que el área sea un parámetro pasado por referencia.
en el siguiente ejercicio.
gracias de antemano.
Los parámetros deben ser de tipo real.
1
2
3
4
function area(bas, alt : real) : real;
begin
area := bas * alt;
end;
Y te falta implementar una 3ª forma en la que el área sea un parámetro pasado por referencia.
en el siguiente ejercicio.
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.gracias de antemano.
Valora esta pregunta
0