for loops in Delphi

Orchard crates are counted upward, listed back downward, then walked without an index.

program ForLoops;
uses SysUtils;

const
  Crates: array[0..3] of Integer = (14, 9, 22, 5);
var
  Row, Total, Load: Integer;
begin
  Total := 0;
  for Row := 0 to High(Crates) do      // to counts upward
    Total := Total + Crates[Row];
  WriteLn(Format('apples picked: %d', [Total]));
  for Row := High(Crates) downto 0 do  // downto counts backward
    WriteLn(Format('crate %d holds %d', [Row, Crates[Row]]));
  // for-in hands over each element, so no index is needed.
  for Load in Crates do
    Write(Load, ' ');
  WriteLn;
end.

How it works

1. for Row := 0 to High(Crates) do adds every crate into Total.
2. for Row := High(Crates) downto 0 do prints the same crates in reverse.
3. for Load in Crates do hands over each element, so no subscript is needed.

Keywords and builtins used here

• Format
• High
• Integer
• Write
• WriteLn
• array
• begin
• const
• do
• downto
• end
• for
• in
• of
• program
• to
• uses
• var

The run, in numbers

Lines

19

Characters to type

504

Tokens

124

Three-star pace

80 tpm

At the three-star pace of 80 tokens a minute, this run takes about 93 seconds.

Type this snippet

Step 2 of 3 in Control flow, step 8 of 27 in Language basics.

← Previous Next →

for loops in other languages

• Bash
• Odin
• Scala
• Zig