Procedimiento mal invocado

[roman]

gerupc, para que pudieras usar absoluto como indicas, necesitarías que fuera una función, pero tú la definiste como procedimiento. Tendría que ser así:

Código Delphi [-]
function absoluto(parametro: integer);
begin
  if parametro < 0 then
    parámetro := -parametro

  Result := parametro;
end;

Pero, como te comenta Jhonny, ya existe una función que hace eso.

// Saludos

[dec]

Hola,

Ah... poder "corregir" a Román... ¡qué gusto!

Código Delphi [-]
function absoluto(parametro: integer): integer;
begin
  if parametro < 0 then
    parámetro := -parametro

  Result := parametro;
end;

[jhonny]

Empezado por dec

Hola,
Ah... poder "corregir" a Román... ¡qué gusto!

Hola, Ah... poder "corregir" a Román y a dec... ¡qué gusto!

Código Delphi [-]
function absoluto(parametro: integer): integer;
begin  
   if parametro < 0 then    
     parametro := -parametro; //No se noto mucho la negrilla en este punto y coma 
   Result := parametro;
end;

[gerupc]

Aupi,

bien, ahora, desde donde llamo a la función?? ya que me dice que el identificador 'Result' no lo encuentra...

He puesto lo siguiente (la funcion tal y como me comentais), pero la llamo asi:

Código Delphi [-]
 
write(absoluto ('El resultado es: ', [resultado], ' cm cuadrado'); readln;

De todas maneras, porqué la necesidad de hacerlo con una función en lugar de un procedimiento??
Acabo de encontrar en un libro de Delphi 2006, el siguiente procedimiento:

Código Delphi [-]
 
procedure MakeAbsolute(Num: integer);
begin
      if Num < 0 then
      Num := -Num;
WriteLn('Valor absoluto = ', Num);
end;

Por eso no entiendo la necesidad de hacerlo mediante una función en lugar de un procedimiento como este, si los dos tienen la misma función, no?

Un saludo,

Gracias.

[jhonny]

Lo que sucede es que una función te devuelve un valor, mientras que un procedimiento no.

Si usas la función abs, que viene en Delphi solo tendrías que hacer algo asi:

Código Delphi [-]
 
WriteLn('Valor absoluto = ', Abs(Num));

[gerupc]

De acuerdo, una vez más, todo perfecto .

Muchísimas gracias y un saludo,

Geru.