создать массив сл значений, сумма которых определена

[prasvit]

Помогите, пожалуйста, с такой задачей. Нужно создать массив, к примеру 20 значений, заполненный случайнымми числами, с выполнением условия, чтоб сумма элементов была равна 1200. массив не может содержать нули, значения могут повторяться. Как создать массив и заполнить я знаю, подскажите хотя бы алноритм

[Sazary]

prasvit, ну например:
Забиваете массив случайными числами. Далее, если сумма = 1200, то все в порядке. Иначе, ищем разность между 1200 и (суммой-последний элемент) и присваиваем ее последнему элементу. Как-то так. Можно менять случайный элемент.

Одна оговорка: это если допустимы отрицательные элементы.

[prasvit]

нет, недопустимы, и нулей тоже не должно быть

причем, если первый элемент выдало сразу 1200, то остальные элементы будут нулями, а это потеря потерь

[Sazary]

Ну тогда:
если сумма меньше нужной, то меняем последний элемент на разность между нужной и суммой без последнего элемента.
Если сумма больше нужной, то нужно идти от конца и сравнивать частичные суммы. И когда частичная сумма будет меньше нужной.. Ну там по-разному можно.

причем, если первый элемент выдало сразу 1200, то остальные элементы будут нулями

Ну как раз такую ситуацию несложно исключить - брать верхний предел для генерации меньше 1200.

[alexov]

#include <iostream>
#include <time.h>
using namespace std;

int main()
{
	const int n=20;
	int a[n];
    int sum=0;
	srand(time(0));
	for(int i=0; i<n; i++)
		a[i]=rand()%200;
	
	while(sum!=1200)
	{
		sum=0;
		for(int i=0; i<n; i++)
			a[i]=rand()%200;
		for(int i=0; i<n; i++)
		sum+=a[i];
		if(sum==1200)
		{
			for(int i=0; i<n; i++)
				cout<<a[i]<<" ";
			break;
		}
	}
	system("pause");
}

Но как с нулем!?

[Sazary]

Сообщение от alexov

Но как с нулем!?

Так просто:

a[i]=rand()%200+1;

и не будет нуля )

[Sasha_Smirnov]

Задача классная, сделал в Ворде генератор.
Если кнопку вам не видно (кнопка сине-красная), то выберите сначала пункт Надстройки (это для Word 2007 и выше), обычно он вверху справа.
Кнопка со знаком суммы (большая сигма) даёт возможность убедиться, что вычисленный ряд имеет заданную вами сумму.

Dim arrArray() As Long, N As Variant
Const ConstSumma = 1200

Sub iMakeSeries(): Dim i As Integer
'собирает и печатает ряд из N натуральных чисел, с постоянной суммой ряда'
If N = Empty Then N = 2

N = InputBox("Сколько будет чисел в ряду?", "iMakeSeries", N)
If N < 1 Or Not IsNumeric(N) Then Exit Sub

If N > 0 Then
    If N > ConstSumma / 2 Then MsgBox "Ряд с заданной суммой (" & _
    ConstSumma & ") состоит в основном из единиц либо невозможен."
    If N > ConstSumma Then MsgBox "Составить ряд с заданной суммой (" & _
    ConstSumma & ")" & vbCr & " из натуральных чисел невозможно.": Exit Sub
End If

ReDim arrArray(N - 1) As Long   'целочисленный массив с индексами от 0 до N-1'
arrArray(N - 1) = LastMember

With Selection
    .TypeParagraph
    For i = 0 To UBound(arrArray): .TypeText vbTab & arrArray(i): Next
    .TypeParagraph
End With
End Sub


Function LastMember() As Long: Dim CurrentSumma As Long, k As Integer

While k < N - 1
    Randomize
    arrArray(k) = Abs(1 + Fix((ConstSumma - CurrentSumma) / Sqr(N * (k + 1)) * Rnd))
    '"выкрутасы" с N и k - это попытка избежать генерации чисел, близких к общей сумме'
    CurrentSumma = CurrentSumma + arrArray(k)
    k = k + 1
Wend

LastMember = ConstSumma - CurrentSumma      'член ряда, "подбивающий" общую сумму'
If LastMember < 1 Then MsgBox "Неудача. Перезапустите меня!"
End Function

Генератор можно запускать по альт-F8 или альт-F11 и затем F8. И менять сумму — там же, в среде ВБА.

Как выяснилось, независимо от «модели» Word, кнопки, созданные для запуска программ в моём Ворде (2003), далеко не у всех открываются их Вордами. Так что остаётся либо плюнуть и уйти, либо жать альт-F8. Либо что-то там потыкать — см. пост Sazary на с. 3.

[Sazary]

Сообщение от Sasha_Smirnov

alexov, а какие у вас ряды получаются, экзешник (или листинг) не приложите? (А то у меня компилятора нет.)

Скомпилил вариант alexov (с указанной поправкой).

ps Не подскажете, как увидеть кнопку в 2003 word'е? )

[Sasha_Smirnov]

Вот чёрт, с этими кнопками вся загвоздка! Программа есть — а что толку, если её не выполнить.

Попробуйте сориентироваться, гляда в мой вот этот пост.

Но в любом случае альт-F8 должно (если не включена защита от макросов) открывать список надстроек документа. И из него можно выполнить.

У меня же, главное, Word 2003. Все кнопки сверху на "сером веществе"! За компиляцию спасибо!

[Sazary]

Sasha_Smirnov, с кнопками так и не получилось.. Ну да ладно. В принципе, вызов через Alt+F8 не должен доставлять каких-то неудобств. )