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

[Pukelis]

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

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

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

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

[Pukelis]

достал подобную прогу, правда она для extended формата.. хотя как я понимаю, если в 5-й строчке extended поменять на real, то она будет работать, вот тока надо как-то убрать лишние нули в начале (правда оно почему-то авдает совсем другие вещи, нежели то, что volvo мне накатал в самом начале) и я по-прежнему не фтыкаю в отображение мантисы в битовом виде (((

var
    n, i, kiek:integer;
    bitai:array[1..80] of byte;
    mentise:array[1..80] of byte;
    ext_sk: extended absolute bitai;
    x:byte;
begin
repeat
 n:=0;
 i:=0;
 kiek:=0;
 write('Iveskite extended tipo skaiciu: ');
 readln(ext_sk);
 for i:=1 to sizeof(ext_sk) do
     begin
      x:=bitai[i];
      for n:=1 to 8 do
          begin
           mentise[80-kiek]:=x mod 2;
           x:= x div 2;
           kiek:=kiek+1;
          end;
     end;
     writeln('S Exp             Mentise');
     write(mentise[1], ' ');
     for i:= 2 to 16 do
         begin
          write(mentise[i]);
         end;
     write(' ');
     for i:=17 to 80 do write(mentise[i]);
     readln(n);
until n=0;
end.

[volvo]

хотя как я понимаю, если в 5-й строчке extended поменять на real, то она будет работать

Да не будет она работать !!! У тебя здесь все построено на том, что Extended занимает 80 бит. Но Real - то занимает всего 48 ! Так что тебе все индексы менять придется...