Интересненько!!!

[-Flover-]

Здравствуйте уважаемые программеры

возникла такая очень неприятная проблема....

kl:=sqrt(sqr(651-642) + sqr(376-438)); // кол-во клеток
klet[j]:=trunc(kl); 


результат = 63 клетки (правильно)

если подставить другие цифры, например:

kl:=sqrt(sqr(10-642) + sqr(1376-438)); // кол-во клеток
klet[j]:=trunc(kl); 


результат = 639 клетки (НЕ правильно!!) должно быть = 1131 !!!

почему такой глюк??? кто знает как это исправить подскажите плиз!!!

смысл проги заключается в расчитывании колличества клеток между двумя точками на координатной плоскости, писал эту же прогу на делфи, решил перевести в моб, а здесь такой косяк...

[cherepets]

Слева в настройках приложения (Properties) выставь Real numbers: floating-point. Поможет.

О причинах по которым 1я скобка выходит равной 0 при fixed-point (а именно в это беда) я не знаю.

[-Flover-]

благодарю, помогло

теперь как понимаю из-за этого другая проблема ((

r:=klet[j]/stringtointeger(formGetText(1)); 


выдает целое число, при любых делимых и делителей...
как исправить?

тоесть при делении допустим 13 на 2 = 6,5 а выдает тупо 6 ((

[ViNT]

Сообщение от -Flover-

теперь как понимаю из-за этого другая проблема ((

r:=klet[j]/stringtointeger(formGetText(1)); 


выдает целое число, при любых делимых и делителей...
как исправить?

тоесть при делении допустим 13 на 2 = 6,5 а выдает тупо 6 ((

Написать

r:=klet[j]*1.0/(stringtointeger(formGetText(1))*1.0); 


[-Flover-]

спасибо )) тоже помогло и думаю теперь последний мой вопрос по данной теме )))

как сделать чтобы вещественное число ОКРУГЛЯТЬ до целого?))

потому что в делфи я писал, там round(x); // где х - real

а здесь на сколько я понял РАУНДа нет, и в хелпе смотрел, тоже ничего подобного не нашел... пришлось использовать trunc, но из-за этого данные не точные...


п.с. сорри что каждый раз задаю вопросы, просто они приходят по мере появления проблем... ((

вопрос снят )) решил проблему таким образом:

kl:=sqrt(sqr(m1[j]-n1[i]) + sqr(m2[j]-n2[i])); // кол-во клеток
   z:= Trunc(frac(sqrt(sqr(m1[j]-n1[i]) + sqr(m2[j]-n2[i]))*1.0)*10); // выдераем дробную часть
   if z<5 then // если дробная часть меньше 4, то не округляем
   klet[j]:=trunc(kl);
   if z>=5 then   // если дробная часть больше или = 5, то округляем, тоесть прибавляем 1
    klet[j]:=trunc(kl)+1 


новый вопрос ((

считываю строку: rr:=formGetText(4);
потом по циклу выбираю нужные мне данные из строки...
и вывожу: formSetText(5,....);

строку проверяю с 0 до length(rr)

в итоге мне выводит вместе с символом конца строки, пробовал цикл делать до length(rr)-1 но тогда всё зависает ((, а мне этот символ конца строки совершенно не нужен...



и этот вопрос снят )) было три цикла, а я читал в двух из трех до конца строки-1, нелепая ошибка ))

[Igor]

Как вариант:
f:string; ....
if f<>'' then
x:=length(f);
приём из обычного паскаля

[-Flover-]

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

Как вариант:
f:string; ....
if f<>'' then
x:=length(f);
приём из обычного паскаля

спасибо конечно за ответ на сколько я понял Вы написали по поводу "как сделать чтобы в строке небыло символа конца строки"? если это так, то вариант не совсем правильный

два варианта, либо ваш, только подправленный:

f:string; ....
if f<>'' then
  x:=length(f)-1; 


так как последний символ строки это "окончание строки" мы его в дальнейшем в циклах использовать не будем

либо 2 вариант, похожий:

скопировать в строку в другую переменную без последнего символа

п.с. это конечно всё с учетом что строка бралась formGetText, за остальные не знаю как там

и в общем-то у меня всё работает, спасибо что помогли тема закрыта