[Помогите!] C 2-мя программками

[Logo424]

Помогите или подскажите пожалуйста
программа на delphi

1)
Задано целое число типа WORD. Поменять местами содержимое последних двух разрядов с содержимым первых двух. Алгоритм преобразования оформить в виде функции. Исходное число и результат вывести в двоичной и десятичной форме.

2)
Создать программу с функциями упаковки/распаковки группы из 8 чисел диапазона 0..7 (000..111) в 3 байтах.


Заранее спасибо

[Duha666]

1) Извращенный вариант:

 function atata(n: longint);
var
   str: string;
begin
   str = intostr(n);
   if length(str) > 3 then result := strtoint(str[length(str)] + str[length(str) - 1] + copy(str, 3, length(str) - 4) + str[1] + str[2]);
   if length(str) = 3 then result := strtoint(str[3] + str[2] + str[1]);
   if length(str) < 3 then result := n; 
end;

function ans(n: longint);
var
  x: longint;
writeln(n);
for i := 0 to 14 do write(n shr i mod 2);
writeln;
x := atata(n);
writeln(x);
for i := 0 to 14 do write(x shr i mod 2);

2) Упаковка(a - массив чисел):

 x := 0 / / Выходное число
 for i := 1 to 7 do
   for j := 0 to 2 do
     x := x shl 1 + a[i] shr j mod 2;

Распаковка:

 for i := 1 to 7 do
   for j := 0 to 2 do
     a[i]  := a[i] shl 1 + x shr (i + j - 1);

Код не тестировал, компилятора под рукой нет.

[lolwut98]

если я правильно тебя понял, то вот 1 программа:

program Project3;
{$APPTYPE CONSOLE}

uses
  SysUtils;

function reverse(w: word): word;
var
  s, s1, s2: string;
begin
  s := inttostr(w);
  s1 := copy(s, 1, 2);
  s2 := copy(s, length(s) - 1, 2);
  insert(s2, s, 1);
  delete(s, 3, 2);
  insert(s1, s, length(s) - 1);
  delete(s, length(s) - 1, 2);
  result := strtoint(s);
end;

function dec2bin(x: integer): string;
var
  s: string;
begin
  s := '';
  while x > 0 do
  begin
    s := chr(ord('0') + x mod 2) + s;
    x := x div 2;
  end;
  result := s;
end;

var
  w: word;

begin
  w := 12345;
  writeln(inttostr(w) + '=' + inttostr(reverse(w)));
  writeln(dec2bin(w)+ '=' + dec2bin(reverse(w)));
  readln;
end.