14.04.2010, 07:50
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
С нами:
8641138
Репутация:
0
|
|
Сообщение от EndLeSSDre@M
вот держи! откомпилил! все робит!
PHP код:
uses crt;
const n=5;
var
a:array[1..n,1..n] of real;
x:array[1..n] of real;
i,j,k,l:integer;
sum,g,p:real;
begin
clrscr;
l:=1;
writeln('Massiv');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=exp(ln(2)*(i-j))*abs(i-4)+3*ln(3)/ln(abs(sqr(i)+exp(ln(j)*3)));
write(a[i,j]:4:1);
sum:=sum+a[i,j];
end;
x[i]:=sum;
sum:=0;
writeln;
end;
writeln;
write('X(');
for i:=1 to n do
begin
write(x[i]:1:1,';');
end;
write(')');
writeln;
for i:=1 to n do
begin
for k:=1 to i do
begin
for j:=1 to k do
begin
l:=l*j;
end;
p:=x[k]/l;
l:=1;
end;
sum:=sum+sin(x[i])-p;
end;
g:=ln(2)/ln(abs(sum));
writeln;
writeln('G= ',g:3:3);
readln;
end.
СПАСИБИЩЕ, но у меня та же проблема пишет, это наверное Паскаль мой глючит..
|
|
|