Цитата:
|
Сообщение от joker7438
Привет, вот надыбал фаш форум, и решил полазить!
ребята, а зачем заморачиватся?!
давайте зделаем так:
<skip>
вот как то так, но оно не совсем работает))) попробуйте, может кто-то доработает))))))
|
Абсолютно не оптимально. Твой алгоритм будет крутиться покуда не сгенерит ряд, сумма элементов которого точно равна 1200. а это может занять много времени. Да и внутренние циклы можно оптимизировать.
Как уже говорил, тут надо делать адаптивние решение.
Пример моего варианта:
Код:
var
A : Array [1..20] Of Integer;
procedure InitArray;
var
I : Integer;
S : Integer;
begin
S := 0;
For I := 1 To 19 Do
Begin
A[i] := Random(100)+1;
S := S + A[i];
End;
If S < 1200 - 1
Then A[20] := 1200 - S
Else InitArray;
end;
Здесь тоже есть вероятность "зацикливания", однако она минимальна, т.к. вероятность того, что сумма 19ти случайных значений от 1 до 100 будет больше 1200 достаточно невысока. Если учесть, что встроеный генератор имеет нормальное распределение (а не равномерное, как полагают многие), то вероятность второго захода генерации я рассматриваю как величину бесконечно малую, а уж если такое случится, то третий заход практически невероятен.