напечатать копию памяти в битовом виде, real формат преобразовать надо Опции

[Pukelis]

Например, дана переменная
a:real;

мы ей присваиваем значение, скажем,
a:=25;

и ето надо представить в виде 101101 110011 ........
интегер вроде легче реализовать.. а как с реалом быть??

заранее спасибо!

[SHnur]

arr: arrbyte absolute a;

говорит что arr это переменная типа arrbyte начинающаяся по адресу переменной a .

volvo , убрал ...

Сообщение отредактировано: SHnur - 10.05.2005 3:54

[volvo]

SHnur,
ссылки на форуме никто не отменял - уже есть пост, в котором описаны SHL и SHR - не надо плодить одинаковые объяснения (тем более, что оно у тебя далеко не полное) - просто даем ссылку...

N - ый бит

[Pukelis]

блин... только что попробовал отчитаться - так препод меня спросил
1) что за цифры 31 и 32.. они ему не понравились
здесь
for i := 0 to 31 do begin
и здесь d
elete(s, 1, 32 - num_of_bits);

2) что за цифра 8 тут
write( binary(arr[i], 8) );

3) а так же спрашивал зачем нужен longint тут:
function binary(x: longint; num_of_bits: byte): string;

4) и вообше он сказал, что в строке, которую печатает прога подозрительно много цифр! :p2:

что ответить - я не особо нашелся ((( объясните как ответить ему на ети вопросы!! Желательно в течение етого часа - пока он еще тут.. Ето последняя прога, которую мне надо сдать в етом году.. ;) ПЛИЗ!!!

А так же он просил указать, где в етих байтах содержится экспонента, знак, число и мантиса.. тоже бы хотелось узнать дайте линк, хде ето написано!!

Сообщение отредактировано: Pukelis - 13.05.2005 17:33

[volvo]

1) что за цифры 31 и 32.. они ему не понравились

А твой препод знает, сколько байт (и, соответственно, бит) содержится в переменной типа LongInt ? Вот от 0-го до 31-го и проходим по всем
А потом удаляем все незначащие (в delete)

2) что за цифра 8 тут
write( binary(arr[i], 8) );

Ну, я же приводил к типу

type
  arrbyte = array[1 .. maxint] of byte;

а в каждом байте 8 бит... Можно было привести к массиву Word-ов, тогда надо было бы делать:

write( binary(arr[i], 16) );

3) а так же спрашивал зачем нужен longint тут:
function binary(x: longint; num_of_bits: byte): string;

А чтобы работать с МАКСИМАЛЬНО возможной скоростью (которая достигается при обработке за один раз наибольшего числа бит)

4) и вообше он сказал, что в строке, которую печатает прога подозрительно много цифр!

А ты попроси его сказать, СКОЛЬКО она должна печатать? И какой размер у Real тоже уточни у него... И умножь на 8 байт.