Курский Форум

**BeteTest** » 12 сен 2007, 14:16:33

Alex ilmarranen
А зачем int??? (получение целой части, есть же транк и раунд)

**Alex ilmarranen** » 12 сен 2007, 14:44:19

)) Если ты заметилъ… Это не совсемъ целая часть… Тамъ же +0.5 стоитъ… И въ итоге получается округление по математическимъ правиламъ… Назовёмъ это функцией Окр(X)… Т.е.
Окр(3.2)=3
Окр(3.8)=4
Окр(3.5)=4

Вотъ что даётъ Int(X+0.5)… Тогда какъ въ языке нетъ функции, округляющей по этому правилу…

Но дело не въ этомъ…
Два куска… Значение которыхъ одинаково… - результаты на одномъ единственномъ(!)… точнее единственномъ мною найденномъ значении не совпадаютъ…
Барада? - Барада…

**мисс_граффити** » 12 сен 2007, 18:21:32

можешь выложить весь модуль?
хочу попробовать погонять (со всеми ТВОИМИ переменными и т.п.).
Полагаю, что проблема идет с округлением…
PartCount, например, это что?…

Alex ilmarranen писал(а): Тогда какъ въ языке нетъ функции, округляющей по этому правилу…

Здрасти… Курим хелп:
Round function returns the value of X rounded to the nearest whole number.

**Гость** » 13 сен 2007, 12:44:18

Кто нибуть знает функцию перевода числа из 10-ой в 2-ую систему исчесления в Паскале или Delphi?

**Alex ilmarranen** » 13 сен 2007, 13:47:32

Извиняюся… Тупанулъ….
Я тутъ за 2 дня уже года 3 жизни съ этими округлениями потерялъ….
То имъ блинъ Int поставь… То ихъ неустраиваетъ… Задалбали вобщемъ….
Короче… Вместо

Alex ilmarranen писал(а):Назовёмъ это функцией Окр(X)… Т.е.
Окр(3.2)=3
Окр(3.8)=4
Окр(3.5)=4

нужно было написать….

Alex ilmarranen писал(а):Назовёмъ это функцией Окр(X)… Т.е.
Окр(X.2)=X
Окр(X.8)=X+1
Окр(X.5)=X+1

Вобщемъ запарился… сори…

2Wizard for Kursk стандартной нету… Тока самому писать… Алгоритмъ я думаю знаешь…

**мисс_граффити** » 13 сен 2007, 15:09:51

Wizard for Kursk писал(а):Кто нибуть знает функцию перевода числа из 10-ой в 2-ую систему исчесления в Паскале или Delphi?

Код: Выделить всё: function FromDec(n, radix:longint):string; var s: String; const digit: string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod radix)+1]+s; n:=n div radix; until n=0; FromDec:=s; end;

Из 10-ой в любую (до 16-ричной). В 2-ную переведет.

**DimMan** » 24 сен 2007, 09:22:20

Alex ilmarranen писал(а):Найдите 10 отличий… И скажите почему при определённых обстоятельствахъ результатъ разный… Йафшоки…

Дык
Real -2.9 x 10^39 .. 1.7 x 10^38

Extended
-3.6 x 10^4951 .. 1.1 x 10^4932

оператор Int оперирует со значением типа экстендед
соответственно если в твоем выражении (M[i,j]-MinM[j])/IndexM[j]+0.5+1 получается длинная бесконечная дробь, то соответственно присвоение результата выражения переменной B типа real обрежет эту дробь по сравнению с подстановкой этого выражения в функцию int. Отсюда и разные результы. Попробуй дать переменной B тип extended.

**Alex ilmarranen** » 24 сен 2007, 14:25:44

Да

Такъ и есть… Уже разобрались.. За что мисс_граффити отдельное гагантское спасибо…
Но типъ extended тамъ не поможетъ…

**Гость** » 18 ноя 2007, 14:54:48

Ted
А помочь программку написать можешь?*TIRED*

**мисс_граффити** » 18 ноя 2007, 15:30:08

Glam, маловероятно.
Из его профиля:
Последняя запись: - 23 Июня, 2007 - 15:33:11

**Гость** » 19 ноя 2007, 11:47:13

мисс_граффити
Да я уже поняла… Жалко, помощь его б пригодилась(

**мисс_граффити** » 19 ноя 2007, 21:37:42

Ну что тебе сказать….
Попробуй в аську/на мыло написать (или че там у него в профиле имеется). Вдруг ответит…

**Гость** » 17 дек 2007, 15:12:13

люди плиз помогите, нужно подробное описание функции fromdec и todec.

**John** » 17 дек 2007, 16:17:48

Tauruns

**DenZ** » 02 апр 2008, 16:07:25

Как создать прогу, которая полностью не видна для диспетчера устройств? Кто знает подскажите…

**BeteTest** » 02 апр 2008, 16:34:39

DenZ
А диспетчер устройств их и не наблюдает полностью. www.delphi-world.ru

**DenZ** » 02 апр 2008, 16:36:52

BeteTest
Как создать прогу, которая полностью не видна для диспетчера задач? Может хоть это вам известно…

**John** » 07 апр 2008, 14:33:54

DenZ
элементарно Ватсон (с), используя kernel32.dll, или тебе исходник нужон?

**larboss** » 16 апр 2008, 23:53:26

Как создать ICQ-клиент? Необходимо очень…

**BeteTest** » 17 апр 2008, 07:00:51

larboss писал(а):Как создать ICQ-клиент? Необходимо очень…

Найди компонент TICQClient а потом пиши оболочку, его можешь править.

**larboss** » 17 апр 2008, 19:09:42

BeteTest писал(а):Найди компонент TICQClient

А в Borland Deloper Studio 2006 он входит?

**Alex ilmarranen** » 17 апр 2008, 19:53:29

о_О нет конечно…

**larboss** » 17 апр 2008, 22:14:46

Остаеться, только скачать…

**Anri** » 04 июн 2009, 13:23:06

хто освоил делфи 2009?

народ, как ваабще в делфе работать с XML/XSL?
кто, что знает по теме?

**snb** » 04 июн 2009, 16:42:35

Сто лет не слышал про Дельфи… Думал, проект уже закрыли. Что же они, в хвосте микрософтовской Студии так и плетутся?