@Just Kom

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

0

@Lurker

в чём проблема? каждый символ заменяй 2-мя символами из 4-ричной системы
4^2 как раз 16

1

@Just Kom

ПРоблемма в том что я не знаю как это реализовать((

0

@Lurker

входные и выходные данные в стринге?
если да то кейсом
например
for от 1-го симовла до последнего
case a[i] 1: b[2i-1]=0; b[2i]=1
2: b[2i-1]=0; b[2i]=2
...
F:b[2i-1]=3; b[2i]=3

0

@Just Kom

Посомтрите где тут ошибка...решил совместить программу для перевода из 16 в 10 потом из 10 в 4...




program lab_1;
var
m: integer; n: integer; j: real; o: integer; ss: string;s1 :string;
i1,n1,k1 :integer;
s: string; k: string; l: string; i:integer;
begin
readln(s1);
for i1 := 1 to length(s1) do
begin
k1 := ord(UpCase(s1[i1]));
case k of
48..57:
n1 := n1 + (k1 - ord('0')) * (1 shl (4 * (length(s1) - i1)));
else
if (k1 < ord('a')) and (k1 > ord('f')) then
begin
write('number is not valid');
readkey;
exit;
end;
n1 := n1 + (k1 - ord('A') + 10) * (1 shl (4 * (length(s1) - i1)));
end;
end;
begin
n1:=j
m:=trunc(j);
for i:=1 to 4 do
begin
j:=frac(j);
j:=j*4;
o:=trunc(j);
str(o,k);
ss:=ss+k;
end;
k:='';
repeat
begin
if m<0 then l:='-';
n:=abs(m) mod 4;
m:=abs(m) div 4;
if (n=0) and (m=0) then
begin
str(n,k);
s:=k+s;
str(m,k);
s:=k+s;
break;
end;
str(n,k);
s:=k+s;
end;
until m=0;
write('4islo v 4 sisteme ravno',l+s+'.'+ss);
end.

0