Вычислить компоненты вектора по формуле

[kill301]

1.Вычислить компоненты вектора B по формуле: bi=sin(((i-1)^3)/i!).Найти наибольшую отрицательную компоненту этого вектора


[*Удалено. См. правила раздела "Решите мне задачу"*]

[Naeel Maqsudov]

Не указана мерность вектора!

[kill301]

Одномерный массив

[Naeel Maqsudov]

То что вектор - это одномерный массив итак понятно. Но сколько компонентов в самом векторе?

[kill301]

15 компонентов

[Naeel Maqsudov]

И язык программирования не указан.
Даже не заметил сразу...

[kill301]

Язык программирования Delphi

[Naeel Maqsudov]

Код: Выделить всё

const 
  n=15;
var
  b:array[1..n] of double;
  p,i:integer;

.....
  p:=-1;
//заполнение вектора и поиск наибольшего отрицательного числа
  ii:=1;
  for i:=1 to n do begin
    ii:=ii*i;
    b[i]:=sin(sqr(i-1)*(i-1)/ii);
    if b[i]<0 then begin
      if p<0 then p:=i else if b[i]>b[p] then p:=i;
    end;
  end;
// p - это номер наибольшего отрицательного элемента, b[p] - сам элемент
// если p=-1 то таких элементов не было, но такой ситуации конечно не будет
.....

[kill301]

ii- выдает ошибку, если убираешь одно i, то выдает ошибку ii:=ii*i;.

[Naeel Maqsudov]

Ну а сообщение об ошибке Вы прочитали?
Вам же говорят, небось что переменная не объявлена.
Добавьте
ii:longint;
в разделе описания переменных