[ Foro de Pascal ]

funciones y procedimientos

17-Feb-2014 00:50
Carolina Sanchez
3 Respuestas

Hola! me podrian ayudar con este ejercicio?.. es de un trabajo practico de la universidad..
ESCRIBIR UN PROCEDIMIENTO QUE DEVUELVA EL MAYOR DE TRES NUMEROS INGRESADOS, UTILIZANDO UNA FUNCION.
El problema que tengo es que no se como incluir la funcion dentro del procedimiento, solo eso.. muchas gracias


17-Feb-2014 11:59
Nacho Cabanes (+30)

Primero crea la función que reciba tres números y devuelva el mayor de ellos. Es fácil. Pon aquí tu propuesta de solución, si tienes dudas.

Entonces quedarías un procedimiento que pida los 3 datos al usuario y use esa función para calcular el resultado.


17-Feb-2014 15:19
Carolina Sanchez

esto fue lo que hice y se ejecuta bien..

 
program tresmayores;
var
   n1,n2,n3: integer;
function mayores(a,b,c: integer): integer;
 begin
 if (a>b) and (a>c) then
  mayores:= a
 else
  if (b>a) and (b>c) then
   mayores:= b
  else
   mayores:= c;
 end;
 
procedure mayor;
begin
writeln('el mayor de los numeros es ');
writeln (mayores(n1,n2,n3));
end;
 
begin
writeln ('ingrese tres numeros');
readln (n1,n2,n3);
write;
mayor;
end.        
 



17-Feb-2014 15:33
Nacho Cabanes (+30)

Está casi perfecto. Yo habría evitado el uso de variables globales, haciendo que el procedimiento "mayor" pidiera también los datos, pero como eres principiante, se te puede perdonar.  ;-)






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)