Разработка и реализация программ с циклической структурой, страница 6

i:=0;

repeat

x:=a+i*h;

if (cos(x)<>eps) and (x>eps) and (x<>1) then

begin

y:=sin(x)/cos(x)/ln(x);

writeln (’| ’, x:4:1,’ |    ’, y:4:5,’     |’);

end

else

writeln (’| ’, x:4:1,’ | не существует |’);

i:=i+1;

until i>n;

writeln(--------------------------); readln;

end.

Результат.

         --------------------------

         |   x  |     y           |

         --------------------------

         | -1.0 | y не существует |

| -0.8 | y не существует |

| -0.6 | y не существует |

| -0.4 | y не существует |

| -0.2 | y не существует |

|  0.0 | y не существует |

|  0.2 |  - 0.1259       |

|  0.4 |  - 0.4614       |

|  0.6 |  - 1.3392       |

|  0.8 |  - 4.6142       |

           |  1.0 | y не существует |

           --------------------------

Задание 3.3. При некоторых заданных x,n,e вычислить…

uses crt;

var x,e,e1,el,znam,sum1,sum2,sum3:real;

    i,n,k2,k3:integer;

begin

clrscr;

writeln('vvedi x, n( kol-vo elementov ), E( |E|<1 )');

readln(x,n,e);

sum1:=1;

el:=1;

znam:=1;

for i:=1 to n-1 do

 begin

 znam:=znam*i;

 el:=el*x/znam;

 sum1:=sum1-el;

 end;

sum2:=1;

el:=1;

znam:=1;

for i:=1 to n-1 do

 begin

 znam:=znam*i;

 el:=el*x/znam;

 if abs(el)>e then

  begin

  sum2:=sum2-el;

  k2:=k2+1;

  end;

 end;

sum3:=1;

el:=1;

znam:=1;

e1:=e/10;

for i:=1 to n-1 do

 begin

 znam:=znam*i;                                                                                   

 el:=el*x/znam;                                                          результат

 if el>e1 then                                                               -5.53      6      0.44

  begin                                                                        summa 6 elementov = 13.63