NToXY

← →
RASkov (2006-08-19 19:31) [0]

Здравствуйте! Ну чего то никак не соображу как вычислить из одно числа два.
Есть 5 столбцов и 5 колонок с номерами клеток от 1 до 25 вот как написать такую хрень:

procedure NToXY(const N: Integer; var X, Y: Integer); begin X:=?; Y:=?; end; procedure ButtonClick(); var C, R: Integer; begin NToXY(TrackBar1.Position, C, R); Caption:=IntToStr(C)+" - "+IntToStr(R); end;
СПАСИБО за правильные ответы.

← →
tesseract © (2006-08-19 19:35) [1]

переведи?

что не работает-то?

← →
RASkov (2006-08-19 19:38) [2]

> [1] tesseract © (19.08.06 19:35)

Найти X и Y...:((

← →
tesseract © (2006-08-19 19:42) [3]

> [2] RASkov (19.08.06 19:38)

проблема в чём? Значения не возвращаються или формулу для расчёта x и y рассказать? тебе размеры trackbar нужны? Рассчитать координаты ячейки?
ЗЫ: Телепатор сломался извини? указывает на 17 строку.

← →
RASkov (2006-08-19 19:42) [4]

Знаю что простой вопрос, но че то несоображаю.... блин. Спасибо.
Передаем в NToXY значение например 7 надо получить X:=2 и Y:=2 если 9 то X:=2 и Y:=4 если 20 то X:=4 Y:=5 вот такая вот загагулина....

← →
RASkov (2006-08-19 19:42) [5]

> или формулу для расчёта x и y рассказать?

УГУ...

← →
RASkov (2006-08-19 19:43) [6]

> размеры trackbar нужны

>размеры trackbar нужны
Нет не надо у него Min=1 Max=25;

← →
Пусик © (2006-08-19 19:49) [7]

> RASkov

Как связан TrackBar1.Position с C и R?

← →
tesseract © (2006-08-19 19:50) [8]

прости но не въеду в принцип прогрессии.
Алгоритм расчёта X и Y?

← →
RASkov (2006-08-19 19:52) [9]

1,2,3,4,5
6,7,8,9,10
11,12,13,14,15
16,17,18,19,20
21,22,23,24,25

← →
Пусик © (2006-08-19 19:58) [10]

> RASkov (19.08.06 19:52) [9]
> 1,2,3,4,56,7,8,9,1011,12,13,14,1516,17,18,19,2021,22,23,
> 24,25

это что?

← →
PSPF2003 © (2006-08-19 19:59) [11]

> tesseract ©

Тут без Телепатора ни как :)

← →
PSPF2003 © (2006-08-19 19:59) [12]

Объясни что должна делать твоя программа.

← →
Пусик © (2006-08-19 20:00) [13]

procedure NToXY(const N: Integer; var X, Y: Integer); begin X:=Random(N)+1; Y:=N-X; end;

← →
Virgo_Style © (2006-08-19 20:06) [14]

Таблица 5x5 заполнена по порядку числами 1..25, надо по числу определить координаты ячейки, я угадал?)

Y:=( N-1 ) div 5;
X:=( N-1 ) mod 5;

игде X,Y = (0..4)

← →
Anatoly Podgoretsky © (2006-08-19 20:11) [15]

Как уже сказали, div и mod - по модулю 5, не забыть прибавить единицу, так как счет с 1. Вот правильная форумула
Y := N div 5 + 1;
X := N mod 5 + 1;

← →
RASkov (2006-08-19 20:12) [16]

> [14] Virgo_Style © (19.08.06 20:06)

Спасибо тебе, Единственный кто понял и правильно ответил.

> [13] Пусик © (19.08.06 20:00)

Дурь....

← →
Anatoly Podgoretsky © (2006-08-19 20:14) [17]

Так ничего и не понял.

← →
Пусик © (2006-08-19 20:38) [18]

> RASkov (19.08.06 20:12) [16]
> > [14] Virgo_Style © (19.08.06 20:06)Спасибо тебе, Единственный
> кто понял и правильно ответил.> [13] Пусик © (19.08.06
> 20:00)Дурь....

Сначала вопрос нормально задай, потом хами.

← →
Anatoly Podgoretsky © (2006-08-19 20:40) [19]

Или хотя бы код проверил, за который благодарит.

← →
Anatoly Podgoretsky © (2006-08-19 20:43) [20]

Y:=( 7-1 ) div 5; = 1 ??? а надо 2
X:=( 7-1 ) mod 5; = 1 ??? а надо 2

Y:=( 9-1 ) div 5; = 1 ??? а надо 2
X:=( 9-1 ) mod 5; = 3 ??? а надо 4

Мой код кстати тоже неправильный.

Прикольно, зашел непонятно что спросил, еще и нахамил…

← →
Мефисто (2006-08-19 21:15) [26]

← →
RASkov (2006-08-20 00:08) [27]

> [18] Пусик © (19.08.06 20:38)

Извеняюсь, я и не хотел хамить просто это не то что надо...

> [19] Anatoly Podgoretsky © (19.08.06 20:40)
> Или хотя бы код проверил, за который благодарит.

> [20] Anatoly Podgoretsky © (19.08.06 20:43)
> Y:=( 7-1 ) div 5; = 1 ??? а надо 2
> X:=( 7-1 ) mod 5; = 1 ??? а надо 2

Здесь все правильно это я написал Передаем в NToXY значение например 7 надо получить X:=2 и Y:=2 В диапозоне 1..5 НЕПРАВИЛЬНО Извеняюсь. и не думал что это могло ввести взаблуждение..

> [24] PSPF2003 © (19.08.06 21:04)

Кто понял тот правильно ответил... Вопрос был как вычислить из одно числа, два. Про диапазоны колонок и столбцов ничего не говорил
Еще раз извеняюсь перед Пусиком, просто вообще не понял для чего там Random

> RASkov

http://www.delphimaster.ru/cgi-bin/nuts.pl?showpage=13
Учись правильно задавать вопросы (смотри последний пост...)

орешек...

NToXY Найти похожие ветки