Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Машинные коды значений целых типов

Автор: KasMP 23.5.2008, 18:20

Цитата

Написать программу, которая выдает коды нескольких целых значений произвольного целого типа. Применить для различных целых типов.

Сейчас будем разбираться smile

.

Пара ваших комментариев может сильно помочь. Оставляйте их, пожалуйста smile

Автор: neic 23.5.2008, 18:49

Ну насколько я знаю, что машина использует двоичную систему счисления, следовательно там применяются цифры соотвествующей системы счисления. А от сюда:

0000=0
0001=1
0010=2
0011=3
и т.д.

П.с. могу ошибаться, мож и шестнадцатиричную с.с. использует комп, ну смысл один и тотже.

Автор: KasMP 23.5.2008, 19:06

Все чуточку сложнее...

для каждого типа кол-во байт ограничено и у кого-то есть знаковый бит, а у кого - нет:
"1" типа longint - "0|0000000|00000000|00000000|00000001";
"1" типа integer - "0|0000000|00000001;
"1" типа word - "00000000|00000001";
"1" типа shortint - "0|0000001";
"1" типа byte - "00000001".
отрицательные целые числа представлены с помощью дополнительного кода (вот тут я вообще не понимаю... не писать же отдельную процедуру для подсчета доп.кода!)

Автор: volvo877 23.5.2008, 19:25

Цитата(KasMP @ 23.5.2008, 19:06

)

не писать же отдельную процедуру для подсчета доп.кода!

Нет, конечно... shr + and в помощь:

Код

var
  a: longint;
  i: integer;
  s: string;

begin
  s := '';
  a := -10;
  for i := 1 to sizeof(a) * 8 do begin
    if a and $1 = 0 then s := '0' + s else s := '1' + s;
    a := a shr 1;
  end;
  writeln(s);
end.

Автор: KasMP 23.5.2008, 19:48

volvo877, спасибо за участие smile

.
Ты бы не мог пояснить, в чем смысл этой части?

Код

if a and $1 = 0 then s := '0' + s else s := '1' + s;
a := a shr 1;

Почему-то этот код для -10 типа shortint (поменяла я тип, чтобы смотреть было удобнее...) выдает "11110110" вместо "11110100".

P.S.. Вот чем "окупается" самонадеенность: в тот день было что-то похожее, я была у доски, все прекрасно понимала и делала - решила не переписывать в тетрадку...
А сейчас smile

.

Добавлено через 4 минуты и 36 секунд
volvo877, можно тебя попросить глянуть и другие темы? Если http://forum.vingrad.ru/forum/topic-212931.html у меня есть идея, то http://forum.vingrad.ru/forum/topic-212924.html вообще туго (и вот http://forum.vingrad.ru/index.php?showtopic=210196&view=findpost&p=1520844 все подвисло в самом конце).
Не проходи мимо, пожалуйста!

Автор: volvo877 23.5.2008, 20:04

Цитата(KasMP @ 23.5.2008, 19:48

)

Почему-то этот код для -10 типа shortint (поменяла я тип, чтобы смотреть было удобнее...) выдает "11110110" вместо "11110100".

А кто сказал, что должно быть 11110100? smile

Сама же сказала, что отриц. числа хранятся в дополнительном коде. Смотри:
10(10) = 00001010(2), так? Переводим в обратный код: 11110101 и теперь +1 к младшему биту, чтобы перевести в дополнительный... Что будет?

Цитата(KasMP @ 23.5.2008, 19:48

)

Ты бы не мог пояснить, в чем смысл этой части?

Младший бит числа ($1 эквивалентно $01 для однобайтовых чисел, $0001 для двухбайтовых, и т.д.) сравниваем с 1. Для чего делаем логическое умножение. Если в результате получаем значение = 0, значит, в младшем бите проверяемого числа был 0 (0 and 1 = 0), если 1 - значит, была 1-ца: (1 and 1 = 1). Все остальные разрадя обнулятся по любому, поскольку And-ятся с нулями... Ну, а после принятия решения, чему был равен бит, и что печатать, сдвигаем значение вправо... Чтобы проверять следующий бит, который теперь младший...

Автор: KasMP 26.5.2008, 01:16

Все вспомнила и поняла smile

. Без твоего примера smile

было бы намного сложнее smile

.
Спасибо за помощь smile