Проблемы с типами данных в Delphi

[paul11j]

Пожалуйста подымите это:

Код: Выделить всё

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

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

[Игорь Акопян]

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

[paul11j]

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

Что не ясно? Проблемы у меня с формулой.

[BBB]

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

[Игорь Акопян]

дико извиняюсь, но фраза

Пожалуйста подымите это

вогнала меня в ступор
А так можно было и ошибку привести, может стало бы понятнее где скобки не хватает

[paul11j]

ахааха.там не в скобке проблема.вот правильно

Код: Выделить всё

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

[Sheka]

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

[Игорь Акопян]

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

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

[Duncon]

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

[Sheka]

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

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

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