Паскаль умер!

В видеоадаптерах EGA и VGA, распространненых для IBM PC-совместимых систем в конце 20 века, использование больших объемов видепамяти сдерживалось ограниченостью адресного пространства. Архитектура IBM PC предполагала, что видеопамять отображается на определенную область обычной памяти объемом максимум 64 килобайта. Таким образом, с первого взгляда становится невозможно использовать, например, графический режим 640x350, 16 цветов (640*350/2=112000 байт). В результате разработчики видеодаптеров пошли на "хитрость". Всю видепамять разделили на так называемые "плоскости", каждая из которых содержала данные только об одном из битов, из которых строится цвет точки. Таким образом, каждый байт плоскости содержал частичную информацию о 8 точках видеопамяти. Для 16-цветного графического режима таких плоскостей было 4 (по одной на каждый бит). Естественно, что каждая плоскость по отдельности умещалась в объем памяти 64 килобайта. С помощью регистров контроллера программист мог переключаться между плоскостями, манипулировать специальной битовой маской, с помощью которой удавалось выполнять запись данных сразу в несколько плоскостей и т.д.

Расмотрим хранение 16 точек 16-цветного режима в 4 плоскостях видеадаптеров EGA и VGA
Каждая из плоскостей будет содержать по 2 байта (2*8=16 битов)
129 1
128 2
130 3
1 4
В битовом представлении получим
10000001 00000001
10000000 00000010
10000010 00000011
00000001 00000100
Формируем цвет каждой точки из соответствующих четырех битов плоскостей.
0111 0000 0000 0000 0000 0000 0100 1001 0000 0000 0000 0000 0000 1000 0110 0101  
В десятичном представлении получаем коды цветов 16 точек:
7  0  0  0  0  0  4  9  0  0  0  0  0  8  6  5

Задание: Определить цвета точек по содержимому 4 плоскостей видепамяти

Исходные данные (файл input.txt или стандартный входной поток):
4 строки, содержащие набор байтов (через пробел) каждой из плоскостей. Количество байтов в каждой строке одинаково.

Результирующие данные (файл output.txt или стандартный выходной поток):
Строка, в которой через пробел перечислены коды цветов полученного набора точек

Пример исходных данных 1:

129 1
128 2
130 3
1 4

Пример результирующих данных 1:

7  0  0  0  0  0  4  9  0  0  0  0  0  8  6  5

Пример исходных данных 2:

1 2 3
4 5 6
6 5 4
3 2 1

Пример результирующих данных 2:

0  0  0  0  0  6 12  9  0  0  0  0  0  6  9  6  0  0  0  0  0  6  3  9

using System;
using System.Text;
using System.IO;

namespace egavgabgi
{
    class Program
    {
        static void Main(string[] args)
        {
            StreamReader sr = File.OpenText(@"d:\input.txt");
            char[] delim = { ' ' };
            string r = sr.ReadLine().Trim();
            string[] c1 = r.Split(delim);
            r = sr.ReadLine().Trim();
            string[] c2 = r.Split(delim);
            r = sr.ReadLine().Trim();
            string[] c3 = r.Split(delim);
            r = sr.ReadLine().Trim();
            string[] c4 = r.Split(delim);
            sr.Close();

            int n = c4.Length;
            int[] output = new int[n * 8];
            byte b0;
            byte b1;
            byte b2;
            byte b3;
            int b;
            byte c = 0;
            for (int i = 0; i < n; i++)
            {
                b0 = byte.Parse(c1[i]);
                b1 = byte.Parse(c2[i]);
                b2 = byte.Parse(c3[i]);
                b3 = byte.Parse(c4[i]);
                for (int j = 7; j >= 0; j--)
                {
                    b = 0;
                    b = (b0 & (1 << j)) == 0 ? b : b | 1;
                    b = (b1 & (1 << j)) == 0 ? b : b | 2;
                    b = (b2 & (1 << j)) == 0 ? b : b | 4;
                    b = (b3 & (1 << j)) == 0 ? b : b | 8;
                    output[c++] = b;
                }
            }
            StreamWriter sw = new StreamWriter(@"d:\output.txt");
            for (int i = 0; i < n * 8; i++)
            {
                sw.Write("{0} ",output[i]);
            }
            sw.Close();
        }
    }
}

