Уроки по созданию игр для новичков...

[Beermonza]

Сообщение от Alexan-Dwer

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

Эту задачу должен сразу решить разработчик. Зная структуру своей программы он должен видеть пересечение переменных и задавать их тип соответственно. Если используются числа от 0 до 255 только! ...то тип их будет Byte, если от 0 до 65535, то - Word, все остальные, включая отрицательные - в тип Integer, а с запятыми, универсальный - Real, или тот же Double. Не нужно так критично подходить к выбору типа данных в нашем случае. Касаемо игры нет смысла применять например ShortInt (от -127 до 127), или Int64. Экономить память нужно в другом месте - при загрузке и хранении графических данных. Нужно хорошо подумать, какие именно диапазоны чисел используются в игре и сделать выводы.

[Alexan-Dwer]

Beermonza,

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

с этим я полностью согласен.

Видимо, я не правильно задал вопрос: есть переменная Month, которая принимает значения от 1 до 12.
Мне нужно получить правильное значение, равное 1, если пользователь ввел 13. Поэтому я привел аналогию с Byte(-4) = 252.
Видимо со своим типом такой возможности нет, кроме как пользоваться дополнительной функцией собственного производства.
Да и с Byte похоже происходит сдвиг на аппаратном уровне, куда и ассемблером не добраться, что уж говорить о Pascal’е.

P.S. Int64 я вообще не разу не использовал, так как не работал с такими числами. А вот почему нет смысла использовать ShortInt я так и не понял

[Arigato]

Сообщение от Alexan-Dwer

При разработке игр очень часто приходится пользоваться переменными, которые имеют ограниченный тип: здоровье, время или кадр анимации. В языке Pascal есть возможность указать диапазон переменной. Однако иногда необходимо присвоить значение, которое выходит за рамки этого диапазона, и получить новое, например: Byte(-4) = 252.

Про целочисленные типы данные в Pascal хорошо изложено тут: http://it-starter.ru/content/tseloch...-yazyke-pascal

[Alexan-Dwer]

Arigato, спасибо, почитал и подтвердил свои предположения:

...с Byte похоже происходит сдвиг на аппаратном уровне
...со своим типом такой возможности нет, кроме как пользоваться дополнительной функцией

[Arigato]

Не пойму, о каком сдвиге идет речь?

[Alexan-Dwer]

Сообщение от Arigato

Не пойму, о каком сдвиге идет речь?

Сдвиг, переполнение, перегрузка - точный термин не знаю...
Выглядит это так:

var
a: Byte;
begin
a:=Byte(-4);
if a = 252 then ShowMessage('Hello, world!');
end;

[Beermonza]

Сообщение от Alexan-Dwer

есть переменная Month, которая принимает значения от 1 до 12.
Мне нужно получить правильное значение, равное 1, если пользователь ввел 13.

Условие не помогает? ...выход за пределы специфического диапазона всегда обрабатывается фильтром на основе условного оператора: If, Case, While.

[Arigato]

Ну так Byte не может содержать отрицательных значений.

[Beermonza]

Alexan-Dwer, если тебе нужно не допустить попадания отрицательных начений в переменную байт, диапазона 0 - 255, то есть функция Abs(), ...было -4, станет просто 4:

x := -4;
ShowMessage(IntToStr(Byte(Abs(x))));

[Wicort]

Если я правильно понял, ему не нужно модуль. Предполагается именно сдвиг влево. Т.е. если тип byte имеет диапазон 0 - 255, то при инициализации byte(-1) получим максимальное значение из диапазона (255). Соответственно, byte(-4) делает сдвиг на 4 влево, получаем 252.
Для своего типа если только самому писать если значение больше максимального, то присвоить разницу

пока x > max 
 x := x - max;

ну и соответственно, если меньше минимального, то

пока с < min
 x := max - x;