Procedimientos en Delphi

Un procedure reporta la inspección de una colmena, y el bloque principal solo lo llama.

program ProceduresBasics;

// A procedure does work and answers nothing; call it as a statement.
procedure InspectHive(Number: Integer; const Queen: string);
begin
  WriteLn('Hive ', Number, ': queen ', Queen);
end;

// One procedure may call another, so the main block stays short.
procedure InspectApiary;
begin
  InspectHive(1, 'Hazel');
  InspectHive(2, 'Juniper');
end;

begin
  InspectApiary;
end.

Cómo funciona

1. procedure InspectHive(Number: Integer; const Queen: string); toma dos parámetros.
2. Su cuerpo es un solo WriteLn, y el procedimiento no responde con nada.
3. InspectApiary llama a InspectHive dos veces, así que el bloque principal es una sentencia.

Palabras clave y builtins usados aquí

• Integer
• WriteLn
• begin
• const
• end
• procedure
• program
• string

El intento, en números

Líneas

18

Caracteres a escribir

395

Tokens

65

Ritmo de tres estrellas

80 tpm

Al ritmo de tres estrellas de 80 tokens por minuto, este intento toma unos 49 segundos.

Escribe este fragmento

Paso 1 de 3 en Procedimientos y funciones; paso 10 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →