tputVector (n: byte; V: TVect); І, j : integer; CreateMatrix; І, j: integer;: real; і: = 1 to n do beginj: = 1 to n do begin
{write ('a [', i, ', , j,'] = '); read (m [i, j]);} и mod 2 = 1 then r: =-exp (i * ln (2)) else r: = exp (i * ln (2)); (ij) mod 2 = 1 then [i, j]: =-exp (( ij) * ln (1.5)) * 2 * r * (i-3.9) * (i/3-ll) [i, j]: = exp ((ij) * ln (1.5)) * 2 * r * ( i-3.9) * (i/3-1.1) /;; end; OutputMatrix;;
writeln ('_____Elementu Matricu______');
for і: = 1 to n do
begin j: = 1 to n do (M [i, j]: 10:3, '');;;;; OutputVector;;
writeln ('______Elementu Vektora______');
for і: = 1 to n do
writeln ('x [', i, '] =', V [i]: 5:3);
writeln;
end;.
. Головна програма
Program moduli; crt, global, MODUL22;: Tvect;: Tmatr;
І, j, n: integer;: integer;: real;: integer;, sum2: real;: real;: real;
с, b: integer;: real;; ('n ='); read (n); (n, A); (n, A);: = 1; j: = 2 to n do begin: = 0; sum2: = 0;: = a [1, adr]; am: = 1; і: = 1 to n do begin: = suml + a [i, adr];: = sum2 + a [і, j]; max sum2 then adr: = j;; і: = 1 to n do begin am mod 2 = 1x [i]: = a [n + li, adr] x [i]: = a [i, i] + a [i, n + li];; (n, x);
writeln ('----- Funkciy -----');
write ('c ='); read (c); ('b ='); read (b);: = x [1]; min: = x [1]; c < b then begin і: = 1 to n do begin max x [i] then min: = x [i];;: = max + min end U: = x [l] * x [n];
writeln ('U =', U: 5:3); until keypressed;.
6. Результати роботи програми
при n = 5 и при однакової форматі Виведення для всіх чотірьох Видів даніх a [i, j]: 5:3;
Матриця - 5x5
а [11] = -8.893 а [12] = -5.929 а [13] = -3.953 а [14] = -2.635 а [15] = -1.757
а [21] = -9.880 а [22] = 6.587 а [23] = 4.391 а [24] = 2.927 а [25] = 1.952
а [31] = -3.240 а [32] = 2.160 а [33] = -1.440 а [34] = -0.960 а [35] = -0.640
а [41] = -2.520 а [42] = 1.680 а [43] = -1.120 а [44] = 0.747 а [45] = 0.498
а [51] = -201.960 а [52] = 134.640 а [53] = -89.760 а [54] = 59.840 а [55] = -39.893
Вектор
Адреси стовпця adr = l Адреси найбільшого елемента аm = 4
х [1] = -10.650
х [2] = 9.514
