Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
1-1153769260
ronyn
2006-07-24 23:27
2006.09.10
QProgress


3-1152175448
WhiteBarin
2006-07-06 12:44
2006.09.10
Как получить скрипт вставляемой запись в БД через FIB+ ?


15-1155639110
Rouse_
2006-08-15 14:51
2006.09.10
Хех, народ хочет сделать Дельфи опенсорсным проектом :)


15-1155537715
Furyz
2006-08-14 10:41
2006.09.10
SWI.Чей это формат?


15-1155769544
vidiv
2006-08-17 03:05
2006.09.10
Если я выбрасываю (уничтожаю) 10 копеек, ...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский