Перевод из десятичной в шестнадцатеричную и обратно

@ElenaPrg · Регистрация: 28.01.2014

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

Задали задание: Напишите программу, которая будет переводить числа между десятеричной и шестнадцатеричной системами. (и с шестнадцатеричной в десятеричную). Не очень понимаю как это вообще делать. Очень надеюсь на вашу помощь)

@Puporev · 30.01.2014, 09:14

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const zn:string[16]='0123456789ABCDEF';
      c:array[0..15] of byte=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
function DecToHex(n:longint):string;
var s:string;
begin
s:='';
while n>0 do
 begin
  s:=zn[n mod 16+1]+s;
  n:=n div 16;
 end;
DecToHex:=s;
end;
function HexToDec(s:string):integer;
var n,k,i,j:integer;
begin
n:=0;k:=1;
for i:=length(s) downto 1 do
 begin
  for j:=0 to 15 do
  if s[i]=zn[j+1] then
   begin
    n:=n+c[j]*k;
    k:=k*16;
   end;
 end;
HexToDec:=n
end;
var n:integer;
    s:string;
begin
clrscr;
write('Число в системе 10=');
readln(n);
s:=DecToHex(n);
writeln('В системе 16 =',s);
write('Обратно в системе 10 = ',HexToDec(s));
readln
end.

@ElenaPrg · 31.01.2014, 05:45 **[ТС]**

огромное спасибо

Добавлено через 12 часов 20 минут
Puporev, а как сделать так, чтобы программа могла считать из 10 в 16 и из 16 в 10? чтобы был выбор у пользователя из какой в какую перевести.

@Puporev · 31.01.2014, 06:32

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
uses crt;
const zn:string[16]='0123456789ABCDEF';
      c:array[0..15] of byte=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
function DecToHex(n:longint):string;
var s:string;
begin
s:='';
while n>0 do
 begin
  s:=zn[n mod 16+1]+s;
  n:=n div 16;
 end;
DecToHex:=s;
end;
function HexToDec(s:string):integer;
var n,k,i,j:integer;
begin
n:=0;k:=1;
for i:=length(s) downto 1 do
 begin
  for j:=0 to 15 do
  if s[i]=zn[j+1] then
   begin
    n:=n+c[j]*k;
    k:=k*16;
   end;
 end;
HexToDec:=n
end;
var n,i,k:integer;
    s:string;
    w:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-Перевести из СС 10 в СС 16');
writeln('2-Перевести из СС 16 в СС 10');
writeln('Другое выход');
readln(w);
case w of
'1':begin
    clrscr;
    repeat
    write('Число в системе 10=');
    readln(s);
    val(s,n,k);
    if k<>0 then writeln('Число введено неверно, повторите ввод')
    until k=0;
    s:=DecToHex(n);
    writeln('В системе 16 = ',s);
    readln
    end;
'2':begin
    clrscr;
    repeat
    write('Число в системе 16=');
    readln(s);
    k:=0;
    i:=1;
    while(i<=length(s))and(k=0)do
    if pos(s[i],zn)=0 then k:=1
    else i:=i+1;
    if k=1 then writeln('Число введено неверно, повторите ввод')
    until k=0;
    n:=HexToDec(s);
    writeln('В системе 10 = ',n);
    readln
    end;
else exit;
end;
until not(w in ['1','2']);
end.

@ElenaPrg · 31.01.2014, 06:37 **[ТС]**

Puporev, Вы мой спаситель)

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@ElenaPrg 1 / 1 / 0 Регистрация: 28.01.2014 Сообщений: 9

	Перевод из десятичной в шестнадцатеричную и обратно 30.01.2014, 05:46. Показов 3902. Ответов 4 Метки нет (Все метки) Задали задание: Напишите программу, которая будет переводить числа между десятеричной и шестнадцатеричной системами. (и с шестнадцатеричной в десятеричную). Не очень понимаю как это вообще делать. Очень надеюсь на вашу помощь) 0

@ElenaPrg 1 / 1 / 0 Регистрация: 28.01.2014 Сообщений: 9
	31.01.2014, 05:45 [ТС]
	огромное спасибо Добавлено через 12 часов 20 минут Puporev, а как сделать так, чтобы программа могла считать из 10 в 16 и из 16 в 10? чтобы был выбор у пользователя из какой в какую перевести. 0

@ElenaPrg 1 / 1 / 0 Регистрация: 28.01.2014 Сообщений: 9
	31.01.2014, 06:37 [ТС]
	Puporev, Вы мой спаситель) 0