Показать сообщение отдельно
  #2  
Старый 28.12.2006, 21:10
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

А ты ожидала чегото другого? У тебя S типа Smallint (тоесть целое число), а ты ей присваиваешь (0.5*(2*x2-x4-x3)*(y1-y2)) или ((1/2)*(x2-x1)*(y3+y4-2*y2)). В результате умножения на 0.5 (или 1/2, что одно и тоже) получается вещественное число...
Ответить с цитированием