Вывести результат перевода чисел из двоичной в восьмеричную систему?

Question

[kan3k1k3n]

у меня есть код перевода чисел из 2-ой в 8-ую одной строчкой (надо по условию):

var a,x: integer;
begin
readln(x);
a:= (x div 10000*16) + ((x div 100*10 - x div 1000*10)div 1000*8)+((x div 100*100 - x div 1000*1000)div 100*4)+((x div 10*10 - x div 100*100)div 10*2)+(x - x div 10*10);
writeln((a div 8).ToString+(a mod 8).ToString);
end.

но строчку (a div 8).ToString+(a mod 8).ToString) нужно записать после вычислений. то есть не применять .ToString. как это сделать?

Comments

[YK21]

1) x: integer - уже имеет 16-ричное представление, а не десятичное
2) написание функций и логические операции ещё не учили??

> не применять .ToString
объявить а сразу строкой, не?

[kan3k1k3n]

YK21, мне не нужно функцией. по тз нужна программа в 6 строчек с вычислением в одну строчку. а у меня еще и в выводе какие-то операции. если "а" сделать строкой, то нельзя же преобразовывать integer к string

[kan3k1k3n]

kan3k1k3n, в общем все это выражение надо как-то в конце записать как div 8 и mod 8

[kalapanga]

Более чем странное задание, поэтому сложно предложить нормальное решение. Слишком много каких-то чудных условностей и ограничений. Приведённый код не менее странный, точнее, просто неверный.
Во-первых, используется очень своеобразный ввод числа. Вводим число в десятичной системе, но считаем что ввели число в двоичной системе и пытаемся во всём этом не запутаться. Раз уж специального символа для указания на двоичное представление числа нет, то логичнее было бы вводить его как строку.
Во-вторых, введите 111111 и посмотрите, что получится.

[YK21]

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

Я подскажу Вам для случая, когда
x: byte;
В случае 1 байта в х помещают число от 0 до 255 включительно, и максимальное число в шестнадцатеричном виде - это $FF, или в двоичном 1111 1111b (пробел здесь для дуобства чтения), т.е. 8 бит. Число 8 в двоичном виде 1000b, т.е. нам нужно разбить последовательность бит не по 4 штуки, а по 3: т.е. число 255 = 11 111 111b
так и пишем
result:string;
result:=
char($30+((x AND $C0) SHR 6))+
char($30+((x AND $38) SHR 3))+
char($30+(x AND $07));