Народ! нужен ооочень срочно хелп!

Есть 2 задания.
1. Дан ряд и малая величина E=0.01. С точностью E найти сумму ряда, общийчлен которого задан формулой
An= (1/(2^n))+(1/(3^n))

Найти наименьший номер элемента последовательности, для которого выполняется условие |An-An-1|<E
Вывести на экраан этот номер и все элементы Ai, где i=1,2,...,n, если E=0.001

и второе задание...

Вычислить и вывести на экран в виде таблицы значения ф-ии, заданной с помощью ряда тейлора на интервале от Xнач до Xкан с шагом dX и с точностью Е=0.001.... Строка должна содержать значения аргумента,значения функции,и кол-во просуммированных элементов..

Arctg=(П(пи)/2)+E* ((((-1)^n+1)*(x^(2n+1)))/2n+1)=(П/2)-x+((x^3)/3)-((x^3)/5)+...)|x|<1


*(ну это значёк суммы рядя под которымпишетсяn=0 до бесконечности)

во

вот формула ко 2-му заданию
]]>]]>

Вот мой первый семестр по программированию ,правда на Делфи,ну там один хрен одно и то же.
Посмотри задачи с номерами "1.6" и отчеты к ним.(вроде очень похоже на 1ю задачу)

]]>Ссылка 1]]>

]]>Ссылка 2]]>

]]>Ссылка 3]]>

З.Ы. Ну сами программы вскроешь обычным блокнотом

О сенкс!

и нихрена не получилось(

centrino, паскаль:

OlegatoR

program Name;

uses ....;

не var а const i:integer = 0; паскаль на сколько помню не съест с var e:real = 0;
p:integer = 1;
q:integer = 1;
s:real = 2;
begin
// начальные условия (n = 0)
// суммирование ряда
while s >= 0.1 do
begin
e := e + s; ->inc(e,s);
p := p * 2; ->p := p shl 2;
q := q * 3;
s := (1/p) + (1/q);
i := i+1; -> inc(i);
end;

// отображение результата
...

end.