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

[desnet]

turbo pascal 7.0, а как подключить?

[desnet]

у меня английская версия

[VIK_aka_TOR]

в таком случае что бы не подключать библиотеку написал тебе через логарифм возведение в степень :

a[i,j]:=exp( 3*ln( sin((i*5 + 2*i/(j*i))*3.14/180 ) ));

обычно через power пользуюсь, но коль тут такое дело...

[desnet]

спасибо, отправлю тебе деньжат)))

[VIK_aka_TOR]

весьма приятно... если что то обращайтесь... с вами приятно иметь дело...)

[kuy]

program klab_4;
{$APPTYPE CONSOLE}
uses SysUtils,math; // math - математическая библиотека
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]:0:3); 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;
sum:=0;
for j:=1 to 8 do
sum:=sum+a[imin,j];
writeln('sum:=',sum:0:3);
readln;
end.

[ViktorR]

Пробуй без power():

a[i,j] := sqr(sin((i*5 + 2*i/(j*i))*3.14/180 )) * sin((i*5 + 2*i/(j*i))*3.14/180 );