14.04.2010, 19:08
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от TPAXTOP
1. Вычислить элементы квадратной матрицы (и=1, 2,..5; j = 1,2,..5) по заданной формуле
2. Используя элементы матрицы вычислить элементы вектора (и =1, 2,..5). Сформировать вектор Х(х1,х2,х3..х5), каждый элемент которого определяется как квадрат наибольшего элемента строки матрицы.
3. Вычислить значение функции G согласно формулы
хоть я и пизд*ц злой щас... но все таки сделал:
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.
|
|
|