Změny

Of

Odebrán 1 bajt, 29. 9. 2012, 22:36

bez shrnutí editace

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

SouborCisel =file of Integer;

SwapFile =file;

(* { příkaz case *) } case Ch of

'A'..'Z', 'a'..'z': WriteLn('Písmeno');

'0'..'9': WriteLn('Číslice');

Zdeno Sekerák

Byrokraté, Správci

1 578

editací