Даны 3 матрицы а, b, c. сформировать 3 матрицы: а*в а*с в*с матрицы вводятся с клавиатуры решить с процедуры или функции (pascal)
231
302
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! function readmatrix(c: char; m,n: integer): array[,] of real; begin writeln('вводите элементы матрицы ',c,' построчно'); result: =readmatrreal(m,n); end; function matprod(a,b: array[,] of real): array[,] of real; begin var (m,n): =(a.rowcount,a.colcount); result: =new real[m,n]; for var i: =0 to m-1 do for var j: =0 to n-1 do result[i,j]: =a[i,j]*b[i,j] end; begin var (m,n): =readinteger2('количество строк и столбцов в матрицах: '); var a: =readmatrix('a',m,n); var b: =readmatrix('b',m,n); var c: =readmatrix('c',m,n); var ab: =matprod(a,b); writeln('*** a*b ***'); ab.print(8,4); writeln(8*n*'-'); var ac: =matprod(a,c); writeln('*** a*c ***'); ac.print(8,4); writeln(8*n*'-'); var bc: =matprod(b,c); writeln('*** b*c ***'); bc.print(8,4) end. пример количество строк и столбцов в матрицах: 3 4 вводите элементы матрицы a построчно 2.1 3.2 -1.7 4 -2 0 6.1 0.3 0.2 1.7 -2 0.5 вводите элементы матрицы b построчно 1 2 3 4 5 6 7 8 -1 -2 -3 -4 вводите элементы матрицы c построчно 8.3 2.12 5.7 0 3.9 7.7 4 1 -1 -2 5.2 -0.9 *** a*b *** 2.1000 6.4000 -5.1000 16.0000 -10.0000 0.0000 42.7000 2.4000 -0.2000 -3.4000 6.0000 -2.0000 *** a*c *** 17.4300 6.7840 -9.6900 0.0000 -7.8000 0.0000 24.4000 0.3000 -0.2000 -3.4000-10.4000 -0.4500 *** b*c *** 8.3000 4.2400 17.1000 0.0000 19.5000 46.2000 28.0000 8.0000 1.0000 4.0000-15.6000 3.6000
1) c. знак плюс. 2) в. shortint. 3) d. string. 4) судя по предложенным вариантам - c. 4, есть такой, но real, например, 8 байт. 5) а. 3,5 нельзя через запятую. 6) c. var. 7) c. var a,b: integer; c: real. 8) d. a: =164. 9) c. b: =6.06. 10) a. c: ='informatika'. 11) d. d: ='c'.
Популярно: Информатика
-
hamidullinelnar08.07.2021 12:12
-
korolinkot14.05.2021 07:11
-
maksim39306.12.2020 15:38
-
Персик1лайм24.07.2021 18:55
-
Гриимитсичень25.04.2022 01:24
-
ruslanlezgi21.04.2021 23:09
-
asilwa119007.04.2022 11:02
-
единорогкрейзимайт14.07.2022 10:56
-
anzhelabrosg04.09.2021 09:31
-
stentani9703.06.2021 22:59