спасибо )) тоже помогло
и думаю теперь последний мой вопрос по данной теме )))
как сделать чтобы вещественное число ОКРУГЛЯТЬ до целого?))
потому что в делфи я писал, там 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, нелепая ошибка ))