Написать программу выполнения арифметических операция в разных системах счисления

[колянчик1712]

Помогите добрые люди( Если что могу денег на телефон скинуть ...)
Перевод числа из одной системы счисления в другую и выполнение арифметических операций.


Задание: Напишите программу выполнения арифметических операций в разных системах счисления.

(мое задание)- Числа по основанию 10 и 16. Выполнить операцию сложения

Помогите пожалуюста сделать на чем нибудь . Я в нем нуб ,а сдавать завтра последний день ... Если что могу денег на телефон скинуть ...

[Serge_Bliznykov]

да ну. бросьте. это же элементарно - переводите шестнадцатеричное число в десятичную систему. выполните сложение.
вывести результат.

примеров перевода чисел из одной СС в другую на форуме ПОЛНО...

[Mad_Cat]

function dec2hex(dec: longint): string;
const
hexdigts: string[16] = '0123456789abcdef';
var
hex : string;
i, j: longint;
begin
if dec = 0 then hex := '0'
else
begin
hex := '';
i := 0;
while (1 shl ((i + 1) * 4)) <=dec do i := i + 1;
{ 16^n = 2^(n * 4) }
{ (1 shl ((i + 1) * 4)) = 16^(i + 1) }
for j := 0 to i do
begin
hex := hex + hexdigts[(dec shr ((i - j) * 4)) + 1];
{ (dec shr ((i - j) * 4)) = dec div 16^(i - j) }
dec := dec and ((1 shl ((i - j) * 4)) - 1);
{ dec and ((1 shl ((i - j) * 4)) - 1) = dec mod 16^(i - j) }
end;
end;
dec2hex := hex;
end;

function hex2dec(hex: string): longint;
function digt(ch: char): byte;
const
hexdigts: string[16] = '0123456789abcdef';
var
i: byte;
n: byte;
begin
n := 0;
for i := 1 to length(hexdigts) do
if ch = hexdigts[i] then n := i - 1;
digt := n;
end;
const
hexset: set of char = ['0'..'9', 'a'..'f'];
var
j    : longint;
error: boolean;
dec  : longint;
begin
dec := 0;
error := false;
for j := 1 to length(hex) do
begin
if not (upcase(hex[j]) in hexset) then error := true;
dec := dec + digt(upcase(hex[j])) shl ((length(hex) - j) * 4);
{ 16^n = 2^(n * 4) }
{ n shl ((length(hex) - j) * 4) = n * 16^(length(hex) - j) }
end;
if error then hex2dec := 0
else hex2dec := dec;
end;

взял отсюда