Преобразование цифрового символа в соответствующее однозначное число и обратно на Pascal
Преобразование цифрового символа в соответствующее однозначное число и обратно...
var
c: char;
digit: integer;
begin
c := '5';
digit := Ord(c) - Ord('0');
writeln('Цифра, соответствующая символу ''',c,''' - это ',digit);
digit := 7;
c := Chr(digit + Ord('0'));
writeln('Символ цифры ',digit,' - это ''',c,'''');
end.
10.02.2015, 11:07 -
Категория: Статьи » Программирование » Pascal