Написать программу табулирования сложной функции

[Camelot_2012]

uses crt;
var a,b,y,n,E: integer;
begin Clrscr;
x:=-1;
if x<0,5 then y:=((sqr(x)+3*x+4)/(5*x+1))*((4*n-3)*sqr(x))/(4*n+1)); 
else 
for n:=1 to 10 do
then y:=(x/3)*(exp(n*ln(x)/n);
if x>1 then 
writeln(y);
end.

решил рекуррентное соотношение,но написал программу не правильно.

[BDA]

uses
  crt;

const
  e = 0.0001;

var
  x, t, s, n, c: real; 

begin
  write('Input x: '); 
  readln(x); 
  if x < 0.5 then begin
    s := 0; 
    n := 0; 
    c := 1; 
    t := 1; 
    while (t / c) > e do 
    begin
      n := n + 1; 
      s := s + t / c; 
      t := t * x * x; 
      c := 1 + 4 * n; 
    end; 
    s := (x * x + 3 * x + 4) * s / (5 * x + 1);	 
  end
	 else
  begin
    s := 0; 
    n := 1; 
    t := x; 
    while n <= 10 do 
    begin
      s := s + t / n; 
      t := t * x; 
      n := n + 1; 
    end; 
    s := x * s / 3;    
  end;
  writeln('Function is equal: ', s:0:3);
  readln;
end.

Я не знаю, как решить первую сумму
Поэтому сделал вычисление ряда с точностью е.

[VIK_aka_TOR]

как то так...

uses crt;
var n: integer;
x,y : real;
begin Clrscr;
x:=0.2;
y := 0;

if x < 0.5 then
  begin 
  for n := 0 to 10 do  
    y:= y + power(x, 2*n)/(4*n+1); 
    y := y * ((sqr(x)+3*x+4)/(5*x+1));
  end
else 
  for n:=1 to 10 do
    y:= y + (x/3)*(exp(n*ln(x))/n);

writeln(y);
end.

p.s. в первом тоже n до 10... но видимо с точностью нужно...
обогнали... )
если не фрипаскаль то нужно подключить математическую библиотеку... для возведения отрицательных Х в степень... или же через цикл возводить...

[Camelot_2012]

Сообщение от VIK_aka_TOR

как то так...

uses crt;
var n: integer;
x,y : real;
begin Clrscr;
x:=0.2;
y := 0;

if x < 0.5 then
  begin 
  for n := 0 to 10 do  
    y:= y + power(x, 2*n)/(4*n+1); 
    y := y * ((sqr(x)+3*x+4)/(5*x+1));
  end
else 
  for n:=1 to 10 do
    y:= y + (x/3)*(exp(n*ln(x))/n);

writeln(y);
end.

p.s. в первом тоже n до 10... но видимо с точностью нужно...
обогнали... )
если не фрипаскаль то нужно подключить математическую библиотеку... для возведения отрицательных Х в степень... или же через цикл возводить...

Некоторые изменения: на отрезке [-1,1] с шагом 0,1

[BDA]

uses
  crt;

const
  e = 0.0001;

var
  x, t, s, n, c: real; 

begin
  x:=-1;
  while x<=1 do
  begin
  if x < 0.5 then begin
    s := 0; 
    n := 0; 
    c := 1; 
    t := 1; 
    while (t / c) > e do 
    begin
      n := n + 1; 
      s := s + t / c; 
      t := t * x * x; 
      c := 1 + 4 * n; 
    end; 
    s := (x * x + 3 * x + 4) * s / (5 * x + 1);	 
  end
	 else
  begin
    s := 0; 
    n := 1; 
    t := x; 
    while n <= 10 do 
    begin
      s := s + t / n; 
      t := t * x; 
      n := n + 1; 
    end; 
    s := x * s / 3;    
  end;
  writeln('x= ',x:0:3,' Function is equal: ', s:0:3);
  x:=x+0.1;
  end;
  readln;
end.