Задача на сумму ряда, проверьте на ошибки, пожалуйста. Опции

[Zharatustra]

Надо вычислить сумму ряда с точность до 10 в -3. в программе использовать процедуры. программа почему-то не работает... Ормула в приложенном файле.

текст программы

program n1;                                                                    
var i,j:integer;                                                              
    s2,s,x,f:real;                                                            
 procedure ryad(x1:real; var s1:real);                                        
  const eps=0.001;                                                            
  var d,y:real;                                                               
      k:integer;                                                              
   begin                                                                      
    s1:=0;                                                                    
    x:=2;                                                                     
    k:=1;                                                                    
    d:=0;                                                                     
     repeat                                                                   
      for i:=1 to k do                                                        
       f:=f*i;                                                                
      y:=exp(2*k*ln(x));                                                     
      s1:=s1+d;                                                                                              
     until (abs(d))<=eps;                                                     
  end;                                                                        
begin                                                                         
 for i:=1 to 5 do                                                             
  begin                                                                       
   ryad(s,x);                                                                 
   s2:=s2+s;                                                                                                                                     
  end;                                                                        
 writeln (s2:10:5);                                                           
 readln;                                                                     
end.
 

Сообщение отредактировано: Zharatustra - 21.12.2007 2:30