Question

Решить с помощью функции​

Answer 1

Ответ:

Примерно так это должно выглядеть:

type

 matrix= array [1..2, 1..2] of integer; //Матрица с 4 ячейками(2 столбца + 2 строки)

var

 x, y, z :matrix;

 a, b, c, i, j, w: integer;

function NMatrix(a, b, c:integer):integer;

   var

     d: integer;

     x1, x2: real;

   begin    

     write('Сгенерированное уравнение: ');  

     writeln(a+'(x^2)+'+b+'x+'+c+'=0');

     d:=(b*b)-4*a*c;

     writeln('Дискриминант: ', d);

     if d<0 then  

      writeln('Нет корней');

     if d=0 then  

       writeln('x1=',(-b/(2*a)):0:3);

     if d>0 then begin

       x1:=(-b-sqrt(d))/(2*a);

       x2:=(-b+sqrt(d))/(2*a);

       writeln('x1=',x1:0:3);

       writeln('x2=',x2:0:3);

     end;

   end; // Конец функции

begin

   writeln('-----------------------------------');

   writeln('---Решение уравнений с матрицами---');

   writeln('-----------------------------------');

   for i:=1 to 2 do begin

     for j:=1 to 2 do begin

       x[i,j]:=random(3); // Генерация значений у матриц X,Y,Z

       y[i,j]:=random(5);

       z[i,j]:=random(3);

       a:=a+x[i,j]; // Суммы значений всех элементов матриц  

       b:=b+y[i,j];

       c:=c+z[i,j];

     end;

   end;

   NMatrix(a,b,c);

end.