Variables y constantes en Delphi

La caja de una panadería calcula lo recaudado en la mañana con un precio fijo del pan.

program VariablesConst;
uses SysUtils;

const
  ShopName = 'Rye and Reason';
  LoafPrice = 4.25;
var
  LoavesSold: Integer;
  Takings: Double;
  DoorOpen: Boolean;
begin
  // := assigns to a variable; = only names a constant or compares.
  LoavesSold := 38;
  Takings := LoavesSold * LoafPrice;
  DoorOpen := False;
  WriteLn(ShopName);
  WriteLn(Format('%d loaves sold, %.2f taken', [LoavesSold, Takings]));
  WriteLn('door open: ', DoorOpen);
end.

Cómo funciona

1. El bloque const nombra ShopName y LoafPrice, y ninguno de los dos puede cambiar.
2. El bloque var declara un Integer, un Double y un Boolean en un solo lugar.
3. Takings := LoavesSold * LoafPrice; asigna con :=, nunca con =.

Palabras clave y builtins usados aquí

• Boolean
• Double
• False
• Format
• Integer
• WriteLn
• begin
• const
• end
• program
• uses
• var

El intento, en números

Líneas

19

Caracteres a escribir

425

Tokens

79

Ritmo de tres estrellas

80 tpm

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

Escribe este fragmento

Paso 2 de 3 en Programas y variables; paso 2 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →