Nikiel
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ помогите доделать задачу
Компоненты вектора X - скалярное произведение I-той строки матрицы на 1 -й столбик, который перед етим необходимо превратить так, чтобы в начале были положительные элементы, а дальше отрицательные в том же порядке, в котором они размещались первобытно.
Функція f[i,j] = 2j-1(|j – 3| -1,3)2j (i – 3,4 ) (j/3 –1).
Код: Program ------; {}
uses Crt; {}
Const Len=100;
Type
mtr=array[1..Len,1..Len] of real; {}
mas=array[1..Len] of real; {}
var i,j,m,n:integer;{}
k:byte;{}
a:mtr;{}
x:mas;{}
c:real;{}
u:real;{}
BEGIN
ClrScr;
Writeln('Vvedit rozmirnist matruci A: chisla M i N');
writeln('m=');
read(m);
writeln('n=');
read(n);
write('vvedit elementi a[i,j] matrici A');
for i:=1 to m do {}
for j:=1 to n do {}
a[i,j]:=exp(((j-1)*ln(2)))*(ABS(j-3)-1.3)*(exp(j*ln(2)))*(i-3.4)*((j/3)-1);
ClrScr;
write('Vivedit elementi a[i,j] matrici A');
writeln;
writeln;
{Vuvod matrici A po strokam}
for i:=1 to m do {Vneshni cikl po strokam}
Begin
for j:=1 to n do {Vlogenui cikl po stolbcam}
write('a[',i,',',j,']=',a[i,j]:10:7,' ');{Vivod elementa a[i,j] matrici A}
writeln; {Operator dlia prerhoda na ocherednyiy stroky}
end; |
а дальше теряюсь ((( |
Вали отсюда.
