значення функції op}
var {оголошення змінних функції op}, j, m: integer; {початок тіла функції op}
for i:=1 to 3 doj:=1 to 2 do begin [i, j + n]:=a [i, j]; ( a [, i, laquo ;, , j + n, ]=, a [i, j + n]: 4: 2); {додавання до матриці 2 і 3 стовпці};:=0; m:=0 to 2 do begin
d:=1; i:=1 to n do:=d * a [i, i + m]; {знаходження твори елементів головних діагоналей}:=s1 + d; {сума добутків елементів головних діагоналей}
end;:=0; m:=6 downto 4 do:=1; i:=1 to n do
d:=d * a [i, m-i]; {знаходження твори елементів побічних діагоналей}:=s2 + d; {сума добутків елементів побічних діагоналей};:=s1-s2; {розрахунок визначника матриці}; {Кінець тіла функції} {початок тіла процедури}
for i:=1 to n doj:=1 to n do
write ( vvedite a [, i: 2, , , j: 2, ]=); {введення значень елементів матриці А}
readln (a [i, j]) ;;
write ( vvedite b [, i: 2, ]=); {введення значень елементів матриці В} (b [i]) ;;:=op (a); {виклик функції op для розрахунку головного визначника матриці}
writeln ( det= raquo ;, det: 4: 2); i:=1 to n do beginj:=1 to n do begin
v [j]:=a [j, i]; {присвоєння тимчасової змінної значень стовпця} [j, i]:=b [j]; {присвоєння значенням стовпця значень матріци- шпальти У}; [i]:=op (a); {виклик функції op для розрахунку побічних визначників}
writeln ( popr , i: 1, =, popr [i]: 4: 2); j:=1 to n do [j, i]:=v [j]; {повернення значень i-го стовпця} ;; i:=1 to n do
begin [i]:=popr [i]/det; {розрахунок невідомих змінних} ( x , i: 1, =, x [i]: 4: 2); {висновок невідомих змінних}
end ;;. modul3; {оголошення модуля 3} crt; pr; {розділ реалізації процедури} pr; {визначення процедури pr}
var {оголошення змінних типу дійсні числа}, b, n, i: integer; {і дійсні числа}
s, p, h, x: real; {початок тіла функції};
writeln ( vvedite a ); {введення початкового значення відрізка} (a); ( vvedite b ); {введення кінцевого значення відрізка} (b); ( vvedite n ); {введення кількості відрізків} (n);:=(ba)/n; {обчислення кроку}:=0; i:=1 to n - 1 do {підсумовуємо значення функції на x1 ... xn} x:=a + (i + 0.5) * h; {обчислюємо значення х на даному кроці}:=s + (x * x - 2ln (x + 2)) {значення функції від даного х};:=s * h; {знаходимо значення функції методом прямокутник}
writeln (s: 4: 4) ;;;.
