Of

Vyhrazené slovo of je použito v deklaracích typů pole, množina, soubor a v příkazech case.

Syntaxe

identifikátor =array[X..Y] of type
identifikátor =set of type
identifikátor =file of type
case výraz of <případ seznam příkazů>

Příklady

(*;Deklarace pole *) type   Seznam   =array[1..100] of Integer;
  Cetnost  =array['A'..'Z']   of Byte;
  Matice   =array[0..9, 0..9] of real;
(* typ množina *) type
  Den =(Po, Ut, Str, Ctv, Pa, So, Ne);
  Znaky   =set of Char;
  Cislice =set of 0..9;
  Dny     =set of Day;
(*;Deklarace typu soubor *)
type
  Osoba  =record
     Jmeno    : string[15];
     Prijmeni : string[25];
     Adresa   : string[35];
  end;
  SouborOsob  =file of Person;
  SouborCisel =file of Integer;
  SwapFile    =file;
(* příkaz case *) case Ch of
  'A'..'Z', 'a'..'z':  WriteLn('Písmeno');
  '0'..'9':            WriteLn('Číslice');
  '+', '-', '*', '/':  WriteLn('Operátor');
else
  WriteLn('Speciální znak');
end;