14.04.2010, 23:42
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
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:integer;
max,sum,g,p:real;
begin
clrscr;
p:=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))+sin(i*j)/exp(ln(i+j)*3);
write(a[i,j]:4:1);
end;
sum:=0;
writeln;
end;
for i:=1 to n do
begin
max:=a[i,1];
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
x[i]:=sqr(max);
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
sum:=ln(2)/ln(abs(x[k]))
end;
sum:=sum+x[i];
p:=p*sum;
end;
g:=p;
writeln;
writeln('G= ',g:3:3);
readln;
end.
Ты спаситель прям, СПАСИБО!!!
|
|
|