Собственная процедура/функция которая возвращает код символа - 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;
Объяснение кода листинга программы
В этом коде есть три функции, которые выполняют следующие действия:
- Функция MyChr принимает однобайтовый параметр n и возвращает символ, соответствующий этому байту.
- Функция MyOrd принимает параметр c, который является символом, и возвращает его порядковый номер в кодировке символов.
- Функция MyPred принимает параметр c, который является символом, и возвращает предыдущий символ в кодировке символов.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
