Нужна функция проверки правильности номера ЖД вагона.

← →
Sens © (2006-12-15 09:58) [0]

У кого есть написаная функция проверки номера вагона на правильность? Поделитесь. Самому впадлу писать.

← →
Александр Иванов © (2006-12-15 10:05) [1]

А мне делиться впадлу.

← →
clickmaker © (2006-12-15 10:05) [2]

какого вагона? Электрички, метро, товарняка?

← →
Sens © (2006-12-15 10:08) [3]

Товарных.

← →
Sens © (2006-12-15 10:09) [4]

to Александр Иванов, придет война... попросишь хлеба :) (шутка).

← →
tesseract © (2006-12-15 10:11) [5]

if trainnumber>=random(20000) then
result:=true;
else
result:=false;

← →
Array © (2006-12-15 10:15) [6]

to Sens © (15.12.06 09:58)

А Вы знаете как высчитываться номер вагона ? и какая цифра контрольная?

← →
novill © (2006-12-15 10:16) [7]

> [0] Sens © (15.12.06 09:58)

Спасибо. Смеялся.

Ты решил, что мы все тут не программисты, а матерый машинисты, да? И все как один знаем, формат номеров товарных жд вагонов?

← →
Sens © (2006-12-15 10:19) [8]

to Array
Контрольная - последняя. Добавляет сумму цифр предварительного вычисления до полного десятка.

← →
clickmaker © (2006-12-15 10:20) [9]

> [8] Sens © (15.12.06 10:19)

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

← →
Sens © (2006-12-15 10:23) [10]

:)
Разленился...

← →
Anatoly Podgoretsky © (2006-12-15 10:25) [11]

> Александр Иванов (15.12.2006 10:05:01) [1]

Зачем делиться, человек работу заказывает.

← →
novill © (2006-12-15 10:28) [12]

> [9] clickmaker © (15.12.06 10:20)
>
> > [8] Sens © (15.12.06 10:19)
>
> ну так и чего сложного? считаешь предварительную сумму,
> потом прибавляешь последнюю. Если десяток полный - все путем

Похоже Sens все таки задурил голову. Зачем считать предварительную сумму, если она не используется, а с сразу прибавляется последняя.

> [10] Sens © (15.12.06 10:23)

Напишу эту функцию за 1$ )))

← →
Рамиль © (2006-12-15 10:34) [13]

> novill © (15.12.06 10:28) [12]

Не демпингуй.

← →
Anatoly Podgoretsky © (2006-12-15 10:40) [14]

> novill (15.12.2006 10:28:12) [12]

> Напишу эту функцию за 1$ )))

За каждый бит

← →
Плохиш © (2006-12-15 10:53) [15]

Интересно, в какой стране скоро железнодорожное сообщение разрушиться?

← →
Рамиль © (2006-12-15 10:58) [16]

> Плохиш © (15.12.06 10:53) [15]

Судя по анкете на Украине :)

← →
Sens © (2006-12-15 11:02) [17]

Нифига не разрушится :)

← →
Плохиш © (2006-12-15 11:06) [18]

> Sens © (15.12.06 11:02) [17]
> Нифига не разрушится

Тебя уже выгнали оттуда?

← →
novill © (2006-12-15 11:16) [19]

> [13] Рамиль © (15.12.06 10:34)

да ладно :) там 17 строк кода. Сплошные деления вычитания...

← →
sniknik © (2006-12-15 11:18) [20]

> Напишу эту функцию за 1$ )))
блин, даже разговор об оплате, даже о 5 минутной в написании программе, не должен начинаться меньше чем со 100$. меньше = полный отказ. неважно чего.

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

← →
Sens © (2006-12-15 11:32) [21]

Все, готово.
Сам сделал. Хорошо, что ни у кого не оказалось функции. Хоть немного мозги размял.
:) :) :)

← →
icWasya © (2006-12-15 11:52) [22]

Я вот еще слышал, что первая цифра номера отвечает за вид вагона ,
типа 7 - платформа, 5 - бортовой вагон без крыши, 8 - цистерна( за точность цифр не ручаюсь)

← →
Anatoly Podgoretsky © (2006-12-15 12:19) [23]

> sniknik (15.12.2006 11:18:20) [20]

> попроси через дорогу перевезти

Нет проблем, хоть 10 метров, хоть 5 км - плата одинаковая.

← →
sniknik © (2006-12-15 12:47) [24]

> Нет проблем, хоть 10 метров, хоть 5 км - плата одинаковая.
так ведь не поедет же, или за 10 метров запросит денег как за 5км... или ты о том же? - >"плата одинаковая."

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

← →
novill © (2006-12-15 13:04) [25]

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

Я вот две остановки на такси 500м проезжал за 10 рублей )))

← →
Anatoly Podgoretsky © (2006-12-15 13:09) [26]

> sniknik (15.12.2006 12:47:24) [24]

Поедет, плата одинаковая, а на 10 метров ему еще и выгоднее.
Свыше 5 км плата другая.
Смотри на это иначе, это предоплаченый проезд до 5 км.

