reset(f);

Readln(f);

for i:=1 to 2 do

for j:=1 to 3 do

read(f,x[i,j]);

Readln(f);

Readln(f);

for i:=1 to 3 do

for j:=1 to 3 do

read(f,y[i,j]);

Readln(f);

Readln(f);

for i:=1 to 3 do

for j:=1 to 2 do

read(f,z[i,j]);

{------Обращение к подпрограмме-функции-------}

sr[1]:=sred(x,2,3);

sr[2]:=sred(y,3,3);

sr[3]:=sred(z,3,2);

{------Печать результатов в файл-------}

AppEnd(f);

writeln(f,' Cредниe значения: ');

for i:=1 to 3 do write(f,' sr[',i,']=',sr[i]:5:2);

Writeln(f);

maxsr:=sr[1];

for i:=2 to 3 do if maxsr<sr[i] then maxsr:=sr[i];

writeln(f,' maxsr=',maxsr:5:2);

Close(f)

End.

Файл Matrica.pas содержит матрицы x,y,z.

Варианты заданий.

1. Заданы массивы X={x₁, x₂, x₃, …, x₆}, Y={y₁, y₂, …, y₅}, Z={z₁, z₂, z₃, z₄}.

Вычислить среднее арифметическое значение отрицательных элементов массивов X, Y, Z, и определить наименьшее из них. Вычисление среднего арифметического значения оформить в виде подпрограммы- функции.

Исходные данные:

Y={5.1; -4.8; 4.99; -5.01; 5.4};

X={-3.2; 3.33; -2.8; 2.95; -3.01,0}; Z={-1.44; -1.5; 1.8; -1.77}.

2. Найти минимальное значение среди первых элементов строк каждой из матриц A, B, C, D и напечатать их в порядке возрастания. Вычисление минимального элемента оформить в виде подпрограммы - функции.

Исходные данные:

.

3. Заданы матрицы A, B, C, D.

Упорядочить по возрастанию переменные x, y, z, w, являющиеся минимальными значениями первых элементов строк матриц A, B, C, и Dсоответственно. Поиск максимального элемента оформить подпрограммой. Исходные данные:

4. Заданы три вектора A={a₁, a₂, a₃, a₄}, B={b₁, b₂, b₃, b₄, b₅}, C={c₁, c₂, c_3, c₄}.

Вычислить и вывести на печать длины этих векторов, предварительно расставив их в порядке возрастания.

Длина вектора X={x₁, x₂……x_n} вычисляется по формуле:

Вычисление длины вектора оформить в виде подпрограммы-функции.

Исходные данные: A={-2.1; 3.4; 2.48; -1};

B={-0.8; 1.25; 3.1; -1.5; 0.25};

C={0.55; -1; 1.1; 2.05}.

5. Заданы два массива: A={a₁, a₂, a₃, a₄}, B={b₁, b₂…..b₆}.

Переменной S присвоить значение –1, если максимальный элемент массива A больше максимального элемента массива B; значение 0, если максимальные элементы равны и значение 1, в оставшемся случае.

Поиск максимального элемента оформить в виде подпрограммы функции.

Исходные данные: A={-5.2; 8.1; 1.3; 8.25};

B={6.4; 3.1; 8.12; 7.9; 8.0; 3.5}.

6. Заданы массивы X={x₁, x₂, x₃, …, x₆}, Y={y₁, y₂, …, y₅}, Z={z₁, z₂, z₃, z₄}.

Вычислить среднее арифметическое значение положительных элементов массивов X, Y, Z, и определить большее из них. Вычисление среднего арифметического значения оформить в виде подпрограммы- функции.

Исходные данные: X={-1.8; 2.3; 3.25; -0.5; -1; 0.8;};

Y={0.25; 3.1; -0.8; 2.5; 3.8};

Z={-0.1; 3.25; 4.8; -0.8}.

7. Заданы массивы X={x₁, x₂, x₃, x₄}, Y={y₁, y₂, y₃}, Z={z₁, z₂, z₃, z₄, z₅}.

Определить среднее арифметическое значение чисел a, b, c, где

a - максимальный элемент массива X, b – максимальный элемент массива Y, c - максимальный элемент массива Z.

Поиск максимального элемента оформить в виде подпрограммы-функции.

Исходные данные: X={0.85; 0.95; 1; 1.05};

Y={2.08; 1.9; 3.1};

Z={2; 2.05; 3.1; 2.9; 1.5}.

8. Заданы три матрицы A, B, C.

Найти минимальное из трех чисел X, Y, Z, где X есть след матрицы A, Y - след матрицы B, Z - след матрицы C. Следом матрицы называется сумма элементов главной диагонали. Вычисление следа матрицы оформить в виде подпрограммы-функции.

Исходные данные:

