Delphi не правильно умножает

[rmise]

Добрый вечер всем!
Делаю так:
s:=m*b, где m=30, а b=200 000 000 результат получается неверный!!!

а если так:
for m:=1 to 30 do s:=s+b то все правильно получается!!

Может кто знает как это понимать и как с этим бороться?
Заранее благодарен за ответ!!

[fbus]

а S как объявлено?

[rmise]

s объявлено как double

[W0LF]

Если бы вы rmise учили бы типы Delphi, то знали что тип integer имеет свои граници: -2147483648..2147483647, а вы пытаетесь задать ему 6 млрд. Используйте Int64, там аж -9223372036854775808..92233720368547 75807

[Kotofff]

А как проверил что неправильно умножает ?

[Marsel737]

размерность типа intger: 2147483647, если у вас s такого типа, то в этом и ошибка, причём ваша, а не делфи

[rmise]

WOLF
вообще-то double имеет границы от 2.23 x 10-308 до 1.79 x 10+308
и если бы было переполнение, то цикл for то же бы считал неправильно

в экселе посчитал

кстати если записать так:
s:=30*200 000 000 то вообще не копмилит
а так
for m:=1 to 30 do s:=s+200 000 000
нормально

[Kotofff]

Так ! Еще один ищущий ошибки в среде, а не у себя в коде.
1) Вот банальный пример с числами гораздо большими :

procedure TForm4.Button1Click(Sender: TObject);
var
  s:Extended;
  a,b:Extended;
  ss: string;
begin
  a := 392;
  b := 22300450099;
  s := a * b;
  Str(s:20:0, ss);
  label1.Caption := ss;
end;

00002.jpg
... ну и MS Excel 2010 :
00003.jpg
И где тут неправильность ?!

2) Погугли на предмет ошибок в MS Office ... Просто для изучения ...

[rmise]

спасибо, щас попробую

Неа все равно не катит!
Excel то правильно считает, а у меня результат получается меньше чем 200 000 000!!!!!!

получилось только тогда, когда оба множителя типа extended
спасибо, но возникла другая проблема, как перевести Extended в int64?

во я туплю!!!! надо спать ложиться!
спасибо за помошь, истина где-то рядом

[Serge_Bliznykov]

Всем, всем, всем.

Крайне настоятельно рекомендую ознакомится со статьёй.

Неочевидные особенности вещественных чисел (с) Григорьев Антон

(и знать, как оно там внутри, полезно не только программистам на Delphi )