Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];
Вниз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
← →
Virgo_Style © (2006-08-19 20:43) [21]Пусик © (19.08.06 20:38) [18]
потом хами
Второй пункт не обязательный, даже наоборот
← →
Anatoly Podgoretsky © (2006-08-19 20:45) [22]Мой код кстати тоже неправильный.
← →
Virgo_Style © (2006-08-19 20:48) [23]Anatoly Podgoretsky © (19.08.06 20:43) [20]
Virgo_Style © (19.08.06 20:06) [14]
игде X,Y = (0..4)
← →
PSPF2003 © (2006-08-19 21:04) [24]Прикольно, зашел непонятно что спросил, еще и нахамил…
← →
Anatoly Podgoretsky © (2006-08-19 21:14) [25]PSPF2003 © (19.08.06 21:04) [24]
И при этом ничего не понял :-)
← →
Мефисто (2006-08-19 21:15) [26]
> PSPF2003 © (19.08.06 21:04) [24]
Просто на форуме наверно переодически проверяется работа телепатов :)))
← →
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
← →
PSPF2003 © (2006-08-20 07:51) [28]
> RASkov
http://www.delphimaster.ru/cgi-bin/nuts.pl?showpage=13
Учись правильно задавать вопросы (смотри последний пост...)
← →
Ketmar © (2006-08-20 13:06) [29]орешек...
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.037 c