Вниз
Скачать: CL | DM;

Нужен алгоритм следующей функции...   Найти похожие ветки 

 
Kutuzov   (2002-04-22 15:37) [0]

На вход функции подается: Y, A1..An, где 1..n - индексы.
Причём А1>A2; A2>A3...A(n-1)>An.
На выходе функции: Z, B1..Bn, где 1..n - индексы.
Сама функция: Y=A1*B1+A2*B2+...+A(n-1)*B(n-1)+An*Bn+Z.
Причём вариантов ответа у этой функции много и необходимо выбрать следующий: Z, B1..Bn - должны быть минимальны!!!
Все числа Y, Z, A1..An, B1..Bn - целые!!!
Примечание: Написать с конкретным количеством n получается, а вот с неизвестным заранее n незнаю как!!!


 
Chris ©   (2002-04-24 13:56) [1]

Насчет математики не подскажу, а по поводу n могу предложить такой вариант:
Используй не статический массив, а динамический:
var massiv: array of record
A, B: integer;
end;

инициализация массива
setlength(massiv,0);

увеличение массива на 1 элемент
setlength(massiv,high(massiv)+2);

уменьшение массива на 1 элемент
setlength(massiv,high(massiv));

запись в последний элемент
massiv[high(massiv)].A:=1;
massiv[high(massiv)].B:=2;



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c
3-49860
Sound
2002-04-19 12:37
2002.05.16
Хочу выучить Delphi+MySQL с чего начать?


14-50097
Deus
2002-04-04 16:27
2002.05.16
Чё же такой форум фиговый?


3-49889
Надежда
2002-04-19 14:03
2002.05.16
Помогите с поиском компонент


4-50169
cok
2002-03-07 20:49
2002.05.16
Потоки


14-50133
VictorT
2002-04-08 19:50
2002.05.16
Карпаты-Львов - Динамо-Киев




   Наверх