Turbo Pascal

[glavad]

вообщем завтра последний день здать лабы,нехватает 2 задач. Выручайте...
1) Определить
Z=[x-x[U]3[U]\3+x5\5-x7\7+...-x17\17]*2
Вообщем вот пояснения: [....] - эт скобки.(в задачи указаны такие),
Подчеркнутые буквы, значят "СТЕПЕНЬ". Например Х в кубе=X3.
2)Дан массив х1,...,х100.
Найти сумму элементов от X1 до Xmin.
Пояснения: x1=х первое,и тд. Xmin= х минимальное.
Заранее спасибо,жду ответа.

[Chudo4258]

2)Дан массив х1,...,х100.
Найти сумму элементов от X1 до Xmin.
Пояснения: x1=х первое,и тд. Xmin= х минимальное.
Заранее спасибо,жду ответа.

Находить сумму до первого минимального или до последнего, если их несколько???

поиск до первого минимального:

write('n= '); readln(n);
write('A[1]= '); readln(A[1]);
min:=A[1];
mini:=1;
for i:=2 to n do
begin
 write('A[',i,']= '); readln(A[i]);
 if A[i]<min then begin
                          min:=A[i];
                          mini:=i;
                        end;
end;
S:=0;
for i:=1 to mini do
 S:=S+A[i]
writeln('S= ',S);

поиск до последнего минимального:

write('n= '); readln(n);
write('A[1]= '); readln(A[1]);
min:=A[1];
mini:=1;
for i:=2 to n do
begin
 write('A[',i,']= '); readln(A[i]);
 if A[i]<=min then begin
                          min:=A[i];
                          mini:=i;
                        end;
end;
S:=0;
for i:=1 to mini do
 S:=S+A[i]
writeln('S= ',S);

1) Определить
Z=[x-x[u]3[u]\3+x5\5-x7\7+...-x17\17]*2
Вообщем вот пояснения: [....] - эт скобки.(в задачи указаны такие),
Подчеркнутые буквы, значят "СТЕПЕНЬ". Например Х в кубе=X3.

Что значит определить?? Ввести два значения x и u, и вычислить значение Z, или как??? не понятно.

[glavad]

Спасибо за 2 задачу.
А насчет второй.Извеняюсь,там нету [u], просто когда вводил подчеркнутое значение, не сработало. Там вот так Z=[x-x3\3+x5\5-x7\7+...-x17\17]*2

[tools]

Второе может имеется ввиду,что нужно посчитать многочлен по схеме Горнера до 17-ой степени, но формула немного другая будет там тогда....

[glavad]

Все спасибо,нашел решение.

[Chudo4258]

Вот примерно как-то так

P:=1;
S:=0;
q:=true;
for i:=1 to 17 do
begin
 P:=P*x;
 if (i mod 2 <>0) then 
                       if q then begin S:=S+P/i; p:=not(p); end
                             else begin S:=S-P/i; p:=not(p); end; 
end; 
writeln('S=',S*2)