Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.11.22;
Скачать: [xml.tar.bz2];

Вниз

Число вариантов   Найти похожие ветки 

 
Инна   (2009-10-08 14:18) [0]

здравствуйте !
хотела бы узнать алгоритм\формулу расчета числа вариантов значений чисел
например есть а=10,б=13,в=42,г=63
меняются до   а=15,б=20,в=50,г=83
с шагом          а=2,б=1,в=4,г=3

или например есть матрица 9х9 в ней по рядам\столбцам числа от 1 до 9 и неповторяются


 
Омлет   (2009-10-08 14:46) [1]

Комбинаторика - сложная наука, там много формул.
По поводу изменения а от 10 до 15 - это (15 - 10) div 2


 
Инна   (2009-10-08 15:06) [2]


> По поводу изменения а от 10 до 15 - это (15 - 10) div 2

абвг это единое число например байты в dword


 
Jeer ©   (2009-10-08 15:17) [3]


> Инна   (08.10.09 15:06) [2]
> абвг это единое число например байты в dword


Телепаторы ! Срочно из отпуска - тут работа для вас.


 
Dennis I. Komarov ©   (2009-10-08 15:21) [4]


> абвг это единое число например байты в dword

А какая разница что это в результате?
от 10 до 15 с шагом 2 - 3 варианта: 10, 12, 14...
от 13 до 20  (1) - 8
и т.д.
перемножаем и получаем :)


 
Григорьев Антон ©   (2009-10-08 16:18) [5]


> Омлет   (08.10.09 14:46) [1]
> По поводу изменения а от 10 до 15 - это (15 - 10) div 2

Поправка: (15-10+1) div 2


 
Григорьев Антон ©   (2009-10-08 16:19) [6]

Но вообще, непонятно, как 10 может превратиться в 15, если его увеличивать с шагом 2 :)


 
Dennis I. Komarov ©   (2009-10-08 16:27) [7]


> Григорьев Антон ©   (08.10.09 16:18) [5]

Правильней наверное так: (15 - 10) div 2 + 1


> Григорьев Антон ©   (08.10.09 16:19) [6]

При скоростях близких к C все может быть ;)


 
Инна   (2009-10-09 11:09) [8]


> перемножаем и получаем :)

в том то и вопрос перемножаем ли ? а то может посложней все


 
Инна   (2009-10-09 13:15) [9]

вот например
например есть а=10,б=10,в=10,г=10
меняются до   а=20,б=20,в=20,г=20
с шагом          а=10,б=10,в=10,г=10

по идее далжно быть 16 вариантов
но никак не могу их перечислить, и вывести :(
тупая по ходу...


 
MBo ©   (2009-10-09 13:27) [10]

Вот внешний цикл. Вместо точек можно вставить цикл по b, в него следующий и т.д.

a := 10;
while a <= 20 do begin
 ...
 a := a + 10;
end;


 
Инна   (2009-10-09 13:54) [11]

program Project2;
{$APPTYPE CONSOLE}
uses
 SysUtils;
var
    a,b,c,d:byte;
    i:integer;
begin
i:=0;a := 10;b := 10;c := 10;d := 10;
while a <= 20 do begin
while b <= 20 do begin
while c <= 20 do begin
while d <= 20 do begin
inc(i);
writeln(a," ",b," ",c," ",d);
d := d + 10;
end;
c := c + 10;
end;
b := b + 10;
end;
a := a + 10;
end;
writeln("i=",i);
readln;
end.

если так, то нифига подобного


 
Dennis I. Komarov ©   (2009-10-09 14:05) [12]

10 10 10 10
10 10 10 20
10 10 20 10
10 10 20 20
10 20 10 10
10 20 10 20
10 20 20 10
10 20 20 20
20 10 10 10
20 10 10 20
20 10 20 10
20 10 20 20
20 20 10 10
20 20 10 20
20 20 20 10
20 20 20 20


 
Dennis I. Komarov ©   (2009-10-09 14:09) [13]


> MBo ©   (09.10.09 13:27) [10]

А после еще изучить операторы shl и shr
и будет счастье...


 
Инна   (2009-10-09 14:30) [14]


> 10 10 10 10
> 10 10 10 20
> 10 10 20 10
> 10 10 20 20
> 10 20 10 10
> 10 20 10 20
> 10 20 20 10
> 10 20 20 20
> 20 10 10 10
> 20 10 10 20
> 20 10 20 10
> 20 10 20 20
> 20 20 10 10
> 20 20 10 20
> 20 20 20 10
> 20 20 20 20

вот так и надо :)
а какой алгоритм ?


 
Инна   (2009-10-09 14:36) [15]

операторы shl и shr не надо надо +- каждого числа


 
Dennis I. Komarov ©   (2009-10-09 14:40) [16]


> если так, то нифига подобного

Ну близко, но не так.
Подсказываю: не там инициализируются переменные...


 
Dennis I. Komarov ©   (2009-10-09 14:44) [17]


> Инна   (08.10.09 15:06) [2]
> абвг это единое число например байты в dword


> Инна   (09.10.09 14:36) [15]
> операторы shl и shr не надо надо +- каждого числа

А как же числа выводить будите?

> а какой алгоритм ?

Мозг сам работает :)


 
Инна   (2009-10-09 17:18) [18]


> Подсказываю: не там инициализируются переменные...

там вобще не правильный алго, и переменые не при чем
получается:
10 10 10 10
10 10 10 20
i=2
тут видимо надо еще кучу условий, тока хз какие :(


> А как же числа выводить будите?

я имела ввиду что эти 4 числа единое целое как байты в дворд а по сути отдельные числа


 
MBo ©   (2009-10-09 18:20) [19]

>там вобще не правильный алго
в [16] посте подсказка, что исправить


 
Инна   (2009-10-09 18:55) [20]

Удалено модератором


 
Плохиш ©   (2009-10-09 19:56) [21]

Удалено модератором


 
Омлет   (2009-10-09 20:31) [22]

Удалено модератором


 
Инна   (2009-10-10 10:17) [23]

Удалено модератором


 
Dennis I. Komarov ©   (2009-10-12 09:34) [24]

Удалено модератором


 
Инна   (2009-10-12 13:06) [25]

Удалено модератором


 
Dennis I. Komarov ©   (2009-10-12 13:23) [26]

Вобщем карандаш в руки и трассировка своего кода... ошибка очевидна

З.Ы. Шустро посты удаляют... :) Не прочитал...


 
Инна   (2009-10-12 14:47) [27]

я грю все работает нормал



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.11.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.5 MB
Время: 0.006 c
15-1253623487
Rex
2009-09-22 16:44
2009.11.22
Help me. SQL2000.


11-1204721952
Сашик
2008-03-05 15:59
2009.11.22
Активный Control


2-1254993428
Маркабес
2009-10-08 13:17
2009.11.22
sql


15-1254083412
Юрий
2009-09-28 00:30
2009.11.22
С днем рождения ! 28 сентября 2009 понедельник


2-1254537901
буффер
2009-10-03 06:45
2009.11.22
Как поставить условие записи BlockWrite?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский