Ord() Π² ΠΠ°ΡΠΊΠ°Π»Π΅.
Ord() Π² ΠΠ°ΡΠΊΠ°Π»Π΅.
Π€ΡΠ½ΠΊΡΠΈΡ Ord() Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΊΠΎΠ΄ ΡΠΈΠΌΠ²ΠΎΠ»Π° (ASCII) Π΄Π»Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° n.
ΠΠ±ΡΠ°ΡΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ Ord() ΡΠ²Π»ΡΠ΅ΡΡΡ Chr().
program Ord_Task;
//Π€ΡΠ½ΠΊΡΠΈΡ Chr()
var
I_Num: byte;
begin
I_Num := Ord('g');
WriteLn('Ord(''g'') = ', I_Num);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π€ΡΠ½ΠΊΡΠΈΡ Ord() Π² ΠΠ°ΡΠΊΠ°Π»Π΅.