задача на системы счисления Опции

[Flipper]

задание: написать программу на языке паскаль, чтобы она переводила число из четверичной системы счиления в шестнадцетиричную с.с.

вот собственно что надо..........
ПОЖАЛУЙСТО, HELP

[Altair]

один из способов (простых) это перевести сначала в десятичную а затем в шестандуатиричную.
Простой, он из-за того, что все можно здесь найти уже решеным.
Вот 2 процедуры:

Код

{Одна переводит из любой системы счисления в
десятичную, вторая наоборот }


function FromDec(n, radix:longint):string; {перевод числа n из
radix c/c в 10-ую}
var
s: String;
const
digit: string[16]='0123456789ABCDEF';
begin
s:='';
repeat
s:=digit[(n mod radix)+1]+s;
n:=n div radix;
until n=0;
FromDec:=s;
end;

function ToDec(n:string; radix:longint):longint; {перевод числа n из
10-ной с/с в radix}
var
m, i: longint;
const
digit: string[16]='0123456789ABCDEF';
begin
m:=0;
while n[1]='0' do delete(n,1,1);
for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
ToDec:=m;
end;

ЗЫ: Не держи зла на ближнего своего. Иешуа.

Сообщение отредактировано: Oleg_Z - 16.10.2004 20:18