Алгоритм формирования 32-битных чисел с плав. точкой из полученных 16-ти битных integer

[MaratMT]

Здравствуйте, уважаемые форумчане!
Прошу Вас помочь с задачей. Уповаю на Вас!


Наш контроллер (НК) опрашивает некое устройство (НУ) по неважно какому протоколу.

В НУ адресное пространство реализовано в виде 16-ти битных регистров, но в них хранятся 32-х битные числа с плавающей точкой в формате IEEE 754.

В результате запроса НК получает десять 16-ти битных integer.

Необходимо реализовать алгоритм формирования 32-битных чисел с плав. точкой из полученных 16-ти битных integer.

Алгоритм реализовать на языке ST (можно pascal, Delphi, basic, VBA, С).

Контрольный пример для проверки:

Адресное пространство НУ - R1, R2, R3, R4, …R10.

Переменная Float1 = 1234.5678 располагается в R1 и R2, в двоичном представлении будет 100 0100 1001 1010 0101 0010 0010 1011, а в 16-тиричном 449A522B. То есть результат запроса будет R1=100 0100 1001 1010(449A), R2=0101 0010 0010 1011(522B)

Переменная Float2 = 987654321 располагается в R3, R4;

Переменная Float3 = 0 располагается в R5, R6;

Переменная Float4 = NAN располагается в R7, R8;

Переменная Float5 = 1234.5678 располагается в R9, R10;

[BDA]

unsigned short int R[10];
float *F = (float *) R;
R[0] = 0x522B;
R[1] = 0x449A;
printf("%f\n", F[0]);

[Аватар]

Или так

procedure TForm1.Button1Click(Sender: TObject);
var ps: ^Single;
    Buffer: DWORD;
begin
  Buffer:=$449A522B;
  ps:=@Buffer;
  Edit1.Text:=FloatToStr(ps^);
end;

[MaratMT]

Благодарю за ответ. К моему сожалению, он не понятен для меня как новичку. Не могли бы вы разжевать, пожалуйста?

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var r1,r2: Word;
    Buffer: array[0..1] of Word;
    ps: ^Single;
begin
  r1:=$449A;  //твой R1
  r2:=$522B;  //твой R2
  Buffer[0]:=r2;  //засунули из в 4-ых байтный буфер поменяв местами
  Buffer[1]:=r1;  //двоичное значение этого буфера и есть короткое плавающее
  ps:=@Buffer;    //просто привели его к типу Single поместив в указатель адрес буфера
  Edit1.Text:=FloatToStr(ps^);  // преобразовали к символьному значение и в эдит
end;

[min@y™]

Ещё вариант:

type
  TMySingleRec = record
  case byte of
    0: (Value: Single); // 4 байта 
    1: (LoWord, HiWord: Word);
  end;

Или так:

var
  words: array[0..1] of Word;
  x: single absolute words;

Вращайте барабанЪ.