Вычисление функции

[tp7]

Всем доброе утро!Помогите пожалуйста найти ошибку в коде!Спасибо Mad_Cat помог с вычислением x[j] http://www.programmersforum.ru/showthread.php?t=220660 Но дело в том, что элементам массива a[i] присваивается не случайные числа ,а вычисленные по формуле.Со случайными числами всё работает , ещё раз спасибо Mad_Cat , но почему у меня выдаёт только последние значения x[j] и y[j] , а остальные значения по нулям?Заранее благодарю.

program funccia;
uses crt;
const

      b=1.6;

var    a,x,y: array[1..100] of real;
           j:integer;
  factorial : longint;
    m,s,i,n : byte;
          z : real;

     begin
      clrscr  ;

writeln('vvedite i,m  (1-8)');
readln(i,m);

      begin

    factorial:= 1;
    for n:=2 to i do
        factorial:= factorial*n;
a[i]:=b/factorial ;
for j:=1 to i do
writeln('a[i]',a[i]:5:5);
end;

begin
z:=1;
for s:=1 to m do
z:=z*a[i] ;
writeln('z=',z:5:10);
end;

 For j:=1 to i do
 begin
x[j]:=0;
for i:=1 to j do
 x[j]:=x[j]+a[i]/100;
 writeln('x[j]',x[j]:10:10);
  end;
if abs(z)<0.9 then
 y[j]:=((arctan((2*x[j])/sqrt(1-2*x[j]*2*x[j])))/b*cos(x[j]))+j
 else y[j]:=3.9+5*z+j;
 for j:=1 to j do
 writeln('y[j]',y[j]:10:10);

 readln;
end.

[Slym]

a[i]:=b/factorial ; - где i меняется? или только при вводе

[tp7]

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

a[i]:=b/factorial ; - где i меняется? или только при вводе

i меняется от 1 до вводимого значения i.

[Mad_Cat]

writeln('vvedite i,m  (1-8)');
readln(count,m);
for i:=1 to count do     
 begin
    factorial:= 1;
    for n:=2 to i do
        factorial:= factorial*n;
a[i]:=b/factorial ;
for j:=1 to i do
writeln('a[i]',a[i]:5:5);
z:=1;
for s:=1 to m do
z:=z*a[i] ;
writeln('z=',z:5:10);

 For j:=1 to i do
x[j]:=0;
for xz:=1 to j do
 x[j]:=x[j]+a[xz]/100;
 writeln('x[j]',x[j]:10:10);
if abs(z)<0.9 then
 y[j]:=((arctan((2*x[j])/sqrt(1-2*x[j]*2*x[j])))/b*cos(x[j]))+j
 else y[j]:=3.9+5*z+j;
 for j:=1 to j do
 writeln('y[j]',y[j]:10:10);
end;

[Slym]

  clrscr;
  writeln('vvedite i,m  (1-8)');
  readln(i,m);
  begin
    factorial:= 1;
    for n:=2 to i do
      factorial:= factorial*n;
  a[i]:=b/factorial ;
  for j:=1 to i do
    writeln('a[i]',a[i]:5:5);
  end;

и где меняется? a[i] заполняется только 1 раз

[Slym]

for i:=1 to j do
 x[j]:=x[j]+a[i]/100;

и ведь научится... этот код не оптимален
1. деление выполняется j раз хотя достаточно 1
2. запись в память массива x[j] j раз, хотя достаточно 1 раза, а сумму копить в локальной переменной которая скорее всего будет быстрым регистром
а вот этот

c:=0;
for i:=1 to j do
 c:=c+a[i];
x[j]:=c/100;

[tp7]

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

for i:=1 to j do
 x[j]:=x[j]+a[i]/100;

и ведь научится... этот код не оптимален
1. деление выполняется j раз хотя достаточно 1
2. запись в память массива x[j] j раз, хотя достаточно 1 раза, а сумму копить в локальной переменной которая скорее всего будет быстрым регистром
а вот этот

c:=0;
for i:=1 to j do
 c:=c+a[i];
x[j]:=c/100;

Просто я думаю что у меня ошибка в расчёте x[j] и y[j] .
Вот попробовал по предыдущему коду, но всё равно выводится только одно значение x[j] и y[j] (остальные y[j] выдаёт нули).Но ведь ф-ия это когда кождому значению x определённое значение y.Иль я вновь ошибся в коде?

program fg;
uses crt;
const

      b=1.6;

var    a,x,y: array[1..100] of real;
         i,  j:integer;
  factorial : longint;
   count, m,s,n : byte;
          z : real;

     begin
      clrscr  ;
writeln('vvedite i,m  (1-8)');
readln(count,m);
for i:=1 to count do
 begin
    factorial:= 1;
    for n:=2 to i do
        factorial:= factorial*n;
a[i]:=b/factorial ;
for j:=1 to i do
writeln('a[i]',a[i]:5:5);
z:=1;
for s:=1 to m do
z:=z*a[i] ;
writeln('z=',z:5:10);
 end;
 For j:=1 to i do
x[j]:=0;
for i:=1 to j do
 x[j]:=x[j]+a[i]/100;
 writeln('x[j]',x[j]:10:10);
if abs(z)<0.9 then
 y[j]:=((arctan((2*x[j])/sqrt(1-2*x[j]*2*x[j])))/b*cos(x[j]))+j
 else y[j]:=3.9+5*z+j;
 for j:=1 to j do
 writeln('y[j]',y[j]:10:10);
 readln;
end.

[tp7]

может я просто не точно объяснил.Вот результат кода

[tp7]

Попробовал по рекомендации Slym , получилось немног лучше всем элементам массива х присваивается одно и то же значение:

program fg;
uses crt;
const

      b=1.6;

var    a,x,y: array[1..100] of real;
         i,  j:integer;
  factorial : longint;
   count, m,s,n : byte;
        c,  z : real;

     begin
      clrscr  ;
writeln('vvedite i,m  (1-8)');
readln(count,m);
for i:=1 to count do
 begin
    factorial:= 1;
    for n:=2 to i do
        factorial:= factorial*n;
a[i]:=b/factorial ;
for j:=1 to i do
writeln('a[i]',a[i]:5:5);
z:=1;
for s:=1 to m do
z:=z*a[i] ;
writeln('z=',z:5:10);
 end;
 For j:=1 to i do
x[j]:=0;
c:=0;
 for i:=1 to j do
 c:=c+a[i];
 x[j]:=c/100;
 for i:=1 to j do
 writeln('x[j]',x[j]:10:10);
if abs(z)<0.9 then
 y[j]:=((arctan((2*x[j])/sqrt(1-2*x[j]*2*x[j])))/b*cos(x[j]))+j
 else y[j]:=3.9+5*z+j;
 for j:=1 to j do
 writeln('y[j]',y[j]:10:10);
 readln;
end.

, но самое неприятное ,что элементы массива х должны быть разными,думаю с этого и нужно начать,ну а потом и с масивом у можно будет разобраться.

Вот результат

[Mad_Cat]

Может задание лучше скинешь