Developing.ru

[quote]если под "фигнёй" вы подразумеваете длинный хвост вида .00000000000351 - то да, это нормально
читать тут и тут[/quote]

Спасибо за первое "тут".
даже не представлял, что такое возможно.

P.S. Под "фигней" я подразумевал что-то типа -7.3015691270939E-8.
я просто делал вывод в таблицу, и последних знаков не видел.

Мну возбуждает подобный подход..
[syntax=Delphi]
function FloatToStrDig(const X: Extended; Digits: Integer = 3): string;
begin
Str(X::D igits, Result);
end;
[/syntax]

[b]Sheka[/b], если под "фигнёй" вы подразумеваете длинный хвост вида .00000000000351 - то да, это нормально
читать [url=http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374]тут[/url] и [url=http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=1217]тут[/url]

чтобы избавиться от хвостов используйте функцию
Format('%.2f', [X]); // .2 - вывод 2-х знаков после запятой

возможно ли чтобы функция floattostr(X) возвращала какую-то фигню, если х изменяется так:
...
x:=-1;
while x<=1 do begin
x:=x+0.001;
floattostr(x);
...
end;
...

w:=(trunc(exp(strtofloat(s4)*ln(strtofloat(inttostr(ord(x[q]))))))) mod (trunc(strtofloat(s3)));

ахааха.там не в скобке проблема.вот правильно
[code]w:=(trunc(exp(strtofloat(s4)*ln(strtofloat(inttostr(ord(x[q]))))))) mod (trunc(strtofloat(s3)));[/code]

дико извиняюсь, но фраза [quote="&quot"]Пожалуйста подымите это[/quote]
вогнала меня в ступор
А так можно было и ошибку привести, может стало бы понятнее где скобки не хватает

Вот видите, Вы и сами все знаете! :)
Семь открывающих скобок на шесть закрывающих.

[quote="Игорь Акопян"]а что, оно падало?[/quote]
Что не ясно? Проблемы у меня с формулой.

а что, оно падало?

s:=s+inttostr(int(exp(ln(ord(x[q])*strtoint(s4))) mod strtoint(s3));

Пожалуйста подымите это:
[code]s:=s+inttostr(int(exp(ln(ord(x[q])*strtoint(s4))) mod strtoint(s3));[/code]

Типы переменных:
s,x,s3,s4:string,q:integer.
Спасибо.