Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
Вниз
Алгоритм вычисления номера квартала Найти похожие ветки
← →
Denis_Visma (2004-06-18 11:29) [0]Люды!!! есть у кого то сабж.
← →
panov © (2004-06-18 11:33) [1]А что, для этого специально алгоритм нужен?
Знаний арифметики в пределах 4-х классов школы не достаточно?
← →
TUser © (2004-06-18 12:45) [2]У меня есть. Работает за О(С) при любых исходных данных. Могу обменять на алгоритм сортировки произвольного массива, работающий с такой же скоростью.
← →
ПсихЪ © (2004-06-18 14:00) [3]Блин!!! ): Ну, чёрт вас подери!!! Ну ведь это же настолько... ): Блин, короче... ):
http://delphiworld.narod.ru - качай и не задавай глупых вопросов!!!
← →
Gala (2004-06-18 15:59) [4]ceil(MonthOf(Date())/3)
← →
TUser © (2004-06-18 16:00) [5]
> http://delphiworld.narod.ru
На ДелфиВорде лежат статьи по Delphi, WinAPI, базам и пр. А сабж касается алгоритмов, пусть и простых. Не уверен, что там это есть.
← →
panov © (2004-06-18 16:15) [6]Да какой тут алгоритм? Какие статьи?
Весь алгоритм заключается в получении номера месяца.
function Kvart(const aDate: TDateTime): Integer;
var
MM: Integer;
begin
MM := StrToInt(FormatDateTime("mm",aDate));
Result := (MM div 4) + 1;
end;
← →
VMcL © (2004-06-18 16:21) [7]>>panov © (18.06.04 16:15) [6]
Гы, а чё не через DecodeDate, а через FormatDateTime + StrToInt?
← →
panov © (2004-06-18 16:28) [8]>VMcL © (18.06.04 16:21) [7]
Так зачем лишние переменные вводить?
← →
Johnmen © (2004-06-18 17:12) [9]>>panov © (18.06.04 16:15) [6]
Гы, а чё не через MonthOf, а через FormatDateTime + StrToInt?
>Так зачем лишние переменные вводить?
Типа MM совсем не лишняя ?
:)
← →
Алхимик © (2004-06-18 17:22) [10]Алгоритм вычисления номера квартала...
... по номеру дома.
:)
← →
Jeer © (2004-06-18 17:40) [11]Алхимик © (18.06.04 17:22) [10]
Вот и я так подумал, хотел уже спутниковую съемку и распознавание образов рекомендовать:)
← →
VMcL © (2004-06-18 17:54) [12]>>panov © (18.06.04 16:28) [8]
ИМХО, лучше несколько доп. байт в стеке выделить, чем заставлять динамическую строку мурыжить. Я уж молчу про быстродействие :)
← →
panov © (2004-06-18 18:28) [13]>VMcL © (18.06.04 17:54) [12]
ПУсть железяка работает, она железная!-)
← →
VMcL © (2004-06-18 18:43) [14]>>panov © (18.06.04 18:28) [13]
Думающая часть, обычно, не на железе, а на кремнии или чём-нить вроде того :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.033 c