Задачка: Как определить координату ячейки зная ее порядковый номер?

[Ilia.Y]

Задачка: Как определить координату ячейки зная ее порядковый номер?
Есть таблица ячеек 30 на 30.
у каждой есть свой номер от 1 до 900 соответственно.

Как определить координату ячейки зная ее порядковый номер.
т.е. нужен X и Y.

[Kiba]

моё решение

X - это остаток деления на 30, что-то вроде:
ostatok = N / 30
ostatok == 0 ? X = 30 : X = ostatok

Добавлено через 3 минуты
а Y - частное, если остаток !=0 и частное + 1, если остаток == 0. только это сверху если считать. ну и соответственно снизу будет:

если ostatok == 0: Y = 30 - N / 30 + 1, иначе Y = 30 - N / 30

где N - порядковый номер

Добавлено через 23 минуты

решение на питоне

for n in range(1, 900+1):
    ostatok = n % 30
    chastnoe = 30 - n / 30
    if ostatok == 0:
        x = 30
        y = chastnoe + 1
    else:
        x = ostatok
        y = chastnoe
    print n, "[", x, ", ", y, "]"

1 [ 1 ,  30 ]
2 [ 2 ,  30 ]
3 [ 3 ,  30 ]
4 [ 4 ,  30 ]
5 [ 5 ,  30 ]
6 [ 6 ,  30 ]
7 [ 7 ,  30 ]
8 [ 8 ,  30 ]
9 [ 9 ,  30 ]
10 [ 10 ,  30 ]
11 [ 11 ,  30 ]
12 [ 12 ,  30 ]
13 [ 13 ,  30 ]
14 [ 14 ,  30 ]
15 [ 15 ,  30 ]
16 [ 16 ,  30 ]
17 [ 17 ,  30 ]
18 [ 18 ,  30 ]
19 [ 19 ,  30 ]
20 [ 20 ,  30 ]
21 [ 21 ,  30 ]
22 [ 22 ,  30 ]
23 [ 23 ,  30 ]
24 [ 24 ,  30 ]
25 [ 25 ,  30 ]
26 [ 26 ,  30 ]
27 [ 27 ,  30 ]
28 [ 28 ,  30 ]
29 [ 29 ,  30 ]
30 [ 30 ,  30 ]
31 [ 1 ,  29 ]
32 [ 2 ,  29 ]
33 [ 3 ,  29 ]
34 [ 4 ,  29 ]
35 [ 5 ,  29 ]
36 [ 6 ,  29 ]
37 [ 7 ,  29 ]
38 [ 8 ,  29 ]
39 [ 9 ,  29 ]
40 [ 10 ,  29 ]
41 [ 11 ,  29 ]
42 [ 12 ,  29 ]

[Antex]

php:

$x = $n % 30;
$y = intval($n / 30);

p.s. если начальная координата - (0, 0)

[Kiba]

Сообщение от Antex

php

ждём однострочник на перле =)

[Antex]

Сообщение от Kiba

ждём однострочник на перле =)

перл для археологов, можно на пхп:

list($x, $y) = [$n % 30, intval($n / 30)];

[Kiba]

Сообщение от Antex

$x = ($n % 30 == 0) ? 30 : $n % 30;

очевидный фикс?

Добавлено через 1 минуту

Сообщение от Antex

перл для археологов, можно на пхп:

list($x, $y) = [$n % 30, intval($n / 30)];

у тебя n если нацело делится - получается не то. икс слева направо увеличивается, а не наоборот.

[Antex]

Сообщение от Kiba

моё решение

X - это остаток деления на 30, что-то вроде:
ostatok = N / 30
ostatok == 0 ? X = 30 : X = ostatok

Добавлено через 3 минуты
а Y - частное, если остаток !=0 и частное + 1 если остаток == 0. только это сверху если считать. ну и соответственно снизу будет:

если ostatok == 0: Y = 30 - N / 30 + 1, иначе Y = 30 - N / 30

где N - порядковый номер

Добавлено через 23 минуты

решение на питоне

for n in range(1, 900+1):
    ostatok = n % 30
    chastnoe = 30 - n / 30
    if ostatok == 0:
        x = 30
        y = chastnoe + 1
    else:
        x = ostatok
        y = chastnoe
    print n, "[", x, ", ", y, "]"

1 [ 1 ,  30 ]
2 [ 2 ,  30 ]
3 [ 3 ,  30 ]
4 [ 4 ,  30 ]
5 [ 5 ,  30 ]
6 [ 6 ,  30 ]
7 [ 7 ,  30 ]
8 [ 8 ,  30 ]
9 [ 9 ,  30 ]
10 [ 10 ,  30 ]
11 [ 11 ,  30 ]
12 [ 12 ,  30 ]
13 [ 13 ,  30 ]
14 [ 14 ,  30 ]
15 [ 15 ,  30 ]
16 [ 16 ,  30 ]
17 [ 17 ,  30 ]
18 [ 18 ,  30 ]
19 [ 19 ,  30 ]
20 [ 20 ,  30 ]
21 [ 21 ,  30 ]
22 [ 22 ,  30 ]
23 [ 23 ,  30 ]
24 [ 24 ,  30 ]
25 [ 25 ,  30 ]
26 [ 26 ,  30 ]
27 [ 27 ,  30 ]
28 [ 28 ,  30 ]
29 [ 29 ,  30 ]
30 [ 30 ,  30 ]
31 [ 1 ,  29 ]
32 [ 2 ,  29 ]
33 [ 3 ,  29 ]
34 [ 4 ,  29 ]
35 [ 5 ,  29 ]
36 [ 6 ,  29 ]
37 [ 7 ,  29 ]
38 [ 8 ,  29 ]
39 [ 9 ,  29 ]
40 [ 10 ,  29 ]
41 [ 11 ,  29 ]
42 [ 12 ,  29 ]

не могу чото догнать зачем chastnoe = 30 - n / 30 ??

[Kiba]

Сообщение от Antex

не могу чото догнать зачем chastnoe = 30 - n / 30 ??

я в декартовых координатах Y снизу считал =)

[Antex]

Сообщение от Kiba

я в декартовых координатах y снизу считал =)

а понял, слева сверху (0,0) у меня, поскольку там отсчет

[Kiba]

Сообщение от Antex

а понял, слева сверху (0,0) у меня

да, но проверь свой код на n = 30, 60, 120.

[Antex]

Сообщение от Kiba

да, но проверь свой код на n = 30, 60, 120.

там не с нуля в условии, тогда фикс:

list($x, $y) = [($n -1) % 30, intval(($n -1 ) / 30)];

[Kiba]

ага, теперь норм

[Night]

Что это сейчас было...

[duhastmish]

Сообщение от Night

Что это сейчас было...

это новый морской бой

[Ilia.Y]

Охренеть пацаны, спасибо всем!

[Майкл]

гуманитариев тред объявляю открытым.

[Ilia.Y]

Кто сможет решить задачу на фортране?

[gemini]

Фортран ещё изучить надо. Зато есть на баше:

f() {
        echo "$((($1 - 1) % 30)), $((($1 - 1) / 30))"
}

[Kiba]

Сообщение от gemini

Фортран ещё изучить надо.

и перфокарт найти =)

[Avaddon]

Сообщение от Antex

там не с нуля в условии, тогда фикс:

да.у меня тоже так получилось