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

[Marsel737]

rmise, от твоих постов в глазах пястрит уже, почитай правила, пока тебя не оштрафовали, запрещено создавать два и более постов подряд, для этого есть кнопка "Правка"

[настенка=)]

Ребятки,всем привет=))))
мне нужна помощь по бейсику....

[vedro-compota]

тему создай))

[eoln]

Я думаю, что rmise попал в "ловушку" компилятора. Проблема уже несколько раз встречалась на форуме.
Вся проблема в строчке s:=m*b; если переменные m или b имеют тип недостаточный для хранения результата их операции. То есть эта строчка с точки зрения машины рассматривается как 2 разных команды. Первая - это умножение m и b, а вторая присваивание результата умножения переменной s. Вот в результате первой команды и происходит переполнение, так как результат будет храниться в типе которых минимально подходит для m и b (в примере это тип integer). А невиновной переменной s присваивается уже заведомо ложное значение.
Выход либо в разделении этих 2-х "команд", либо в явнов указании их типов. См, пример:

var
  m:byte;
  b:integer;
  s:double;
begin
  m:=30;
  b:=200000000;

  s:=m*b;
  writeln(s:0:1);

  s:=m;
  s:=s*b;
  writeln(s:0:1);
  readln
END.

[Utkin]

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

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

Это ошибки округления, а не среды программирования и Экзель им подвержен тоже. Связано с логикой работы математического сопроцессора.
ЗЫ. Даю наводку, есть такая вещь как гугл...

[Stilet]

получилось только тогда, когда оба множителя типа extended

Проверил на Д6: var s:Double;b,m:Double; результ = 6.00000000000000E+0009 - Все правильно считает, то ты явно типы операндов неверные взял. Если так:

s:Double;b,m:integer;

То да это неправильно, потому что первый операнд имеет тип отличный от типа результата, Но если он будет иметь тип сходный с типом результата, то преобразование типов (перед вычислением) пройдет правильно:

s:Double;m:Double;b:integer;

Иногда для приведения типов использую такой финт:

var  e,s:Double;m:integer;b:integer;

begin      
 m:=30; b:=200000000;e:=1;
 s:=e*m*b;
  { TODO -oUser -cConsole Main : Insert code here }
  write(s);readln;
end.

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

[Vlad_55]

Мдя...это ещё rmise до деления не дошел Там-то вообще "ошибок" тучи! Например так:

procedure TMainForm.FormCreate(Sender: TObject);
var a,b,c:single;
begin
  a:=9.8;
  b:=1000000;
  c:=a/b;
 ShowMessage(FloatToStr(a)+#10#13+FloatToStr(b)+#10#13+FloatToStr(c))
end;

Резульат:

Что-то явно не так, да?
А теперь с extended:

procedure TMainForm.FormCreate(Sender: TObject);
var a,b,c:extended;
begin
  a:=9.8;
  b:=1000000;
  c:=a/b;
  ShowMessage(FloatToStr(a)+#10#13+FloatToStr(b)+#10#13+FloatToStr(c))
end;

Во так вот. Правильно надо типы данных подбирать. А говорить, что Delphi не правильно умножает я бы не стал...