Помогите разобраться с переменными в 2-х процедурах. Опции

[Jack K.]

Всем доброго времени суток! Вот возникла проблемка... Немогу связать 2 процедуры для подсчета arctg(x) через ряд Тейлора... проблема в локальных/глобальных переменных или еще передачу по ссылке или по значению где нить напутал 100%... я в тупике. Пжжалста помогите, кто нить!!!
Вот так вот я ее написал:

Program finish;
uses CRT;
Var x,xmin,n,j,xmax,f,dx,eps,q,c,k,m:real;

procedure input(var a:real);
begin
          read(a);
end;

procedure arctg(x:real;var f:real);


begin
          c:=1;
          n:=0;
          f:=0;
      repeat
          j:=-(2*n-1)/((2*n-1)*x*x);
          c:=c*j;
          f:=f+c;
          until abs(f)<eps;
end;

procedure tab(xmin,xmax,q,x:real;var c:real);

begin
           k:=0;
            x:=xmin;
          writeln ('x           po Teyloru           chislo chlenov        arctan(x)  ');
          while x<=xmax do begin

          arctg(x,f);
          m:=arctan(x);
          k:=k+1;
          x:=x+dx;
          writeln(x:2:2,'         ', c:4:4{zn-e arctg(x)},'                  ', k:4:1,'              ', m:4:4) ;
          end;
         end;
 Begin

 clrscr;
   writeln('programma vichislyaet znachenie funkcii arctg(x) s pomoshu ryada Teylora');

   write('vvedite xmin:');
   input(xmin);
   write('vvedite xmax:');
   input(xmax);
   write('vvedite step:');
   input(dx);
   write('vvedite tochnost:');
   input(eps);

   tab (xmin,xmax,q,x,c);
   readkey;
END.

Сообщение отредактировано: Jack K. - 10.05.2007 21:31

[Jack K.]

сегодня сдал!!! это была последня прога с прошлого семестра на зачет, штук 15 я сдал в январе-феврале, а с этой запарился))

Выкладываю итоговую версию задачи (вдруг кому пригодится)
Задание было таким:
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от xmin до xmax с шагом dx с точностью e.
Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда. Операции ввода исходных данных, вычисления функции с помощью ряда Тейлора и табулирования функции реализовать в виде отдельных подпрограмм (процедур и функций).

  Program finish;
uses CRT;
Var c,x,xmin,xmax,dx,eps,k,m,f:real;

procedure input(var a:real);
begin
          read(a);
end;

procedure arctg(x:real;var f:real);
var
  j: real;
  sign, n: integer;
begin
  n := 1;
  c:=-1/x;
  f := Pi/2+c;

  repeat
    c :=c*(-(2*n-1)/((2*n + 1)*(x*x)));
    f := f + c;
    inc(n);
  until abs© < eps;
end;

procedure tab(xmax,x:real;var c:real);
var k,m:real;
begin
           k:=0;
            x:=xmin;
          writeln ('x           po Teyloru           chislo chlenov        arctan(x)  ');
          while x<=xmax do begin
          arctg(x,f);
          m:=arctan(x);
          k:=k+1;
          writeln(x:2:2,'         ', f:6:6{zn-e arctg(x)},'                  ', k:4:1,'              ', m:6:6) ;
          x:=x+dx;
          end;
         end;
 Begin

 clrscr;
   writeln('programma vichislyaet znachenie funkcii arctg(x) s pomoshu ryada Teylora');

   write('vvedite xmin:');
   input(xmin);
   write('vvedite xmax:');
   input(xmax);
   write('vvedite step:');
   input(dx);
   write('vvedite tochnost:');
   input(eps);

   tab (xmax,x,c);

   readkey;
END.   

p.s. Michael_Rybak, спсиб за плюсы