Задача на делфи на динамические списки, дам 100р.

деньги заработок Delphi програмирование динамические списки

даны натуральное число n, действительные числа x1, ..., Xn, вычислить: х1*хn+x2*xn-1; (x1+xn)*(х2+хn-1)*...*(хn+х1); обосновать выбор списка для хренения и обработки данных
готов кинуть сотню р. кто поможет. Ася 353235215

Примечание:
Нееееее))) дорого
Ответы:
За 7900 сделаю
Решение сводится к часному решению Гауса
Про Гауса читаем здесь http://festival.1september.ru:8080/articles/312337/
procedure TForm1.Button1Click(Sender: TObject);
const
 n=6;
 x: array [1..n] of real=(1,2,3,4,5,6);
var
i:integer;
iGaus: integer;
OutArr: array [1..3] of real;
begin
 iGaus:=(n div 2);
 if odd(n) then inc(iGaus)
 for i:=1 to iGaus do
 begin
   OutArr[i]:=x[i]*x[n-i+1]+x[i+1]*x[n-i];
 end;
end;
Накидал быстро. проверку на чётное нечетное число N не делал. Точнее сделал но не проверял по шагово как это работает.
вторая часть задания это производное от первого.
Мдаа надо было на 100 соглашаться =))


15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.