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

[Ipkis]

Вводятся 4 числа:
1-е от 0 до 3
2-е от 4 до 10
3-е от 11 до 21
4-е от 0 до 255

используя только 2 переменных по байту
Вывести их в обратном порядке...

Сообщение отредактировано: Ipkis - 22.11.2005 4:21

[Altair]

Схема.
1 переменная (байт) - 4-ое число (от 0 до 255).
2 переменная:

xxxxxxxx (1 байт, 8 бит, где x - i-тый бит).
первые 2 бита (0,1) юзаешь под 1 число
биты 2-4 под 2 число
и 4- 7 под 3 число. (нумерация битов уц меня с 0).

[Altair]

Вот программа:

uses wincrt;
var
 a,c:byte;
begin
 c:=0; a:=0;
 writeln('enter 1 chislo');
 readln©; a:=c shl 6; {1 add}
 writeln('enter 2 chislo');
 readln©;  a:=a or (c shl 3); {2 add}
 writeln('enter 3 chislo');
 readln©;  a:=a or (c-11);
 writeln('enter 4 chislo');
 readln©;
 writeln('-------------------');
 writeln(a,' ',c);
 writeln('-------------------');
 writeln©;
 c:=0 or (a shl 5);
 c:=c shr 5;
 writeln(c+11);
 c:=0 or (a shl 2);
 c:=0 or (c shr 5);
 writeln©;
 c:=0 or (a shr 6);
 writeln©;
 readln;
end.

p.s. спасибо за задачу, давно не работал с битовыми операциями, интересно...

[Ipkis]

Схема.
1 переменная (байт) - 4-ое число (от 0 до 255).
2 переменная:

xxxxxxxx (1 байт, 8 бит, где x - i-тый бит).
первые 2 бита (0,1) юзаешь под 1 число
биты 2-4 под 2 число
и 4- 7 под 3 число. (нумерация битов уц меня с 0).

Спасиба за ответ...

Но вот почему 4й бит у тебя и во 2м числе и в 3м??????

[Atos]

To: Altair
A действительно, странно: диапазон первого числа ровно 2 бита, второго числа - ровно три бита, третьего числа - больше трёх бит! Как же ты умудряешься засовывать их все в 8 бит? {опять компилятора под рукой нет, но такое ощущение, что при некоторых значениях декодирование будет неправильным}

[hiv]

Да - тут лажа!
0..3 - 4 числа
4..10 - 7 чисел
11..21 - 11 чисел
тогда имеем 4*7*11-1=307 вариантов, что больше 255!

[virt]

вот именно что там надо 9 бит уместить в 8.

[Altair]

Вч читать умеете ?

третьего числа - больше трёх бит!

А вы видите -11 в программе ????
Вообще прогу-то запускали ? работатет ?
Тогда ПЕРЕД ТЕМ КАК ОРАТЬ, надо глаза открыть и почитать ПРОГРАММУ!!!!!!

опять компилятора под рукой нет, но такое ощущение, что при некоторых значениях декодирование будет неправильным}

Всегда правильно! Ты что думаешь я не тестирую программы перед выкладыванием и нарушаю правила ?

Да - тут лажа!

лажа у вас в посте , уважаемый ;)
что бы уместить 3 число, нужно диапазон на 11 сократить... тогда в 3 бита уместитмся.

[Ipkis]

Вч читать умеете ?

А вы видите -11 в программе ????
Вообще прогу-то запускали ? работатет ?
Тогда ПЕРЕД ТЕМ КАК ОРАТЬ, надо глаза открыть и почитать ПРОГРАММУ!!!!!!

Всегда правильно! Ты что думаешь я не тестирую программы перед выкладыванием и нарушаю правила ?
лажа у вас в посте , уважаемый ;)
что бы уместить 3 число, нужно диапазон на 11 сократить... тогда в 2 бита уместитмся.

По повду строчки readln©; a:=a or (c-11);
Максимальное значение 3го числа - 21
Если сокращаем на 11 полуаем максимальное значение 10
10 в двоичной 1010 т.е 4 бита....

