// PascalABC.NET 3.3, сборка 1633 от 10.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Матрица A ***'); var a:=MatrRandom(m,n,10,99); a.Println(3); var b:=new integer[m,n]; var c:=new integer[m,n]; for var i:=0 to m-1 do for var j:=0 to n-1 do (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10); Writeln('*** Матрица B ***'); b.Println(3); Writeln('*** Матрица C ***'); c.Println(3); Writeln(3*n*'-'); Writeln('Количество нулевых элементов в С: ', c.ElementsByRow.Where(t->t=0).Count); var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum); Writeln('Сумма всех элементов матрицы B: ',sb); Writeln('Сумма всех элементов матрицы C: ',sc); if sb>sc then Writeln('Сумма элементов матрицы B больше') else if sc>sb then Writeln('Сумма элементов матрицы C больше') else Writeln('Суммы элементов матриц B и С равны') end.
Прямые параллельны между собой, если частное коэффициентов у X и Y равны. Коэффициент - это числовой множитель в алгебраическом выражении.* Посчитаем их.
7x + 6y + 9 = 0 У этого уравнения коэффициент у X - 7, а у Y - 6 их частное - это
5x + 7y + 14 = 0 Тут коэффициенты X, Y это 5 и 7 их частное -
8x + 6y + 19 = 0 Тут коэффициенты X, Y это 8 и 6 их частное - сократим дробь на 2, получим
15x + 21y + 22 = 0 Тут коэффициенты X, Y это 15 и 21 их частное - сократим дробь на 3, получим
10x + 14y + 4 = 0 Тут коэффициенты X, Y это 10 и 14 их частное - сократим дробь на 2, получим
И того у нас получилось 3 равные дроби, это и есть те уравнения. 5x + 7y + 14 = 0 15x + 21y + 22 = 0 10x + 14y + 4 = 0
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Матрица A ***');
var a:=MatrRandom(m,n,10,99); a.Println(3);
var b:=new integer[m,n];
var c:=new integer[m,n];
for var i:=0 to m-1 do
for var j:=0 to n-1 do
(b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10);
Writeln('*** Матрица B ***'); b.Println(3);
Writeln('*** Матрица C ***'); c.Println(3);
Writeln(3*n*'-');
Writeln('Количество нулевых элементов в С: ',
c.ElementsByRow.Where(t->t=0).Count);
var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum);
Writeln('Сумма всех элементов матрицы B: ',sb);
Writeln('Сумма всех элементов матрицы C: ',sc);
if sb>sc then Writeln('Сумма элементов матрицы B больше')
else
if sc>sb then Writeln('Сумма элементов матрицы C больше')
else Writeln('Суммы элементов матриц B и С равны')
end.
Коэффициент - это числовой множитель в алгебраическом выражении.*
Посчитаем их.
7x + 6y + 9 = 0
У этого уравнения коэффициент у X - 7, а у Y - 6
их частное - это
5x + 7y + 14 = 0
Тут коэффициенты X, Y это 5 и 7
их частное -
8x + 6y + 19 = 0
Тут коэффициенты X, Y это 8 и 6
их частное -
сократим дробь на 2, получим
15x + 21y + 22 = 0
Тут коэффициенты X, Y это 15 и 21
их частное -
сократим дробь на 3, получим
10x + 14y + 4 = 0
Тут коэффициенты X, Y это 10 и 14
их частное -
сократим дробь на 2, получим
И того у нас получилось 3 равные дроби, это и есть те уравнения.
5x + 7y + 14 = 0
15x + 21y + 22 = 0
10x + 14y + 4 = 0