9. Заданы три вектора A={a₁, a₂, a₃, a₄}, B={b₁, b₂, b₃, b₄, b₅}, C={c₁, c₂, c_3, c₄}.

Вычислить и вывести на печать длины этих векторов, предварительно расставив их в порядке возрастания.

Длина вектора X={x₁, x_2,…, x_n} вычисляется по формуле:

Вычисление длины вектора оформить в виде подпрограммы-функции.

Исходные данные: A={-2.1; 3.4; 2.48; -1};

B={-0.8; 1.25; 3.1; -1.5; 0.25};

C={0.55; -1; 1.1; 2.05}.

10. Заданы матрицы A, B, C, D.

Упорядочить по возрастанию переменные a1, b1, c1, d1, являющиеся максимальными значениями первых элементов столбцов матриц A, B, C, и Dсоответственно. Поиск максимального элемента оформить подпрограммой. Исходные данные:

11. Заданы три матрицы A, B, C.

Решить уравнение p*x²+d*x+r=0, где p - минимальный элемент матрицы A; d –минимальный элемент матрицы B; r - минимальный элемент матрицы C. Поиск минимального элемента матрицы оформить в виде подпрограммы – функции.

Исходные данные:

.

12. Даны три квадратные матрицы A, B, C.

Найти длину вектора X={x₁, x₂, x₃}, где x₁ – сумма элементов матрицы A; x₂ – сумма элементов матрицы B; x₃ – сумма элементов матрицы C. Вычислить сумму элементов матрицы оформить в виде подпрограммы – функции.

Исходные данные:

.

13. Заданы четыре вектора X={x₁, x₂, x₃}, Y={y₁, y₂, y₃,}, Z={z₁, z₂, z₃,}; P={p₁, p₂, p₃,}.

Переменной A присвоить значение 1, если скалярное произведение векторов X и Y больше скалярного произведения векторов Z и P, или значение 0 в противном случае. Вычисление скалярного произведения векторов оформить в виде подпрограммы – функции.

Скалярное произведение векторов вычисляется по формуле

Исходные данные: X={1.5; 2.1; 3.0}; Y={2.1; 1.1; 3.2};

Z={3.7; 1.2; 6.4; -5.3}; P={1.8; -1.8; 2.5; -2.2}

14. Заданы матрицы A, B, C.

Упорядочить по убыванию три числа X, Y, Z, где X – максимальный элемент матрицы A, Y – максимальный элемент матрицы B, Z – максимальный элемент матрицы C. Поиск максимального элемента оформить в виде подпрограммы – функции.

Исходные данные:

.

15. Заданы матрицы A, B, C, D.

Сформировать вектор X ={x₁, x₂, x₃, x₄}, где x₁, x₂, x₃, x₄ соответственно максимальные элементы в матрицах A, B, C, D. Поиск максимального элемента в матрице оформить в виде подпрограммы - функции.

Исходные данные:

.

16. Заданы матрицы A, B , C, D.

Вычислить след каждой матрицы и упорядочить их в порядке возрастания. Вычисление следа матрицы оформить в виде подпрограммы - функции.

Исходные данные:

.

17. Заданы экспериментальные значения трех случайных величин: A={a₁, a₂, a₃, a₄}, B={b₁, b₂,…b_n}, C={c₁, c₂, …..c_n}.

Вычислить суммы элементов каждого массива, затем полученные значения упорядочить в порядке возрастания.

Вычисление сумм оформить в виде подпрограммы-функции.

Исходные данные:

A={0.48; 0.51; 0.71; 0.6};

B={0.95; 1.1; 1.01; 1.25; 0.99}

C={0.85; 0.93; 0.7; 0.75; 0.8}.

18. Заданы матрицы A, B, C.

Решить уравнение P*x²+d*x+f=0, где
P - максимальный по абсолютной величине элемент матрицы A;

d - максимальный по абсолютной величине элемент матрицы B;

f - максимальный по абсолютной величине элемент матрицы C;

Поиск максимального по абсолютной величине элемента оформить в
виде подпрограммы-функции.

Исходные данные:

.

19. Заданы матрицы A, B, C, D.

Упорядочить по возрастанию переменные a1, b1, c1, d1, являющиеся максимальными значениями последних элементов строк матриц A, B, C, и Dсоответственно. Поиск максимального элемента оформить подпрограммой. Исходные данные:

20. Заданы три массива V={v₁, v₂, v₃}, Y={y₁, y₂, y₃,y₄}, Z={z₁, z₂, z₃, z₄, z₅}.

Решить уравнение p*x²+d*x+c=0, где p - минимальный элемент массива V; d - минимальный элемент массива Y; c - минимальный элемент массива Z.

Поиск максимального элемента оформить в виде подпрограммы-функции.

Исходные данные:

V={3.8; 0.9; 1.5};