Сообщение отредактировано: Ipkis - 24.11.2005 1:11

[Ipkis]

Еще не большое дополнение....
по поводу строчки
writeln('enter 2 chislo');
readln©; a:=a or (c shl 3); {2 add}\\

максимум 2го чмсла это 10 т.е 4 бита...
наверное нужно сократить на 3...
тогда получим максимум 7 а это уже 3 бита...

[Altair]

да чуть алгоритм я напутал но все равно несложно апрогу модифицируешь
так.


1 число 0-3 (2 бита)
2 число 4-10 -> 0-6 (3 бита)

3 число 11-21 -> 0-10

а что если записать в оставлиеся 3 бита ОСТАТОК от деления 3 числа (интервал от 0 до 10) НА 3 ?
Остаток по любому будет НЕ больше 2...
? или я опять что то просмотрел ?

тогда выходит что у нас вообще 1 бит лишний при такой архивации, и обратно все востановимо

[Altair]

нет не то

[virt]

enter 1 chislo
3
enter 2 chislo
10
enter 3 chislo
21
enter 4 chislo
255
-------------------
218 255
-------------------
255
13
3
3

самый простой тест.

[Altair]

Вирт читаем книгу по тестированию и понимаем что это не самый простой тест.. тиесты такого типа называютсчя тестами на граничные условия.. ты меня все равно не переспоришь ;)

кстати к чему пост ?
уже выше разобрались что допущенна ошибка...

[virt]

я книжек по тестированию не писал ,я просто 3 года в школе на олимпиадах составлял полные системы тестов для проверки своего решения. Простой тест это тот который пришел в голову с первого взгляда на решение. Само собой это граничный тест. Простые тесты в твоей терминологии на этой проге бы прошли.

я когда открыл тему твоего последнего еще не было.

[Ipkis]

Всем спасибо... Особенная благодарность
2altair
2hiv

Я уже сам решил эту интересную задачку...
Вот код...

uses crt;
var
 a,c:byte;

Procedure Main;
 begin
 writeln('enter 2');
 readln©;  a:=a or (c shl 4);

 writeln('enter 3');
 readln©;  a:=a or (c-11);

 writeln('enter 4');
 readln©;
{-----------------------------------------------}
 writeln('-----------------');
 writeln©;                   {-4}
 c:=0;

 c:=0 or (a shl 4);
 c:=c shr 4;                   {-3}
 writeln(c+11);

 c:=0 or (a shr 4);            {-2}
 writeln©;
end; {main}


{==================================================}
begin
 ClrScr;
 c:=0; a:=0;
 writeln('enter 1');
 readln©;

case c of
0:begin
    main;
    writeln('0');
  end;
1:  begin
    main;
    writeln('1');
   end;
2:  begin
    main;
    writeln('2');
  end;
3: begin
    main;
    writeln('3');
   end;
end;{case}

Readln;
end.

[Altair]

ха-ха-ха ) круто
Вот что значит олимипиадная... глдавное результат и условия..
а я все мучался над тем как в 8 бит впизнуть 9... а это вовсе и не надо!
Ipkis, молодец!

[virt]

все гениальное просто..

[Ipkis]

УГУ... Все генитальное просто....

А вообще была еще другая идея,
но не совсем честная...

Использовать служебные переменные...
Ведь
- я их не объявляю!!!
-память для них уже выделена
-они существуют независимо от того использую я их или нет...

В начале думал использовать SetBkColor (из Graph)
а потом вернуть значение через GetBkColor...
но не подходит(появляются траблы)...
но все-равно можно найти другую служебную переменную...

Счас нет времени на поиски...
но если есть идеи,то это только приветствуется.. .

[klem4]

служебные переменные...

В начале думал использовать SetBkColor (из Graph)

Ну во первых SetBkColor - это всетаки процедура ... а во вторых идея конечно интересная, но имхо это может привести к дичайшим ошибкам и неразберихе ...