Of: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(Vytvorená stránka „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...“)
 
Řádek 10: Řádek 10:
  
 
Příklady
 
Příklady
  (*;Deklarace pole *) type   Seznam  =array[1..100] of Integer;
+
  { Deklarace pole }
  Cetnost  =array['A'..'Z']  of Byte;
+
type Seznam  =array[1..100] of Integer;
  Matice  =array[0..9, 0..9] of real;
+
      Cetnost  =array['A'..'Z']  of Byte;
  (* typ množina *) type
+
      Matice  =array[0..9, 0..9] of real;
 +
  { typ množina }
 +
type
 
   Den =(Po, Ut, Str, Ctv, Pa, So, Ne);
 
   Den =(Po, Ut, Str, Ctv, Pa, So, Ne);
 
   Znaky  =set of Char;
 
   Znaky  =set of Char;
 
   Cislice =set of 0..9;
 
   Cislice =set of 0..9;
 
   Dny    =set of Day;
 
   Dny    =set of Day;
  (*;Deklarace typu soubor *)
+
  { Deklarace typu soubor }
 
  type
 
  type
 
   Osoba  =record
 
   Osoba  =record
Řádek 28: Řádek 30:
 
   SouborCisel =file of Integer;
 
   SouborCisel =file of Integer;
 
   SwapFile    =file;
 
   SwapFile    =file;
  (* příkaz case *) case Ch of
+
  { příkaz case }
 +
case Ch of
 
   'A'..'Z', 'a'..'z':  WriteLn('Písmeno');
 
   'A'..'Z', 'a'..'z':  WriteLn('Písmeno');
 
   '0'..'9':            WriteLn('Číslice');
 
   '0'..'9':            WriteLn('Číslice');

Verze z 29. 9. 2012, 22:36

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;