Y={1.8; 2.33; 0.2; -2.5};

Z={0.25; 1.8; 2.5; 2.2; 1.55}.

21. Заданы матрицы A, B, C, D.

Упорядочить по возрастанию переменные a1, b1, c1, d1, являющиеся минимальными элементами главной диагонали соответственно матриц A, B, C, D. Поиск максимального элемента оформить подпрограммой. Исходные данные:

22. Заданы матрицы A, B, C, D.

Упорядочить по возрастанию переменные x, y, z, t, являющиеся максимальными элементами соответственно матриц A, B, C, D. Поиск максимального элемента матрицы оформить подпрограммой-функцией. Исходные данные:

.

23. Заданы экспериментальные значения трех случайных величин:

X={x₁, x₂, x₃, x₄}, Y={y₁, y₂, y₃, y₄, y₅}, Z={z₁, z₂, z₃, z₄, z₅}.

Вычислить среднее геометрическое положительных элементов массивов и найти наибольшее из них.

Вычисление среднего геометрического положительных элементов оформить в виде подпрограммы-функции.

Исходные данные: X={-1.45; 1.09; 0.9; -1.2};

Y={-1.5; 1.66; -2.01; 1.7; -1.99};

Z={-0.81; 1.1; 1.3; 1.85; 0.7}.

24. Заданы три массива X={x₁, x₂, x₃, x₄}, Y={y₁, y₂, y₃}, Z={z₁, z₂, z₃, z₄, z₅}.

Упорядочить по возрастанию три числа a, b, c, где a - минимальный элемент массива X, b - минимальный элемент массива Y, c - минимальный элемент массива Z. Поиск минимального элемента оформить в виде подпрограммы-функции.

Исходные данные:

X={4.2; 3; 7; 3.6};

Y={5.6; 3; 2};

Z={1; 2.1; 3; 4.2; 5}.

25. Заданы три массива: W={w₁, w₂, w₃}, Y={y₁, y₂, y₃,y₄}, Z={z₁, z₂, z₃, z₄, z₅}.

Решить уравнение p*x²+d*x+c=0, где p - максимальный элемент массива W; d - максимальный элемент массива Y; C - максимальный элемент массива Z. Поиск максимального элемента оформить в виде подпрограммы-функции.

Исходные данные:

W={2.1; 3.8; 0.1};

Y={0.5; 4.8; 5.1; -1.5};

Z={1.5; 1.8; 3.4; 0.2; 2.85}.

26. Найти минимальное значение среди последних элементов столбцов матриц A, B , C, D и напечатать их в порядке убывания. Вычисление минимального элемента оформить в виде подпрограммы - функции.

Исходные данные:

.

27. Заданы две матрицы A и B. Построить таблицу значений функций y=c*x²+d для 0£ x £ 1, Dx=0.1, где c- след матрицы A; d- след матрицы B. Следом матрицы называется сумма элементов главной диагонали. Вычисление следа матрицы оформить в виде подпрограммы-функции.

Исходные данные:

.

28. Заданы массивы A={a₁, a₂, a₃, a₄, a₅}, B={b₁, b₂, b₃, b₄, b₅, b₆}, C={c₁, c₂, c₃, c₄}. Определить максимальное значение из средних значений элементов каждого массива. Вычисление среднего значения оформить в виде подпрограммы-функции.

Исходные данные:

A={10.5; 12.8; 14.4; 14.2; 21.5};

B={9.5; 15.3; 14.8; 19.2 11.1; 10.05};

C={12.3; 9.5; 15.1; 10.5}.

29. Заданы матрицы A, B, C.

Упорядочить по возрастанию три числа X, Y, Z, где X - сумма элементов матрицы A, Y – сумма элементов матрицы B, Z – сумма элементов матрицы C. Вычисление суммы элементов матрицы оформить в виде подпрограммы-функции.

Исходные данные:

.

30. Три точки A, B, C заданы своими координатами.

Определите, какие из точек находятся на минимальном расстоянии друг от друга. Расстояние d для точек W={w₁, w₂, …, w_n} и V=(v₁, v₂, …, v_n) вычисляется по формуле

Вычисление расстояния оформить в виде подпрограммы-функции.

Исходные данные:

A={0.85; -0.9; 2.8};

B={2.1; 3.3; -0.25};

C={3.1; 4.0; 4.5}.

31. Заданы три массива X={x₁, x₂, x₃, x₄}, Y={y₁, y₂, y₃}, Z={z₁, z₂, z₃, z₄, z₅}.

Упорядочить по возрастанию три числа a, b, c, где a - минимальный элемент массива X, b - минимальный элемент массива Y, c - минимальный элемент массива Z. Поиск минимального элемента оформить в виде подпрограммы-функции.

Исходные данные:

X={4.2; 3; 7; 3.6};

