Pascal/Turbo Pascal - diferencia entre procedure y function

{La diferencia que axiste entre un procedimiento y una funcion es.

Que la funcion entrega un valor al procedimiento que lo llamo.

Mientras que el procedimiento no en trega valor.

Por ejemplo este procedimiento no entrega un balor al procedimiento

llamador si no a la variable asignada.}

 uses

    crt, dos;

  type

    string10 = string[10]; {asignado para la variable hora}

  var

    h : string10;

  procedure entregahora(var hora : string10);

  var

   anon,mes,dia, diasem : Word;

   ca1, ca2 : string[2];

   ca3 : string[4];

   begin

    GetDate(anon,mes,dia,diasem);

    str(dia,ca1);

    str(mes,ca2);

    str(anon,ca3);

    hora := (ca1 + '/' + ca2 + '/' + ca3);

   end;

  {Mientras que la funcion si lo entrega.}

   function entregahora2 : string10;

   var

   anon,mes,dia, diasem : Word;

   ca1, ca2 : string[2];

   ca3 : string[4];

   begin

    GetDate(anon,mes,dia,diasem);

    str(dia,ca1);

    str(mes,ca2);

    str(anon,ca3);

    entregahora2 := (ca1 + '/' + ca2 + '/' + ca3);

   end;

   procedure llamamos;

   var

      dato1, dato2 : string;

   begin

      entregahora(h);  {llamamos al procedimiento}

      dato1 := h;      { y asignamos valor}

      dato2 := entregahora2; {solo asignamos valor desde la funcion}

      writeln('procedimiento : ',dato1);

      writeln;

      writeln('Funcion : ',dato2);

      readkey;

   end;

   begin

       clrscr;

       llamamos;

   end.

  {Como puedes apreciar si que es lomismo en ejecucion pero

   mientras que el procedimiento necesita tener una variable

   activa a parte del procedimiento la funcion no con lo cual

   tenemos un dato para cualquier procedimiento o funcion

   constantemente actibo aorrando espacio en memoria para otras

   variables y aorrandonos de doble intruccion como es la llamada

   al procedimiento y la asignacion de la variable que con la funcion

   es directo.

   Esto es como decir paraque queremos coches o otro medio de transporte

   si tenemos pies, sencillo para emplearlo cuando lo necesitemos

   en nuestro caminar.

   Espero esto te sirva de algo para entender el porque los dos sistemas

   combiven juntos y los dos sirven.

   Y estara en ti emplear un sistema o otro en cada momento del programa}

Function Hora:string;     {Funcion que devuelve la hora del sistema}

Var

       h,m,s,o:word;

       ca1,ca2,ca3:string[2];

Begin

         GetTime(h,m,s,o);

          Str(h,ca1);

          Str(m,ca2);

          Str(s,ca3);

          Hora:=(ca1+':'+ca2+':'+ca3);

End;

Procedure PonerHora;     {Procedimiento que muestra la hora en pantalla}

Var

     DHora:string[8]; {Variable que almacena la Hora devuelta por la function}

     H:byte;   {Variable para mantener el reloj corriendo}

Begin

          H:=1;

          While H=1 do {Con este while logro el efecto del reloj corriendo}

          Begin

          DHora:=Hora;

          GotoXY(70,25);

          ClrEol;

          Write(DHora);

          Delay(1000);     {Este delay cumple la funcion de esperar un segundo antes de actualizar}

End;                              {De manera que logra el efecto de contar los segundos}