Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

NToXY

Страницы: 1 2 >
RASkov © (2006-08-19 19:31:00)
Здравствуйте! Ну чего то никак не соображу как вычислить из одно числа два.
Есть 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;
СПАСИБО за правильные ответы.

Ketmar (2006-08-20 13:06:00) [1]
орешек...

PSPF2003 (2006-08-20 07:51:00) [2]

> RASkov

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

RASkov (2006-08-20 00:08:00) [3]
> [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

Мефисто (2006-08-19 21:15:00) [4]

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

Просто на форуме наверно переодически проверяется работа телепатов :)))

Anatoly Podgoretsky (2006-08-19 21:14:00) [5]
PSPF2003 © (19.08.06 21:04) [24]
И при этом ничего не понял :-)

PSPF2003 (2006-08-19 21:04:00) [6]
Прикольно, зашел непонятно что спросил, еще и нахамил…

Virgo_Style (2006-08-19 20:48:00) [7]
Anatoly Podgoretsky © (19.08.06 20:43) [20]

Virgo_Style © (19.08.06 20:06) [14]
игде X,Y = (0..4)

Anatoly Podgoretsky (2006-08-19 20:45:00) [8]
Мой код кстати тоже неправильный.

Virgo_Style (2006-08-19 20:43:00) [9]
Пусик © (19.08.06 20:38) [18]
потом хами

Второй пункт не обязательный, даже наоборот

Anatoly Podgoretsky (2006-08-19 20:43:00) [10]
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

Anatoly Podgoretsky (2006-08-19 20:40:00) [11]
Или хотя бы код проверил, за который благодарит.

Пусик (2006-08-19 20:38:00) [12]

> 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:14:00) [13]
Так ничего и не понял.

RASkov (2006-08-19 20:12:00) [14]
> [14] Virgo_Style © (19.08.06 20:06)

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

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

Дурь....

Anatoly Podgoretsky (2006-08-19 20:11:00) [15]
Как уже сказали, div и mod - по модулю 5, не забыть прибавить единицу, так как счет с 1. Вот правильная форумула
Y := N div 5 + 1;
X := N mod 5 + 1;

Virgo_Style (2006-08-19 20:06:00) [16]
Таблица 5x5 заполнена по порядку числами 1..25, надо по числу определить координаты ячейки, я угадал?)

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

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

Пусик (2006-08-19 20:00:00) [17]
procedure NToXY(const N: Integer; var X, Y: Integer); begin X:=Random(N)+1; Y:=N-X; end;

PSPF2003 (2006-08-19 19:59:00) [18]
Объясни что должна делать твоя программа.

PSPF2003 (2006-08-19 19:59:00) [19]

> tesseract ©

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

Пусик (2006-08-19 19:58:00) [20]

> 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

это что?

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »