14.04.2010, 00:44
|
|
Познающий
Регистрация: 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:integer;
sum,g,p:real;
begin
clrscr;
k:=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);
sum:=sum+a[i,j];
end;
x[i]:=sum;
sum:=0;
writeln;
end;
write('X(');
for i:=1 to n do
begin
write(x[i],', ');
end;
write(')');
writeln;
for i:=1 to n do
begin
for k:=1 to i do
begin
for j:=1 to k do
begin
k:=k*j;
end;
p:=x[k]/k;
k:=1;
end;
sum:=sum+(sin(x[i])-p);
end;
G:=ln(2)/ln(abs(sum));
writeln('G= ',g);
readln;
end.
на работоспособность не проверял... возможны не большие недочеты.... писал в блокноте, лень проверять... если что пиши в ЛС! Пожалуйста 
сорь что без процедур и се такое... просто не люблю я их
да и еще, я знаю только 2 диагонали матрицы... главную и побочную, где еще взять 3 не понял... тупо сделал как сумма строк.. СПАСИБИЩЕ!!!!!!!!!
ОГРОМНОЕ!!!!ОЧЕНЬ ВЫРУЧИЛ!!!
Компиль проходит, но Ран пишет: "Error 207: Invalid floating point operation", а Дебаг-> Аутпат: "Masiv Runtime error 207 at 0356:0006"
|
|
|