procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : double;
begin
a := 54.12;
b := 10.12;
c := 44;
if (a<>(b+c)) then ShowMessage('Dziwne'); // <- wchodzi
if not (a=(b+c)) then ShowMessage('Bardzo dziwne');// <- wchodzi
a := b+c;
if (a<>(b+c)) then ShowMessage('Dziwne'); // <- wchodzi
if not (a=(b+c)) then ShowMessage('Bardzo dziwne');// <- wchodzi
ShowMessage('A = '+FloatToStr(a));
ShowMessage('B = '+FloatToStr(b));
ShowMessage('C = '+FloatToStr(c));
ShowMessage('B+C = '+FloatToStr(b+c));
ShowMessage('A - (B+C) = '+FloatToStr( a-(b+c) ) );
end;
Proszę o pomoc w wyjaśnieniu zagadki.
[edit]
p.s. A może mam wirusa lub padł mi coprocesor :| ?
Powiedzcie, że u was jest OK bo albo jestem głupi albo mam walnięty sprzęt.