Funciones y Result en Delphi

Dos funciones que responden con un valor asignándolo a Result.

program FunctionsResult;
// A function answers with a value: assign it to Result.
function TideRange(Crest, Trough: Double): Double;
begin
  Result := Crest - Trough;
end;

// Result may be set, then refined before the function returns.
function Describe(Meters: Double): string;
begin
  Result := 'moderate';
  if Meters < 2.0 then
    Result := 'gentle';
end;

begin
  WriteLn('range ', TideRange(5.4, 1.1):0:1, ' m');
  WriteLn(Describe(TideRange(5.4, 1.1)), ' tide');  // a call inside a call
end.

Cómo funciona

1. TideRange(Crest, Trough: Double) toma dos parámetros y devuelve la diferencia.
2. Describe fija Result := 'moderate' y luego lo sobrescribe cuando Meters < 2.0.
3. La última línea llama a TideRange dentro de la lista de argumentos de Describe.

Palabras clave y builtins usados aquí

• Double
• Result
• WriteLn
• begin
• end
• function
• if
• program
• string
• then

El intento, en números

Líneas

19

Caracteres a escribir

487

Tokens

101

Ritmo de tres estrellas

75 tpm

Al ritmo de tres estrellas de 75 tokens por minuto, este intento toma unos 81 segundos.

Escribe este fragmento

Paso 2 de 3 en Procedimientos y funciones; paso 11 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →