Pascal

[Net01]

Здравствуйте.

найти ошибку!!!!

Проблема в том, что при расчёте функций первая и вторая выдают разные значения!


Для аргумента , изменяющегося от –0.6 с шагом 0.05 вычислить 20
значений функций

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

program lab1;
uses crt;
Const
eps1=0.01; 
eps2=0.001; 
eps3=0.0001; 
a=-0.6;   
b=0.05;   
N=20; 

var
k1,k2,k3,i,d:integer;
f1,f2_1,f2_2,f2_3,step,slag,x:real;

begin
clrscr;
writeln(' _________________________________________________');
writeln('|     |            | e=0.01 | e=0.001 | e=0.0001 |');
writeln('|  x  |    f1(x)   |--------|---------|----------|');
writeln('|     |            |f2(x)| N| f2(x)|N |  f2(x)|N |');
writeln('|_____|____________|_____|__|______|__|_______|__|');
x:=a;
for i:=1 to n do
begin
f1:=1/(1-x)*ln(1/(1-x));
step:=x;
f2_1:=0;
d:=0;
k1:=0;
repeat
inc(k1);
inc(d,k1);
step:=step*x;
slag:=step*(1/d);
f2_1:=f2_1+slag;
until abs(slag)<=eps1;
d:=0;
k2:=0;
f2_2:=0;
step:=x;
repeat
inc(k2);
inc(d,k2);
step:=step*x;
slag:=step*(1/d);
f2_2:=f2_2+slag;
until abs(slag)<=eps2;
step:=x;
d:=0;
k3:=0;
f2_3:=0;
repeat
inc(k3);
inc(d,k3);
step:=step*x;
slag:=step*(1/d);
f2_3:=f2_3+slag;
until abs(slag)<=eps3;
writeln('|',x:5:2,'|',f1:12:9,'|',f2_1:5:2,'|',k1:2,'|',f2_2:6:3,'|',k2:2,'|',f2_3:7:4,'|',k3:2,'|');
x:=x+b;
end;
write('--------------------------------------------------');
readkey
end.

[IT-man]

 const  eps=0.01;
        eps1=0.001;
        eps2=0.0001;
        a=-0.6;
        b=0.05;
var x:Real;
  sum,sum1,sum2:Real;
  n,n1,n2,j:Integer;
  function f_1(var x1:real):Real;
  begin
    f_1:=1/(1-x1)*ln(1/(1-x1));
  end;
  procedure f2(var x1,res:real;eps:real;var k:integer);
  var i:Integer;
      sl,st,mn1:Real;
  begin
    res:=0;
    st:=x;
    k:=1;
    sl:=x;
    while Abs(sl)>=eps do begin
      res:=res+sl;
      mn1:=0;
      Inc(k);
      st:=st*x;
      for i:=1 to k do
        mn1:=mn1+1/i;
      sl:=mn1*st;
      end;
  end;
begin
writeln(' ___________________________________ ______________');
writeln('|     |            |  e=0.01|  e=0.001| e=0.0001 |');
writeln('| x   |     f1(x)  |--------|---------|----------|');
writeln('|     |            |f2(x)| N| f2(x)|N | f2(x) |N |');
writeln('|_____|____________|_____| _|______|__|_______|__|');
x:=a;
 for j:=1 to 20 do begin

 f2(x,sum,eps,n);
 f2(x,sum1,eps1,n1);
 f2(x,sum2,eps2,n2);
writeln('|',x:5:2,'|',f_1(x):12:9,'|',sum:5:2,'|',n:2,'|',sum1:6:3,'|',n1:2,'|',sum2:7:4,'|',n2:2,'|');
x:=x+b;
end;
write('--------------------------------------------------');
readln;
end.

[Net01]

по аське связаться не возможно

моя аська 571504776

[Net01]

Тема закрыта