Последовательность в Delphi 7.0

[SCAR777]

вычислить:




di=(x^2 + sin^2((n+1/i^2)*x) при i>=10) и (cos^2((n+1/i^2)*x) при i<10)- это система



i=1,2,...20
Найти значение и номер минимального элемента последовательности di и заданного x.

[Stilet]

В чем сложности? Это решается сотней способов. Какой из них тебе или твоему преподу нужен?

[SCAR777]

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

В чем сложности? Это решается сотней способов. Какой из них тебе или твоему преподу нужен?

спасибо что ответил=) он говорит что нужно составить массив=) реши пожалуйста, очень надо

[Hacker19_90]

for i :=1 to 20 do
    if i < 10 then
        d[i] := (sqr(cos(((n+1)/sqr(i))*x)))
    else d[i] := (sqr(x) + sqr(sin(((n+1)/sqr(i))*x))

[SCAR777]

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

for i :=1 to 20 do
    if i < 10 then
        d[i] := (sqr(cos(((n+1)/sqr(i))*x)))
    else d[i] := (sqr(x) + sqr(sin(((n+1)/sqr(i))*x))

спасибо=) а можно полное решение?=) ведь там нужно ещё найти номер и минимальное значение элемента=)

[Hacker19_90]

Поиск минимального

min := d[1];
pos := 1;
for i := 2 to 20 do
begin
     if d[i] < min then
     begin
          min := d[i];
          pos := i;
     end;
end;

[SCAR777]

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

Поиск минимального

min := d[1];
pos := 1;
for i := 2 to 20 do
begin
     if d[i] < min then
     begin
          min := d[i];
          pos := i;
     end;
end;

спасибо большое=)

[SCAR777]

Hacker19_90
а ты можешь полностью написать решение? просто у меня всё равно не получается это всё вместе совместить=(