15 lines
267 B
Plaintext
15 lines
267 B
Plaintext
{Ord.PAS}
|
||
|
||
{Beispielcode f<>r die Funktion Ord }
|
||
|
||
uses Crt;
|
||
|
||
type
|
||
Colors = (RED,GREEN,BLUE);
|
||
begin
|
||
Writeln('BLUE has an ordinal value of ',
|
||
Ord(BLUE));
|
||
Writeln('The ASCII code for "c" is ',
|
||
Ord('c'), ' decimal');
|
||
end.
|