Здравствуйте, Кусмарцев Андрей Валерьевич.
Программы в приложении. В функции отдельно вычисляется числитель и знаменатель, после чего функции присваивается значение частного

Приложение:
Program p1; var x,y:real; function th(x:real):real; var s1,s2:extended; i:integer; sxk,fk:extended; begin sxk:=x; fk:=1; s1:=0; for i:=0 to 20 do begin s1:=s1+sxk/fk; sxk:=sxk*sqr(x); fk:=fk*(i*2+2)*(i*2+3); end; sxk:=sqr(x); fk:=2; s2:=0; for i:=1 to 20 do begin s2:=s2+sxk/fk; sxk:=sxk*sqr(x); fk:=fk*(i*2+1)*(i*2+2); end; th:=s1/s2; end; begin write('x='); readln(x); y:=(2*th(0.5)-3*th(x-0.1))/(5-th(4*x-1)); writeln(y); readln; end.

Консультировал: Vassea Дата отправки: 09.11.2009, 17:26

Рейтинг ответа: 0 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »

Здравствуйте, Кусмарцев Андрей Валерьевич.
Комментарии в программе.

program q174097;
const n=20;
var k:integer;
    x,y:real;

function th(x:real):real;{Начало функции}
  var ch,zn:real;{Числитель и знаменатель гиперболического тангенса(th)}
      ch1,ch2:real;{Числители числителей th}
      zn1,zn2:integer;{Знаменатели знаменателей th}
begin
  ch:=x; ch1:=x; ch2:=1; zn:=0; zn1:=1; zn2:=1;
  for k:=1 to n do
   begin

     ch1:=ch1*x*x;  {Вычисляем числитель числителя th}
     zn1:=zn1*(2*k)*(2*k+1); {Вычисляем знаменатель числителя th}
     ch:=ch+ch1/zn1; {Вычисляем числитель th}

     ch2:=ch2*x*x; {Вычисляем числитель знаменателя th}
     zn2:=zn2*(2*k-1)*(2*k); {Вычисляем знаменатель знаменателя th}
     zn:=zn+ch2/zn2;  {Вычисляем знаменатель th}

     th:=ch/zn; {Гиперболический тангенс}

   end;
end;{Конец функции}

begin
  Write('Введите х:');
  Readln(x);
  y:=(2*th(0.5)-3*th(x-0.1))/(5-th(4*x-1));
  WriteLn('y(x)=',y:1:4);
  ReadLn;
end.

Консультировал: LfiN (Специалист) Дата отправки: 09.11.2009, 17:29

Рейтинг ответа: 0 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »

Здравствуйте, Кусмарцев Андрей Валерьевич.
В данном варианте решения числитель и знаменатель рассчитываются в одном цикле.

Приложение:
function th(x:real):real; var k: integer; S1,S2,xnf: real; begin S2:=0; //исходные значения {k=0} xnf:=x; //первый член суммы в числителе S1:=xnf; {k=1..20} for k:=1 to 20 do begin xnf:=xnf*x/(2*k); {x^(2k)/(2k)!} S2:=S2+xnf; //сумма в знаменателе xnf:=xnf*x/(2*k+1); {x^(2k+1)/(2k+1)!} S1:=S1+xnf; //сумма в числителе end; th:=S1/S2; end; var x:real; begin write('input x= '); readln(x); writeln('y= ',((2*th(0.5)-3*th(x-0.1))/(5-th(4*x-1))):8:5); readln; end.

Консультировал: Roman Chaplinsky / Химик CH (Модератор) Дата отправки: 09.11.2009, 17:50

Рейтинг ответа: +1 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »