llspacing=0>
3
Br = E-A
Br1 = EA /
В В В В В
2
Em (l, n)
В
В
В
В В
В
program KURSOVOJ_PROJECT;
uses crt;
type int = 0 .. 10;
vec = array [0 .. 10] of real;
matr = array [0 .. 10,0 .. 10] of real;
var x, x_1, ax, ax_1, c: vec;
e, a, a_1, b, b_1, br, br_1: matr;
m, n: int;
name: char;
procedure readvec (var x: vec; name: char; n: int);
var i: int;
begin
writeln (' Ввести вектор ', name,' розміру n = ', n); for i: = 0 to n-1 do
begin
write ('', Name, '[', i: 2, '] ='); readln (x [i])
end;
end; readvec
procedure writevec (var x: vec; name: char; n: int);
var i: int;
begin
writeln (' Вивести вектор ', name,' розміру n = ', n); for i: = 0 to n-1 do
begin
write ('', Name, '[', i: 2, '] ='); writeln (x [i]: 10:5)
end;
end; writevec
procedure readmatr (var y: matr; name: char; n, m: int);
var i, j: int;
begin
writeln ('Ввести матрицю', name,
'розміру: n =', n, ', * m =', m); for i: = 0 to n-1 do
for j: = 0 to m-1 do
begin
write (' ', Name,' [', i: 2,', ', j: 2,'] = ');
readln (Y [i, j])
end;
end; readmatr
procedure writematr (var y: matr; name: char; n, m: int);
var i, j: int;
begin
writeln ('Вивести матрицю', name,
'розміру: n =', n, ', * m =', m);
for i: = 0 to n-1 do
for j: = 0 to m-1 do
begin
write (' ', Name,' [', i: 2,', ', j: 2,'] = ');
writeln (Y [i, j]: 8:4)
end;
end; writematr
procedure Em (var E: matr; n: int);
