Const n = 4; var a: array[1..n,1..n] of real; b,x,ax: array[1..n] of real; i,j: integer; s: real; begin randomize; write('b(',n,'): '); for i: = 1 to n do begin b[i]: =random(721)-360; write(' ',b[i]: 4) end; writeln; write('x(',n,'): '); for i: = 1 to n do begin x[i]: =random(721)-360; write(' ',x[i]: 4) end; writeln; writeln('a(',n,',',n,'): '); for i: = 1 to n do begin write(' '); for j: = 1 to n do begin a[i,j]: =random(721)-360; write(' ',a[i,j]: 4) end; writeln; end; writeln; write('ax: '); for i: = 1 to n do begin ax[i]: =0; for j: = 1 to n do begin ax[i]: =ax[i]+a[i,j]*x[j]; end; write(' ',ax[i]) end; writeln; write('ax+b: '); for i: = 1 to n do begin x[i]: =ax[i]+b[i]; write(' ',x[i]) end; writeln; write('|ax+b| = '); s: =0; for i: = 1 to n do begin s: =s+x[i]*x[i]; end; writeln(sqrt(s)) end. пример: b(4): -51 179 276 -273 x(4): -272 -261 -57 304 a(4,4): -169 -94 245 -346 -351 -176 280 1 -193 -330 219 -54 338 -57 -44 -328 ax: -48647 125752 109727 -174263 ax+b: -48698 125931 110003 -174536 |ax+b| = 246563.556248688
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Часть операционной системы которая служит для работы с файлами называется
файловая