const maxLen=100000;
var  planes:array[0..3,1..maxLen] of byte;
     points:array[0..7] of byte;
//     len, count,
     len, count: longint; 
     tmp,i:byte;
     cur:byte;
begin
for cur:=0 to 3 do begin
 len:=0;
 while not eoln do begin
  inc(len);  read(planes[cur][len]);
 end;
 readln;
end;
for count:=1 to len do begin
 fillchar(points,8,#0);
 for cur:=0 to 3 do begin
  tmp:=planes[cur][count];
  for i:=7 downto 0 do begin
   points[7-i]:=points[7-i] or ((tmp shr i)and 1)shl cur;
  end;
 end;
 for i:=0 to 7 do write(points[i]:3);
end;
writeln;
end.

using System;
using System.Text;
using System.IO;

namespace egavgabgi
{
    class Program
    {
        static void Main(string[] args)
        {
            char[] delim = { ' ' };
            string[] c1 = Console.ReadLine().Trim().Split(delim);
            string[] c2 = Console.ReadLine().Trim().Split(delim);
            string[] c3 = Console.ReadLine().Trim().Split(delim);
            string[] c4 = Console.ReadLine().Trim().Split(delim);

            int n = c4.Length;
            int[] output = new int[n * 8];
            byte b0;
            byte b1;
            byte b2;
            byte b3;
            int b;
            for (int i = 0; i < n; i++)
            {
                b0 = byte.Parse(c1[i]);
                b1 = byte.Parse(c2[i]);
                b2 = byte.Parse(c3[i]);
                b3 = byte.Parse(c4[i]);
                for (int j = 7; j >= 0; j--)
                {
                    b = 0;
                    b = (b0 & (1 << j)) == 0 ? b : b | 1;
                    b = (b1 & (1 << j)) == 0 ? b : b | 2;
                    b = (b2 & (1 << j)) == 0 ? b : b | 4;
                    b = (b3 & (1 << j)) == 0 ? b : b | 8;
                    Console.Write("{0} ", b);
                }
            }
        }
    }
}

{ $DEFINE timetest}

{$MODE OBJFPC}
{$H+}
{$ifdef timetest}
uses unix, unixtype;
{$endif}
const maxLen=10000000;
var  planes:array[0..3,1..maxLen] of byte;
     points:array[0..7] of byte;
//     len, count,
     count,len: longint;
     tmp,i:byte; cur:byte;

{$ifdef timetest}
var _td:timeval;
procedure SetTimer; begin fpGetTimeOfDay(@_td,nil); end;
function GetTimer:int64; var td:timeval;
 begin 
  fpGetTimeOfDay(@td,nil);
  result:=(int64(td.tv_sec)*1000000+td.tv_usec)-(int64(_td.tv_sec)*1000000+_td.tv_usec); 
 end;
{$endif}

begin
for cur:=0 to 3 do begin
 len:=0;
 while not eoln do begin
  inc(len);
  read(planes[cur][len]);
 end;
 readln;
end;

{$ifdef timetest}
SetTimer;
{$endif}
for count:=1 to len do begin
 fillchar(points,8,#0);
 for cur:=0 to 3 do begin
  tmp:=planes[cur][count];
  for i:=7 downto 0 do begin
   points[7-i]:=points[7-i] or ((tmp shr i)and 1)shl cur;
  end;
 end;
{$ifndef timetest}
 for i:=0 to 7 do write(points[i]:3);
{$endif}
end;

{$ifdef timetest}
writeln(GetTimer);
{$endif}

writeln; 

end. 

{$mode objfpc}
 const maxlen=10000000;
 var i:integer; k: byte;
begin
 for k:=1 to 4 do begin
  for i:=1 to maxlen do write (' ', i mod 256);
  writeln;
 end;
end.