Перевести слова в шестнадцатиричную систему исчисления

@Andels · Регистрация: 20.01.2020

Author24 — интернет-сервис помощи студентам

Я не могу сделать программу которая будет переводить слова на английском языке в шестнадцатиричную систему исчисления. Помогите это делается как то через ASCI? Я не понимаю как это сделать.

@~~RahatLukum~~ · 25.01.2022, 13:18

Pascal

var s,sn:string;
    i,n:integer;
begin
  s:='To be, or not to be, that is the question:';
  for i:=1 to Length(s) do
  begin
    n:=Ord(s[i])mod 16+48;
    if char(n)>'9' then n:=n+7;
    sn:=char(n);
    n:=Ord(s[i])div 16+48;
    if char(n)>'9' then n:=n+7;
    sn:=char(n)+sn;
    write(sn,' ');
  end;
  writeln;
end.

@bormant · 26.01.2022, 11:17

Pascal

const
  d: array [0..15] of Char = '0123456789ABCDEF';
  s: String = 'To be, or not to be, that is the question:';
var
  i: Integer;
begin
  for i:=1 to Length(s) do
    Write(' ',d[Ord(s[i]) shr 4],d[Ord(s[i]) and $f]);
  WriteLn;
end.

@Andels 0 / 0 / 0 Регистрация: 20.01.2020 Сообщений: 12
		1
	Перевести слова в шестнадцатиричную систему исчисления 25.01.2022, 12:06. Показов 921. Ответов 2 Метки asembler, pascal (Все метки) Я не могу сделать программу которая будет переводить слова на английском языке в шестнадцатиричную систему исчисления. Помогите это делается как то через ASCI? Я не понимаю как это сделать. 0

	26.01.2022, 11:17

Опции темы

Перевести слова в шестнадцатиричную систему исчисления

Решение