Procedimiento mal invocado

[gerupc]

Hola,

tengo un problema al llamar al procedimiento 'absoluto', ya que quiero que el resultado me lo de como valor absoluto y donde yo quiero(donde doy el resultado en cm cuadrados).. EL problema radica en que no sé como llamarlo para que cumpla esa función . Aquí os dejo el código:

Código Delphi [-]
 
var
 resultado,x1,x2,y1,y2: integer;

procedure absoluto(parametro: integer);
 Begin
  if parametro < 0 then
  parametro := -parametro;
  write(parametro);
 End;
Begin
 {Omito esta parte del código, por no ser necesaria}

 Resultado := (x2-x1)*(y2-y1);
 
 Write('El resultado es: ', absoluto(resultado),' cm cuadrados');
 readln;
End.

Pues a ver si alguine me puede guiar un poco, muchísimas gracias de antemano .

Un saludo,

Geru.

[jhonny]

La función de valor absoluto es ABS

[gerupc]

Aupa,

gracias, pero cómo la tendría que poner??

he probado de la siguiente manera y nada... :

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

Un saludo,

Geru.

[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.