Определение кода по символу и символа по коду на Pascal
Определение кода по символу и символа по коду...
var
c: char;
code: integer;
begin
c := 'z';
code := Ord(c);
writeln('Код символа ',c,' равен ',code);
code := 35;
c := Chr(code);
writeln('Символ с кодом ',code,' - это ',c);
end.
10.02.2015, 11:06 -
Категория: Статьи » Программирование » Pascal
