Срочно нужна помощь в паскале с рядами!!

[sanex]

Всем привет!
Завтра нужно сдавать 2 лабы.. В обоих ряды..

Поэтому помагите пожалуйста выполнить эти 2 задания! Заранее спасибо.



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

Есть 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-му заданию



Очень желателен полный код хотя бы одного задания (второго).....

[sanex]

ААА! помогитеже прошууу!

[sanex]

люди)! помосч очень актуальна!

[Sazary]

Первая:

uses crt;
var
e,sum,an,anm1,dn,tn : real;
i,nn : longint;
begin
clrscr;
e := 0.01;
nn := -1;  {наименьший номер...}
sum := 0;
an := 0;
dn := 1;
tn := 1;
i := 0;
repeat
  sum := sum + an;
  inc(i);
  dn := dn / 2;
  tn := tn / 3;
  anm1 := an;
  an := dn + tn;
  writeln('A[',i,']= ',an:7:4);
  if nn = -1 then
   if abs(an-anm1)<e then nn := i;
 until an<e;
writeln('-------');
writeln('Summa= ',sum:7:4);
if nn<>-1 then writeln('naimenshij nomer: ',nn);
readln;
end.

[Sazary]

Вторая:

uses crt;
const e = 0.001;
var  x1,x2,y,h : double;
c : integer;

procedure taylor(cx : double; ce : double; var cy : double; var cnt : integer);
 var k : integer;
 r : double;
 begin
 cy := pi/2;
 cnt := 1;
 k := 1;
 r := cx;
 while abs(r)>=e do
   begin
   inc(cnt);
   inc(k,2);
   if odd(cnt) then r := -r*cx*cx/k
   else r := r*cx*cx/k;
   cy := cy + r;
   end;
 end;

begin
clrscr;
write('Enter x1: ');
readln(x1);
if abs(x1)>=1 then begin
                   writeln('|x1| must be <1');
                   exit;
                   end;
write('Enter x2: ');
readln(x2);
if abs(x2)>=1 then begin
                   writeln('|x2| must be <1');
                   exit;
                   end;
write('Enter step: ');
readln(h);
if abs(x1+h)>abs(x2) then exit;
{---}
writeln('-----------------');
writeln('  x    ||      y     ||  c  ||');
while x1 <= x2 do
 begin
 taylor(x1,e,y,c);
 writeln(' ',x1:5:2,' || ',y:10:7,' || ',c:3,' ||');
 x1 := x1 + h;
 end;

readln;
end.

[sanex]

ААА СпасибооО!!! Ты спас меня!!!!!!!! Пожимаю твою руку!

[sanex]

а почему во 2-й проге когда компилиш пришет что то про 8087 моде? вставляю передначалом проги (N+) (скобки кривые) -прога запускается но послеввода X1 сразу же завершается...

[sanex]

хм есливвести числа типа 0.1, 0.4 то работает) спс)

[Sazary]

У вас же в задании написано, что |x|<1. Вот я и сделал, что если вводятся некорректные данные, программа завершается.

а почему во 2-й проге когда компилиш пришет что то про 8087 моде?

Просто в паскале для использования типа double нужно включить в опциях компилятора режим 8087.
Можно просто заменить double на real (но теряется точность)