[ Foro de Pascal ]

funciones y procedimientos

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

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.

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.        

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