Y={5.6; 3; 2};

Z={1; 2.1; 3; 4.2; 5}.

32. Заданы треугольники ABC (стороны a, b, c), XYZ (стороны x, y, z), RLF (стороны r, l, f).

Определить треугольник, имеющий максимальную площадь. Площадь треугольника MNK (стороны m, n, k) вычисляются по формуле Герона , где p - полупериметр треугольника.

Вычисление площади треугольника оформить в виде подпрограммы-функции.

Исходные данные:

a = 2.5 x = 2.1 r = 3.3

b = 3.2 y = 1.5 l = 2.85

c = 1.2 z = 3.2 f = 1.5

33. Заданы два массива X={x₁, x₂, x₃, x₄}, Y={y₁, y₂, y₃, y₄, y₅}

Построить таблицу значений функций Z=c*x²+d для 0£ x £ 2, Dx=0.5, где c- минимальный элемент массива Х; d- минимальный элемент массива Y;

Вычисление минимального элемента массивов оформить в виде подпрограммы-функции.

Исходные данные: X={2.5; 2.88; 3.01; 3.1};

Y={1.85; 2.8; 3.5; 3.08; 2.9};

34. Заданы матрицы B, C, V.

Решить уравнение P*x²+d*x+f=0,

где P – минимальный по абсолютной величине элемент матрицы B;

d - минимальный по абсолютной величине элемент матрицы C;

f - минимальный по абсолютной величине элемент матрицы V;

Поиск максимального по абсолютной величине элемента оформить в виде подпрограммы-функции.

Исходные данные:

.

35. Три точки B, C,F заданы основными координатами.

Определите, какие из точек находятся на максимальном расстоянии друг от друга. Расстояние D для точек W={w₁, w₂, …, w_n} и V=(v₁, v₂, …, v_n) вычисляется по формуле

Вычисление расстояния оформить в виде подпрограммы-функции.

Исходные данные: B={0.55; 6.9;-11.8};

F={12.3; -3.3; 0.25};

C={6.1; -14.0; 7.5}.

36. Заданы две матрицы А и B.

Построить таблицу значений функций Y=c*cos(x)+d*x для 0 £ x £ 1, Dx=0.1, где с- сумма элементов матрицы A, d - сумма элементов матрицы B. Вычисление суммы элементов матрицы оформить в виде подпрограммы-функции.

Исходные данные:

.

37. Заданы матрицы A, B, C.

Решить уравнение P*x²+d*x-f=0,

где P - минимальный среди положительных элемент матрицы A;

d - минимальный среди положительных элемент матрицы B;

f - минимальный среди положительных элемент матрицы C;

Поиск максимального по абсолютной величине элемента оформить в виде подпрограммы.

Исходные данные:

.

38. Три вектора X, Y, Zзаданы своими координатами.

Определить, какое из скалярных произведений двух векторов максимально. Вычисление скалярного произведения двух векторов ( ) оформить в виде подпрограммы-функции.

Исходные данные: X={0.25; 0.5; 0.85; 1.5; 1.8};

Y={1.25; 1.5; 2.1; 0.95; 1};

Z={2; 3.1; 2.1; 0.5; 0.2}.

39. Заданы матрицы A, B, C, D.

Упорядочить по возрастанию переменные x, y, z, w, являющиеся максимальными элементами соответственно матриц A, B, C, D. Поиск максимального элемента матрицы оформить подпрограммой. Исходные данные:

.

40. Четыре точки заданы своими координатами A={a₁, a₂, a₃, a₄},

B={b₁, b₂, b₃, b₄}, C={c₁, c₂, c₃, c₄}, D={d₁, d₂, d₃, d₄}.

Определить, какие из этих точек находятся на максимальном расстоянии друг от друга. Расстояние между точками X={x₁, x₂, x₃, …, x_n} и Y={y₁, y₂, y₃, …, y_n} вычисляется по формуле

Вычисление расстояния между двумя точками оформить в виде подпрограммы- функции..

Исходные данные:

A={3.5; 4.4; 2.8; 3.1}; B={1.8; 2.1; 2.25; 1.9};

C={1.35; 3.2; 4; 2.1}; D={2.01; 0.35; 3.8; 0.3}.

41. Заданы треугольники ABC (стороны a, b, c), QRT (стороны q, r, t), FED (стороны f, e, d). Определить треугольник, имеющий минимальную площадь.

Вычислить и вывести на печать площадь каждого треугольника, используя для вычисления площади треугольника формулу Герона , где p - полупериметр треугольника MNK.

Вычисление площади треугольника оформить в виде подпрограммы-функции.

Исходные данные:

a = 1.45; q = 5.2; f = 3.45;

b = 2.8; r = 4.1; e = 2.2;

c = 3.1; t = 2.5; d = 3.9;