← →
Mystic © (2006-12-15 16:09) [27]

function IsValue(No: Int64): Boolean;
var
Sum: Integer;
begin
Sum := 0;
while No <> 0 do
begin
Sum := Sum + No mod 10;
No := No div 10;
end;
Result := (Sum mod 10) = 0;
end;

← →
novill © (2006-12-15 16:18) [28]

> [27] Mystic © (15.12.06 16:09)

И это после долгих разговоров, что свой труд надо уважать!!! )))

К тому же твоя ты не учел того что div работает с округлением.

А вообще алгоритм там чуть более сложный: 8-мизначное число. Четные разряды числа(самый младший имеет №1) надо умножить на 2, (если после умножения цифры разяда получится больше 10, то вместо разряда исползовать сумму цифр получившегося числа).

> novill © (15.12.06 16:18) [28]
> К тому же твоя ты не учел того что div работает с округлением.

С каким таким округлением?

> С каким таким округлением?

Работает-то он нормально, в справке занятно написано :)

The value of x div y is the value of x/y rounded in the direction of zero to the nearest integer.

> novill © (15.12.06 17:22) [30]

> The value of x div y is the value of x/y rounded in the
> direction of zero to the nearest integer.

И что тут не понятно "округлено в сторону нуля"?

Я не совсем понял, о чем эта ветка.
Найдите, пожалуйста Sens © после (15.12.06 11:32) [21]
и тогда, возможно, она станет актуальной:)
Ну, а с некоторыми постами я согласен!:)

Да какая нам разница, о чем ветка?

Своими глазами видел программу на делфи, которая по картинке распознавала номер вагона(под них была заточена). Но напроч забыл где брал...

> Своими глазами видел программу на делфи, которая по картинке
> распознавала номер вагона(под них была заточена). Но напроч
> забыл где брал...

По картинке???????
То есть дают фотку и она номер грабит????

> По картинке???????
> То есть дают фотку и она номер грабит????

Да там простая сеть но обучена под вагоны..
Шас поишу. Осталась наверно...

Простая распознавалка текста :)
http://kladovka.net.ru/index.cgi?pid=board&rid=381

← →
IA (2006-12-16 02:42) [38]

>
> Четыре тысячи двести шестьдесят восемь! Такой номер был
> у одного паровоза в Печках. Этот паровоз стоял на шестнадцатом
> пути. Его собирались увести на ремонт в депо Лысую-на-Лабе,
> но
> не так-то это оказалось просто, господин фельдфебель,
> потому
> что у старшего машиниста, которому поручили его туда перегнать,
>
> была прескверная память на числа. Тогда начальник дистанции
> позвал его в свою канцелярию и говорит: "На шестнадцатом
> пути
> стоит паровоз номер четыре тысячи двести шестьдесят восемь.
> Я
> знаю, у вас плохая память на цифры, а если вам записать
> номер
> на бумаге, то вы бумагу эту также потеряете. Если у вас
> такая
> плохая память на цифры, послушайте меня повнимательней.
> Я вам
> докажу, что очень легко запомнить какой угодно номер.
> Так
> слушайте: номер паровоза, который нужно увести в
> депо в
> Лысую-на-Лабе,-- четыре тысячи двести шестьдесят
> восемь.
> Слушайте внимательно. Первая цифра -- четыре, вторая
> -- два.
> Теперь вы уже помните сорок два, то есть дважды два --
> четыре,
> это первая цифра, которая, разделенная на два, равняется
> двум,
> и рядом получается четыре и два. Теперь не пугайтесь!
> Сколько
> будет дважды четыре? Восемь, так ведь? Так запомните,
> что
> восьмерка в номере четыре тысячи двести шестьдесят восемь
> будет
> по порядку последней. После того как вы запомнили, что
> первая
> цифра -- четыре, вторая -- два, четвертая -- восемь,
> нужно
> ухитриться и запомнить эту самую шестерку, которая стоит
> перед
> восьмеркой, а это очень просто. Первая цифра-- четыре, вторая-
> -
> два. а четыре плюс два -- шесть. Теперь вы уже точно
> знаете,
> что вторая цифра от конца -- шесть; и теперь у вас этот
> порядок
> цифр никогда не вылетит из головы. У вас в памяти засел
> номер
> четыре тысячи двести шестьдесят восемь. Но вы можете прийти
> к
> этому же результату еще проще...

> [37] Kerk © (15.12.06 20:21)
> Простая распознавалка текста :)
> http://kladovka.net.ru/index.cgi?pid=board&rid=381

Распознает только ту картинку, которая имеется в ресурсах порги.
На все остальные картинки вылазит AV
:)

> [39] SergP © (16.12.06 04:21)
> > [37] Kerk © (15.12.06 20:21)
> > Простая распознавалка текста :)
> > http://kladovka.net.ru/index.cgi?pid=board&rid=381
>
>
> Распознает только ту картинку, которая имеется в ресурсах
> порги.
> На все остальные картинки вылазит AV

Это защита от незаконного копирования :)

Нужна функция проверки правильности номера ЖД вагона. Найти похожие ветки