Преобразование цифрового символа в соответствующее однозначное число и обратно на 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.



Просмотров: 1890
10.02.2015, 11:07 -

Категория: Статьи » Программирование » Pascal