как записать формулу в паскале

[desnet]

помогите вписать формулу
sin^3(i^5+2i/ji)

[VIK_aka_TOR]

power(sin(i*5 + 2*i/(j*i))  ,3);

возможно понадобится подключить математическую библиотеку для функции power

[desnet]

мне вписывать так или так?
begin
a[i,j]:=power(sin(i*5 + 2*i/(j*i));

[VIK_aka_TOR]

я же не знаю что нужно вам сделать с этой формулой... если нужно занести значения в массив... то записывайте

a[i,j]:=power(sin(i*5 + 2*i/(j*i)) , 3);

попросили написать формулу - написали... что с ней будете делать... это уже ваши затеи и замыслы....
не забываем жмякать на весы...

[desnet]

не считайте меня дибилом но не работает

[VIK_aka_TOR]

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

не считайте меня дибилом но не работает

примечания:
массив А должен быть ввещественного типа - real к примеру
посмотрите что я написал за формулу, и что скопировали вы...

[desnet]

Дана матрица, элементы которой вычисляются по формуле ai,j=sin3(i5+2i/ji). Найти сумму элементов строки,в которой расположен элемент с наименьшим значением А[6,8].}
program klab_4;
var
i,imin,j:integer;
a:array[1..6,1..8]of real;
min,sum:real;
begin
writeln('massiv a:');
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
a[i,j]:=формула;
write(a[i,j]:4);
end;
writeln;
end;
min:= a[1,1];
for i:=1 to 6 do
for j:=1 to 8 do
if(min>=a[i,j])then
begin
min:=a[i,j];
imin:=i;
end;
begin
writeln('imin:=',imin);
end;
writeln;
sum:=0;
for j:=1 to 8 do
sum:=sum+a[imin,j];
writeln('sum:=',sum);
readln;
end.

[VIK_aka_TOR]

что касается формулы... она считает в радианах)))
если в углах то

power(sin((i*5 + 2*i/(j*i))*3.14/180 ), 3);

умножаем угол на пи, и делим на 180.... я вставил формулу... во всяком слуае запускается ваш проект... а правильность работы... проверять как то рутинно...

program klab_4;
var
i,imin,j:integer;
a:array[1..6,1..8]of real;
min,sum:real;
begin
writeln('massiv a:');
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
a[i,j]:= power(sin((i*5 + 2*i/(j*i))*3.14/180 ), 3);
write(a[i,j]:20); write('   ');
end;
writeln;
end;
min:= a[1,1];
for i:=1 to 6 do
for j:=1 to 8 do
if(min>=a[i,j])then
begin
min:=a[i,j];
imin:=i;
end;
begin
writeln('imin:=',imin);
end;
writeln;
sum:=0;
for j:=1 to 8 do
sum:=sum+a[imin,j];
writeln('sum:=',sum);
readln;
end.

[desnet]

все списал, и ничерта,ошибка uknown indentifier перед power

[VIK_aka_TOR]

каким паскалем пользуйтесь?.... попробуйте подключить математическую библиотеку...