1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
(*;{ 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
(*;{ Deklarace typu soubor *)}
(* { příkaz case *) } case Ch of
Of
,bez shrnutí editace
Příklady
Den =(Po, Ut, Str, Ctv, Pa, So, Ne);
Znaky =set of Char;
Cislice =set of 0..9;
Dny =set of Day;
type
Osoba =record
SouborCisel =file of Integer;
SwapFile =file;
'A'..'Z', 'a'..'z': WriteLn('Písmeno');
'0'..'9': WriteLn('Číslice');
