Delphi

Assembler, Basic, Pascal/Delphi, Perl, PHP, JavaScript, HTML и т.д. Вопросы и помощь.

Delphi

Непрочитанное сообщение BeteTest » 12 сен 2007, 14:16:33

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

Delphi

Непрочитанное сообщение Alex ilmarranen » 12 сен 2007, 14:44:19

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

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

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

Delphi

Непрочитанное сообщение мисс_граффити » 12 сен 2007, 18:21:32

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

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

Здрасти… Курим хелп:
Round function returns the value of X rounded to the nearest whole number.
мисс_граффити
Завсегдатай
Завсегдатай
 
Сообщения: 605
Зарегистрирован: 07 окт 2006, 21:12:50

Delphi

Непрочитанное сообщение Гость » 13 сен 2007, 12:44:18

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

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 стандартной нету… Тока самому писать… Алгоритмъ я думаю знаешь…
Alex ilmarranen
 

Delphi

Непрочитанное сообщение мисс_граффити » 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-ную переведет.
мисс_граффити
Завсегдатай
Завсегдатай
 
Сообщения: 605
Зарегистрирован: 07 окт 2006, 21:12:50

Delphi

Непрочитанное сообщение 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.
DimMan
Интересующийся
Интересующийся
 
Сообщения: 68
Зарегистрирован: 25 сен 2006, 10:22:05
Откуда: Kursk

Delphi

Непрочитанное сообщение Alex ilmarranen » 24 сен 2007, 14:25:44

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

Delphi

Непрочитанное сообщение Гость » 18 ноя 2007, 14:54:48

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

Delphi

Непрочитанное сообщение мисс_граффити » 18 ноя 2007, 15:30:08

Glam, маловероятно.
Из его профиля:
Последняя запись: - 23 Июня, 2007 - 15:33:11
мисс_граффити
Завсегдатай
Завсегдатай
 
Сообщения: 605
Зарегистрирован: 07 окт 2006, 21:12:50

Delphi

Непрочитанное сообщение Гость » 19 ноя 2007, 11:47:13

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

Delphi

Непрочитанное сообщение мисс_граффити » 19 ноя 2007, 21:37:42

Ну что тебе сказать….
Попробуй в аську/на мыло написать (или че там у него в профиле имеется). Вдруг ответит…
мисс_граффити
Завсегдатай
Завсегдатай
 
Сообщения: 605
Зарегистрирован: 07 окт 2006, 21:12:50

Delphi

Непрочитанное сообщение Гость » 17 дек 2007, 15:12:13

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

Delphi

Непрочитанное сообщение John » 17 дек 2007, 16:17:48

Tauruns
=-O
John
Хранитель
Хранитель
 
Сообщения: 1646
Зарегистрирован: 31 окт 2006, 11:46:39
Пол: Мужской

Delphi

Непрочитанное сообщение DenZ » 02 апр 2008, 16:07:25

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

Delphi

Непрочитанное сообщение BeteTest » 02 апр 2008, 16:34:39

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

Delphi

Непрочитанное сообщение DenZ » 02 апр 2008, 16:36:52

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

Delphi

Непрочитанное сообщение John » 07 апр 2008, 14:33:54

DenZ
элементарно Ватсон (с), используя kernel32.dll, или тебе исходник нужон?
John
Хранитель
Хранитель
 
Сообщения: 1646
Зарегистрирован: 31 окт 2006, 11:46:39
Пол: Мужской

Delphi

Непрочитанное сообщение larboss » 16 апр 2008, 23:53:26

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

Delphi

Непрочитанное сообщение BeteTest » 17 апр 2008, 07:00:51

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

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

Delphi

Непрочитанное сообщение larboss » 17 апр 2008, 19:09:42

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

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

Delphi

Непрочитанное сообщение Alex ilmarranen » 17 апр 2008, 19:53:29

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

Delphi

Непрочитанное сообщение larboss » 17 апр 2008, 22:14:46

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

Delphi

Непрочитанное сообщение Anri » 04 июн 2009, 13:23:06

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

народ, как ваабще в делфе работать с XML/XSL?
кто, что знает по теме?
Давай с тобой поговорим, прости, не знаю, как зовут.
Но открывается другим, все то, что близким берегут.
Ты скажешь: "Все наоборот, согласно логике вещей",
Но это редкий поворот, а, может, нет его вообще.

(с) О.Митяев
Anri
Магистр
Магистр
 
Сообщения: 2137
Зарегистрирован: 05 июл 2006, 23:30:06
Откуда: Frankfurt am Main, Germany
Пол: Мужской

Delphi

Непрочитанное сообщение snb » 04 июн 2009, 16:42:35

Сто лет не слышал про Дельфи… Думал, проект уже закрыли. Что же они, в хвосте микрософтовской Студии так и плетутся?
snb
Старожил
Старожил
 
Сообщения: 1095
Зарегистрирован: 01 дек 2006, 08:46:05
Пол: Мужской
Имя: Сергей

Пред.След.

Вернуться в Программирование

Кто сейчас на форуме

Зарегистрированные пользователи: AhrefsBot [Bot], Bing [Bot], DotBot [Crawler], Google [Bot], SEMrush [Бот], Trendiction [Бот]