Даны три матрицы A, B, C. Решить квадратное уравнение Amin*x^2 + Bmin*x + Cmin = 0 (Pascal ABC.NET)

[марфаз]

program b8; type vector= array [ 1..10,1..10] of real;
var A:vector;
B: vector;
c: vector;
e, min1,min2,min3 : real;
i,j: integer;
function S ( m1,m2,m3: real): real;
var d,x,x1,x2:real;
begin
if (m2*m2)-(4*m1*m3)=0
then x:=(-m2)/(2*m1)else
if (m2*m2)-(4*m1*m3)>0 then
begin
d:=(m2*m2)-(4*m1*m3);
x1:=((-m2)+sqrt(d))/(2*m1);
x2:=((-m2)-sqrt(d))/(2*m1);
end;
end;
begin 
for i:=1 to 5 do 
begin
for j:= 1 to 3 do
 read (A[i,j]);
 writeln; end; min1:= A[i,j];
 for i:= 1 to 3 do begin
 for j:= 1 to 3 do 
 read (B[i,j]); writeln ; end; min2:= B[i,j];
 for i:= 1 to 4 do begin
 for j:= 1 to 4 do
 read ( C [i,j]); writeln; end; min3:= C[i,j];
 for i:=1 to 5 do
 for j:=1 to 3 do 
 if A[i,j]< min1 then min1:=A[i,j];
 for i:= 1 to 3 do
 for j:= 1 to 3 do
 if B[i,j]< min2 then min2:= B[i,j];
 for i:= 1 to 4 do
 for j:= 1 to 4 do
 if C [i,j]< min3 then min3:= C[i,j];
 writeln( S (min1,min2,min3));
 
end.

очень нужна помощь почему не считает(((((((((бесконечный ввод ((((((проверьте пожалуйста программу((((((
ВОТ ЗАДАНИЕ:
заданы три матрицы A[5,3] B[3,3] C[4,4] . Решить уравнение A min * x^2 + B min * x + C min = 0 , где A min , B min и C min - минимальные элементы матрицы A, B , C




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[WorldMaster]

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

[Serge_Bliznykov]

в программе много ошибок, поэтому и не работает.

Код лучше форматировать.
Это РЕЗКО повышает его наглядность и читаемость!

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

program b8;
type vector = array[1..10, 1..10] of real;

function S(a, b, c: real; var x1, x2 : real): boolean;
var d: real;
begin
  x1 := 0; x2 := 0;
  d := (b * b) - (4 * a * c);

  if d = 0
    then begin
    x1 := (-b) / (2 * a);
    x2 := x1;
    S := true
  end
  else
    if d > 0 then
    begin
      x1 := ((-b) + sqrt(d)) / (2 * a);
      x2 := ((-b) - sqrt(d)) / (2 * a);
      S := true
    end
    else
      S := false; {нет вещественных корней}
end;

function MinVector(const V: vector; const N, M: integer): real;
var minV: real;
  i,j : integer;
begin
  minV := V[1, 1];
  for i := 1 to N do
    for j := 1 to M do
      if V[i, j] < minV then minV := V[i, j];
  MinVector := minV;
end;

var
  A, B, C: vector;
  min1, min2, min3: real;
  x1, x2: real;
  i, j: integer;

begin
  for i := 1 to 5 do
  begin
    for j := 1 to 3 do
      read(A[i, j]);
    writeln;
  end;
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
      read(B[i, j]);
    writeln;
  end;
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
      read(C[i, j]);
    writeln; end;

  min1 := MinVector(A, 5, 3);
  min2 := MinVector(B, 3, 3);
  min3 := MinVector(C, 4, 4);

  WriteLn('A min =', min1: 1: 2, 'B min =', min2: 1: 2, 'C min =', min3: 1: 2);

  if S(min1, min2, min3, x1, x2) then
    WriteLn('x1 = ', x1: 1: 2, ' x2 = ', x2: 1: 2)
  else
    writeln('Not found real X (no solution!)');

end.

p.s. код не проверял. Доверяю это сделать Вам!

[марфаз]

Serge_Bliznykov спасибо,ниче не работает!бесконечный ввод матрицы

[ZX Spectrum-128]

Нет бесконечного ввода. Вам ввести нужно 15+9+16 элементов матрицы.

[марфаз]

ZX Spectrum-128 три матрицы будет да?

[Serge_Bliznykov]

Сообщение от марфаз

ZX Spectrum-128 три матрицы будет да?

точно так.

А что, код не Вы писали?!

кстати, можно дополнить код, чтобы не возникало впечатление, что он "бесконечно вводит":

  WriteLn('Введите матрицу A[5x3]: ');
  for i := 1 to 5 do
  begin
    for j := 1 to 3 do
      read(A[i, j]);
    writeln;
  end;
  WriteLn('Введите матрицу B[3x3]: ');
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
      read(B[i, j]);
    writeln;
  end;
  WriteLn('Введите матрицу C[4x4]: ');
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
      read(C[i, j]);
    writeln; end;
...

p.s. а вообще, когда нужно ввести такие большие матрицы, то обычно не издеваются над пользователем, заставляя каждый раз вводить десятки чисел, а :
либо заполняют матрицы случайными числами (через генератор ПСЧ),
либо считывают числа из подготовленного заранее (один раз!) файла.

[марфаз]

бесконечный ввод данных

а как сделать что бы поменьше вводить чисел

[ZX Spectrum-128]

В циклах заполнения матрицы уменьшите размерность матрицы до 3.

[марфаз]

program b8;
type vector = array[1..10, 1..10] of real;

function S(a, b, c: real; var x1, x2 : real): boolean;
var d: real;
begin
x1 := 0; x2 := 0;
d := (b * b) - (4 * a * c);

if d = 0
then begin
x1 := (-b) / (2 * a);
x2 := x1;
S := true
end
else
if d > 0 then
begin
x1 := ((-b) + sqrt(d)) / (2 * a);
x2 := ((-b) - sqrt(d)) / (2 * a);
S := true
end
else
S := false; {нет вещественных корней}
end;

function MinVector(const V: vector; const N, M: integer): real;
var minV: real;
i,j : integer;
begin
minV := V[1, 1];
for i := 1 to N do
for j := 1 to M do
if V[i, j] < minV then minV := V[i, j];
MinVector := minV;
end;

var
A, B, C: vector;
min1, min2, min3: real;
x1, x2: real;
i, j: integer;

begin
WriteLn('Введите матрицу A[5x3]: ');
for i := 1 to 5 do
begin
for j := 1 to 3 do
read(A[i, j]);
writeln;
end;
WriteLn('Введите матрицу B[3x3]: ');
for i := 1 to 3 do
begin
for j := 1 to 3 do
read(B[i, j]);
writeln;
end;
WriteLn('Введите матрицу C[4x4]: ');
for i := 1 to 4 do
begin
for j := 1 to 4 do
read(C[i, j]);
writeln; end;

min1 := MinVector(A, 5, 3);
min2 := MinVector(B, 3, 3);
min3 := MinVector(C, 4, 4);

WriteLn('A min =', min1: 1: 2, 'B min =', min2: 1: 2, 'C min =', min3: 1: 2);

if S(min1, min2, min3, x1, x2) then
WriteLn('x1 = ', x1: 1: 2, ' x2 = ', x2: 1: 2)
else
writeln('Not found real X (no solution!)');

end.
это означает : if S(min1, min2, min3, x1, x2) then
WriteLn('x1 = ', x1: 1: 2, ' x2 = ', x2: 1: 2)
else
writeln('Not found real X (no solution!)');