2 переменные по байту, Олимпиадная задача Опции

[Altair]

Этот вариант мог бы не прокатить, чаще всего стандартные модули просят отключать в таких задачах...

[virt]

всегда просят ,к тому же системная переменная тоже переменная.

[Ipkis]

Мне эта задачка понравилась... хотелось бы просто ради интереса еще
один способ придумать...

вот идейка... может как-то считывать с экрана данные...

по началу хотел использовать AssignCRT но для этого нужна
перемення типа Text... неподходит...

Но ведь можно, как-то Считывать с экрана значения в переменные типа char
передвигать курсор и тут же выводить....

У кого есть идеи???

Сообщение отредактировано: Ipkis - 1.12.2005 23:29

[Ipkis]

Ну что ни у кого нет ни каких идей????

[Altair]

А что, вариант который ты привел не устраивает ? я думал это единственное решение...

[Ipkis]

Устраивает... то была моя лаба... и я ее уже сдал...
но зацепила меня эта задачка чем-то...
я на нее потратил больше времени чем на все остальные вместе...

Потому и хочеться еще какой нить способ...

Есть идеи???

[Altair]

ну я думал над задачей...
Запихнуть все что по условию вводит юзер (3 числа) в 1 байт просто невозможно никаким методами...
если хочешь можно конечно попробовать вывести доказательство этого (строго математически)..
в задаче предполагалась именна та хитрость на которую ты пошел... ИМХО

[xds]

Сегодня наконец заглянул в этот пост... в итоге, когда написал решение, оказалось, что оно совпадает с предложенным Ipkis. Могу только простонать про совместимость со стандартным вводом-выводом (у меня мания совершать бесполезные действия).

program Perversion;

var
  a, b: Byte;

procedure ReadAndWrit;
begin
  Write('n2>');
  Readln(a);
  b := (a - 4) shl 4;
  Write('n3>');
  Readln(a);
  b := b or (a - 11);
  Write('n4>');
  Readln(a);
  Write(a, ' ', b and $F + 11, ' ', b shr 4 + 4, ' ');
end;

begin
  Write('n1>');
  Readln(a);
  case a of
  0:
    begin
      ReadAndWrit;
      Writeln('0');
    end;
  1:
    begin
      ReadAndWrit;
      Writeln('1');
    end;
  2:
    begin
      ReadAndWrit;
      Writeln('2');
    end;
  3:
    begin
      ReadAndWrit;
      Writeln('3');
    end;
  end;
end.

Сообщение отредактировано: volvo - 5.11.2006 19:31