Собственная процедура/функция которая возвращает код символа - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста создать собственную процедуру/функцию которая возвращает код символа.

Вводим:

символ

Получаем:

число

Стандартные функции (например: ord) нельзя использовать.

Решение задачи: «Собственная процедура/функция которая возвращает код символа»

textual
Листинг программы
function MyChr(n: Byte): Char;
begin
  MyChr:=Char(n);
end;
 
function MyOrd(c: Char): Byte;
begin
  MyOrd:=Byte(c);
end;
 
function MyPred(c: Char): Char;
begin
  MyPred:=Char(Byte(c)-1);
end;

Объяснение кода листинга программы

В этом коде есть три функции, которые выполняют следующие действия:

  1. Функция MyChr принимает однобайтовый параметр n и возвращает символ, соответствующий этому байту.
  2. Функция MyOrd принимает параметр c, который является символом, и возвращает его порядковый номер в кодировке символов.
  3. Функция MyPred принимает параметр c, который является символом, и возвращает предыдущий символ в кодировке символов.

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы