Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Число вариантов [D7, XP]


Страницы:   1 2

Инна ©   (2009-10-08 14:18:00) 

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

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


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

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


Dennis I. Komarov   (2009-10-12 13:23:00) [2]

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

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


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

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


Dennis I. Komarov   (2009-10-12 09:34:00) [4]

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


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

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


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

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


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

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


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

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


MBo   (2009-10-09 18:20:00) [9]

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


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


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

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


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

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


Dennis I. Komarov   (2009-10-09 14:44:00) [11]


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


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

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

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

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


Dennis I. Komarov   (2009-10-09 14:40:00) [12]


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

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


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

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


Инна   (2009-10-09 14:30:00) [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

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


Dennis I. Komarov   (2009-10-09 14:09:00) [15]


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

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


Dennis I. Komarov   (2009-10-09 14:05:00) [16]

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 13:54:00) [17]

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.

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


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

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

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


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

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

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


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


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

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


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо