Glossary

writeln('Hello World!');

See in the In-line Assembler tutorial

append(SurnameFile);
writeln(SurnameFile, 'Gee');

writeln('Hello World!');

var ClassForenames : array  [1..31] of string;

asm
  ADD EAX, 23
  MOV ECX, 0
end;

ADD EAX, 23
MOV ECX, 0

Number1 := 53;
Answer := Number1 * 5;

01010111 is the binary representation of 87 in denary (decimal).

01010111_{base 2} = 2⁶ + 2⁴ + 2² + 2¹ + 2⁰ = 64 + 16 + 4 + 2 + 1 = 87

Found := FALSE;

Total = 100

case MenuChoice of
  1 : PrintRecords;
  2 : Display;
  3 : Exit;
end;

See Character Check in the Validation tutorial.

See Check Digit in the Validation tutorial.

{$Apptype Console}

const
  VAT_RATE = 0.175;
  HOURLY_MIN = 4.75;

FirstRec^.Surname := 'Sugar';

where Product is a variable representing an address. See Addressing Modes in the In-line Assembler tutorial.

A := 21 DIV 4;

A := 23 DIV 4;

See the Enumerated Types tutorial.

StudentFile : file of Tstudent;

Radius := 56.23;

intNum := trunc(realNum);

In the following code the number of items per pack is hard-coded to be two.

    PackWeight := 2 * SINGLE_WEIGHT;

If the number of items per pack is later changed to four, it is impractical to change every '2' into a '4' because in many instances the '2' will have nothing to do with the number of items in a pack. It would be much easier to make the changes if a named constant were used instead:

    PackWeight := NUMBER_PER_PACK * SINGLE_WEIGHT;

if UserAnswer = Sum then inc(Score);

This statement loads the denary value 34 into the accumulator. See also Addressing Modes in the In-line Assembler tutorial

Students[5]:= 'Hunt';

See Addressing Modes in the In-line Assembler tutorial.

LEA EAX, Int1; //   Load the address of Int1 into the accumulator.
MOV [EAX], EDX; // Copy the contents of EDX to Int1 using indirect addressing. 

Quotient := 22 DIV 7;
Remainder := 22 MOD 7;

repeat
  Product := Product * 2;
until Product > 1000;

See Length Check in the Validation tutorial.

const
  rainbow : array[1..7] of string =('red', 'orange', 'yellow', 'green',
            'blue', 'indigo', 'violet');

              writeln('Hello');
              Area := 3.142 * r * r;

procedure Display;
var
  Count : integer;

repeat
  Product := Product * 2;
until Product > 1000;

Remainder := 21 MOD 4;

Num1 and Num2 are operands in this expression.

EAX and 15 are operands of the operation with opcode MOV.

The operator in this expression is +.

See the Operators tutorial.

function Cube(Num : real): real;

procedure InputChoice(var Choice : integer);,
called with the statement InputChoice(Choice);, where Choice is the global variable that is changed by the procedure.

procedure Calculate(GrandTotal : real);,
called with the statement Calculate(Total);, where Total is a global variable that remains unchanged by the procedure.

type
  PtrRec = ^TRec;
  TRec = record
    Surname : string[15];
    Score : integer;
    Next : PtrRec;
  end;
var FirstRec : PtrRec;
begin
  //Assign a new record of type TRec to FirstRec
  FirstRec := new(PtrRec);

Multiplication has greater precedence than addition.

See the Operators tutorial for the precedence of different types of operator.

repeat
  write('Please enter your surname. ');
  readln(Surname);
until length(Surname) > 0;

See the Procedures and Functions tutorial.

repeat
  write('Age of student? ');
  readln(Age);
until (Age > 10) and (Age < 20);

y := ln(x);

See the Recursion tutorial for the theory of recursion and programs with recursive routines.

= (is equal to)
<> (is not equal to)
> (is greater than)
<= (is less than or equal to)

repeat
  Product := Product * 2;
until Product > 1000;

procedure Hello;
var
  Forename : string;
begin
  write('What is your first name? ');
  readln(Forename);
  writeln('Hello, ', Forename);
end;

if not Found then
  writeln('Not found.');

write('What is your first name? ');
readln(Forename);
writeln('Hello, ', Forename);

type
  TCapsSet = set of 'A' .. 'Z';
var
  MyCapsSet : TCapsSet =   ['C', 'O', 'M'];

function Factorial(i : integer) : int64;
begin
  if i = 0 then
    result := 1
  else
    result := i * Factorial(i - 1);
end;

See String Variables.

intNum := trunc(realNum);

for Count = 1 to 5 …
instead of
for Count := 1 to 5 …

uses
  Classes, SysUtils;

See Type Check in the Validation tutorial.

repeat
  write('Month number? ');
  readln(MonthNum);
until MonthNum in [1..12];

procedure InputChoice(var Choice : integer);,
called with the statement InputChoice(Choice);, where Choice is the global variable that is changed by the procedure.

write('Enter date: ');

writeln('Hello World!');