что за странный результат?

[marina15056]

интересно, это только у меня так? или я не знаю какой-то великой тайны?

Вобщем вчера скачала хороший учебник по дельфи и там есть такое выражение
sek := Trunc(t*100) mod 100;
я никогда trunc не использовала и решила его помучать, но еще сильней запуталась. Скорей всего у меня глючный дельфи, или я сама, но почему 310???.

procedure TForm1.Button1Click(Sender: TObject);
var t:real;
begin
label1.Caption:=inttostr(trunc(3.11 *100)); //=311
t:=3.11;
label2.Caption:=inttostr(trunc(t*10 0)) //=310???????
end;
procedure TForm1.Button2Click(Sender: TObject);
var t:real;
begin
label3.Caption:=inttostr(trunc(3.12 *100)); //=312
t:=3.12;
label4.Caption:=inttostr(trunc(t*10 0)) //=312
end;
procedure TForm1.Button3Click(Sender: TObject);
var t:real;
begin
label5.Caption:=inttostr(trunc(4.11 *100)); //=411
t:=4.11;
label6.Caption:=inttostr(trunc(t*10 0)); //=411
end;

[TwiX]

Скорее всего проблема в точности real.
3.11*100=310.99999999999999996
А trunc просто обрубает всё, что после точки
trunc(310.99999999999999996)=310

З.ы. эт моё предположение

[russian-stalker]

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

[Alex Cones]

3.11*100=310.99999999999999996

Но тогда почему нормально реагирует на 4?

begin
label5.Caption:=inttostr(trunc(4.11 *100)); //=411
t:=4.11;
label6.Caption:=inttostr(trunc(t*10 0)); //=411

[Greblin]

Проблема скорее всего действительно в том, что указал TwiX. Кстати заметьте, функция trunc принимает аргумент x типа extended, и вот с ним никаких проблем вроде бы не возникает
-----------------------------------------------------------------------------
P.S. Синхронность на грани фантастики

[Alex Cones]

Ну это значит из той же оперы, что:

Procedure TForm1.Button1Click(Sender: TObject);
Var a: Real; n: Integer;
Begin
a:=443.432;
a:=(a-440)*100;     //  a = 443.432 - 440 * 100 = сколько..?    Вы думали 343.2..?   А нифига:
ShowMessage(FloatToStr(a));    //  a = 343.200000000002     Х_х
End;

[marina15056]

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

Скорее всего проблема в точности real.
3.11*100=310.99999999999999996
А trunc просто обрубает всё, что после точки
trunc(310.99999999999999996)=310

З.ы. эт моё предположение

но тогда real должен был и 411 тоже обрубить.

я тут на всякий случай решила выложить саму прогу, гляньте на досуге, может это моя ошибка (в смысле комповская)?

упс, пока писала, то уже отметили про 411

[Alex Cones]

Заменил Ваш real на extended - все нормально.
Вывод:
Забудьте про real.

[TwiX]

Сообщение от Alex Cones

Заменил Ваш real на extended - все нормально.
Вывод:
Забудьте про real.

Вывод:
Проблема в real

[marina15056]

Сообщение от Alex Cones

Заменил Ваш real на extended - все нормально.
Вывод:
Забудьте про real.

Вы правы, прощай real )))

А вообще я всегда пользовалась ansipos-ом и copy-ом для выделения целых чисел. Это всё учебник новый