Дано х. Сформировать массив а(10).

[dsdt]

с массивами вообще не знаком толком, а задали как зачётное задание ( ) решить и построить блок-схему...
помогите чем можите!

Дано х. Сформировать массив а(10).

[lexus_ilia]

Держи...

program xa;
var
 a:array[1..10] of extended;
 x,m,tg:real;
 fakt:extended;
 k,i:integer;
begin
 Writeln('BBedute x');
 readln(x);
 m:=x;
 for i:=1 to 10 do
 begin
  x:=m;
  for k:=1 to i do
   x:=x*m;
  fakt:=1;
  for k:=1 to 2*i+1 do
   fakt:=fakt*k;
  x:=x/fakt;
  tg:=sin(i*m)/cos(i*m);
  fakt:=1;
  for k:=1 to i do
   fakt:=fakt*k;
  a[i]:=x-(tg/fakt);
 end;
 Writeln('noLy4uBLIIEuC9 maccuB');
 for i:=1 to 10 do
  writeln(a[i]);
 readln;
end.

Сделал как понял...

[Sazary]

Не очень понял, чему равен каждый элемент - смущает знак суммы.
Ведь, если мы считаем, например, 3-й элемент, то k=3. Но в правой части уравнения k меняется от 1 до 10.
Вот программа, вычисляющая элементы массива по формуле без знака суммы:

program mass;
uses crt;

var
a : array[1..10] of real;
x : real;
i,k : integer;

function fact(a : integer) : longint;
 var r : longint;
 begin
 r:=1;
 while a>1 do
  begin
  r := r*a;
  dec(a);
  end;
 fact := r;
 end;

begin
clrscr;
write('Enter x: ');
readln(x);
for i:=1 to 10 do
 begin
 a[i] := Exp(ln(x)*(i+1))/fact(2*i+1) - sin(i*x)/(cos(i*x)*fact(i));
 writeln(a[i]:5:3);
 end;

readln;
end.

Если это не то - скажите.

lexus_ilia Опередили )

[lexus_ilia]

Как похожи ответы про " не понял "
З.Ы. сорр за оффтоп...

[dsdt]

lexus_ilia, Sazary, Спасибо вам огромное за помощь! Спасли меня

Можете посоветовать, что делать с блок-схемой - может прога есть какая-нибудь, которая их делает?.. сам-то я могу так на элементарный примеры делать

[alex_fcsm]

Fceditor (найдите на форуме)

[dsdt]

alex_fcsm, скачал, установил, всё хорошо... только что-то я не так делаю, выдаёт синтаксическую ошибку.

[dsdt]

Бллин, постройте кто может блок-схему к этой задачке, а то у меня руки - крюки...