Delphi задачи срочняк

[89_milan_89]

Помогите пожалуйста написать код программы, уже второй вечер сижу не могу разобраться:
1) Табулирование функции:

Функция: y=tgx-1/3tg3x+1/5tg5-1/3 (перевожу на русский: функция игрик равно : тангенс икс минус одна третья тангенс в кубе икс плюс одна пятая тангенс в пятой степени минус одна третья) ???

2)Вычисление суммы ряда
По заданной формуле члена последовательности с номером k составить две программы:

- программу вычисления суммы первых n членов последовательности (k=1,2,3..,n);

- программу вычисления суммы всех членов последовательности, не меньших заданного числа e.

То что нужно сделать: еденица делённая (черта дроби) на корень из К плюс 15

3) Арифметические задачи:

Сколько чисел последовательности 2, 4, 6, 8, ... нужно взять, чтобы их сумма превысила 1000? Вывести величину последнего слагаемого и суммы. ???
помогите пожалуйста!!!

[Человек_Борща]

Ваши наработки?

[AviBlog]

Вот, как я понял задачу номер 3:

procedure TForm2.Button1Click(Sender: TObject);
var i, l, s : integer;
begin
  i:=0; s:=0;
  for l:=1 to 100 do
  begin
    i:=i+2;
    s:=s+i;
    if s>=1000 then
    begin
      Edit1.Text:=inttostr(s)+' '+inttostr(i)+' - '+inttostr(l);
      // s - сумма, i - знач. последнего элемента, l - кол-во элементов
      Break;
    end;
  end;
end;