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

C - минимальный элемент массива Z.

D - минимальный элемент массива Y;

P - минимальный элемент массива V;

END.

BEGIN

End;

Close(f);

Reset(f);

Assign(f, name);

Begin

Type

Uses CRT;

Program MAX_mass;

END.

Close(f);

Reset(f);

BEGIN

VAR

TYPE

Program PR_FUN_4;

Массивы в разных файлах

Вычислить длину векторов A(8), B(7), C(6).

Найти средние значения элементов

End.

…………………………………………….

Результаты вычислений

---------------------------------------------------------

{Считывание из файла – в п/п функции }

mass=array[1..8] of integer;

CONST name1='a_mass8.pas';

name2='b_mass7.pas';

name3='c_mass6.pas';

L: array[1..8] of real; a, b, c: mass; i, j: integer;

FUNCTION DLIN(d: mass; n: byte;
name: string): real;

VAR S: integer; f: text;

Assign(f, name); {считывание из файлов}

for i:=1 to n do

read(f, d[i]);

S:=0;

for i:=1 to n do

S:=S+ sqr(d[i]);

DLIN:=sqrt(S);

END; {---конец п/п---}

{Вопрос: Почему массивы должны быть в разных файлах? Считывание элементов векторов из файла можно и в основной программе – смотри примеры из темы ФАЙЛЫ}

5). Найти максимальный элемент массивов, записанных в файлы ‘a.pas’ и ‘b.pas’.

mass=array[1..10] of integer;
Function MAX(n: integer; name: string):integer; Var
f: text; e: mass; i, maks: integer;

for i:=1 to n do

read(f, e[i]);

maks:=e[1];

for i:=1 to n do

if maks<e[i] then maks:=e[i]; MAX:=maks;

{-----------main--------}

writeln('maxA=',MAX(10,'a.pas'));

writeln('maxB=',MAX(7,'b.pas'));

7) Заданы три массива V={4.1, 2.3, 6.5},

Y={1.4, 5.3, 2.8, 0.7}, Z={5.7, 6.1, 2.4, 3.8, 4.6}.

Решить уравнение p*x²+d*x+c=0, где

8) Заданы четыре вектора X={x₁, x₂, x₃},

Y={y₁, y₂, y₃,}, Z={z₁, z₂, z₃,}; P={p₁, p₂, p₃,}.

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