Необходимо написать программу сложения двух матриц произвольной размерности, предусмотреть проверку возможности сложения?

Meyrashnargiz 27 июл. 2020 г., 06:39:14

Type mass = array[1.

10, 1.

10] of real ;

var a, b, c : mass ; n, m, i, j, n1, m1 : integer ;

procedure MatrA(var a : mass) ;

var i, j : integer ;

begin for i : = 1 to n do for j : = 1 to m do begin writeln('a[', i, ', ', j, '] : ') ; readln(a[i, j]) end

end ;

procedure MatrB(var b : mass) ;

var i, j : integer ;

begin for i : = 1 to n1 do for j : = 1 to m1 do begin writeln('b[', i, ', ', j, '] : ') ; readln(b[i, j]) end

end ;

procedure Sum(a, b : mass ; var c : mass) ;

var i, j : integer ;

begin for i : = 1 to n do for j : = 1 to m do c[i, j] : = a[i, j] + b[i, j] ;

end ;

begin writeln('Введите n, m матрицы A') ; readln(n, m) ; MatrA(a) ; writeln('Введите n, m матрицы B') ; readln(n1, m1) ; MatrB(b) ; if (n1 < ; > ; n) and (m1 < ; > ; m) then writeln('Матрицы сложить нельзя') else begin Sum(a, b, c) ; writeln('A + B') ; for i : = 1 to n do begin for j : = 1 to m do write(c[i, j] : 1 : 3, ' ') ; writeln end end ; readln ;

end.

Komarik21 24 июл. 2020 г., 19:43:53 | 10 - 11 классы

Где ошибка?

Где ошибка?

Const n = 10 ; type TMas = array[1.

N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; end.

Wasy05091996 14 мар. 2020 г., 19:06:37 | 10 - 11 классы

Var s, k : integer ; begin s : = 1 ; for k : = 1 to 7 do s : = s + k ; writeln (s) ; end?

Var s, k : integer ; begin s : = 1 ; for k : = 1 to 7 do s : = s + k ; writeln (s) ; end.

Марина24 24 сент. 2020 г., 06:31:21 | 10 - 11 классы

Помогите найти ошибку в программе?

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

Умножение двумерного массива.

Pas(29) : Нельзя преобразовать тип integer к array [1.

100] of array [1.

100] of integer.

Вот сама программа : умножение матриц в обратном порядке, т.

Е первый элемент на последний, второй на предпоследний и.

Т. д.

Var x : integer ; a1 : array[1.

100, 1.

100] of integer ; a2 : array[1.

100, 1.

100] of integer ; a3 : array[1.

100, 1.

100] of integer ; i, j, m, n : integer ; begin writeln('Введите размер матрицы') ; readln(m, n) ; for i : = 1 to m do begin for j : = 1 to n do end ; begin writeln('Введите элементы первой матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a1[i, j]) ; end ; end ; begin writeln('Введите элементы второй матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a2[i, j]) ; end ; end ; begin a3 : = a1[i, j] * a2[x + 1 - i, x + 1 - j] ; for i : = 1 to m do begin for j : = 1 to n do readln(a3[i, j]) ; end ; writeln ; end ; readln ; end.

ЗАРАНЕЕ СПАСИБО!

Kachkova 26 авг. 2020 г., 10:19:10 | 10 - 11 классы

Помогите составить блок схему хотя бы по процедуре uses crt ; type mass = array[1?

Помогите составить блок схему хотя бы по процедуре uses crt ; type mass = array[1.

10, 1.

10] of integer ; procedure zam(n, j : integer ; var a : mass ; m, k, l : integer) ; var i, f : integer ; begin m : = a[1, j] ; for i : = 1 to n do if (m> ; a[i, j])or(m = a[i, j]) then begin m : = a[i, j] ; k : = i ; l : = j ; end ; writeln(m) ; if m< ; > ; a[1, j] then begin f : = a[1, j] ; a[1, j] : = a[k, l] ; a[k, l] : = f ; end ; end ; var a, b : mass ; i, j, k, l, n, m : integer ; begin randomize ; readln(n) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do begin a[i, j] : = random(9) + 1 ; write(a[i, j] : 3) ; end ; end ; writeln ; for j : = 1 to n do zam(n, j, a, m, k, l) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do write(a[i, j] : 3) ; end ; writeln ; for i : = 1 to n do begin writeln ; for j : = 1 to n do begin b[i, j] : = random(9) + 1 ; write(b[i, j] : 3) ; end ; end ; writeln ; for j : = 1 to n do zam(n, j, b, m, k, l) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do write(b[i, j] : 3) ; end ; writeln ; end.

TasyaSnow 22 дек. 2020 г., 12:59:22 | 5 - 9 классы

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ?

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ' ', b) ; end.

Sonyatoropchina 24 мар. 2020 г., 12:41:52 | 10 - 11 классы

Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ]?

Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ].

Вот программа : program yyy ; function prost(var x : integer) : boolean ; var k, i : integer ; t : boolean ; begin t : = true ; k : = 0 ; for i : = 1 to x do begin if x mod i = 0 then k : = k + 1 ; end ; if k = 2 then t : = true else t : = false ; prost : = t end ; var n, m, i : integer ; begin writeln('1') ; readln(n) ; writeln('2') ; readln(m) ; for i : = n to m - 1 do begin if prost(i) and prost(i + 2) then writeln(i , (i + 2)) ; end ; end.

852741963987 17 сент. 2020 г., 19:17:23 | 10 - 11 классы

Procedure P(x ; var y : integer) ; begin y : = x + 1 end ; procedure Q(x : integer ; var y : integer) ; begin y : = x + 1 end ; procedure R(x, y : integer) ; begin y : = x + 1 end ; Для каждой из проц?

Procedure P(x ; var y : integer) ; begin y : = x + 1 end ; procedure Q(x : integer ; var y : integer) ; begin y : = x + 1 end ; procedure R(x, y : integer) ; begin y : = x + 1 end ; Для каждой из процедур определите, какие из ее параметров являются параметрами - переменными.

В ответ введите суммарное количество параметров - переменных для этих трех процедур.

Пример ввода ответа : 3.

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

USES Crt ; const N = 10 ; VAR A : array[1?

USES Crt ; const N = 10 ; VAR A : array[1.

N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.

Djekson2014 30 дек. 2020 г., 03:36:50 | 5 - 9 классы

Var s, k : integer ; Begin s : = 100 ; for k : = 2 to 7do s : = s + 1 ; writeln(s) ; End?

Var s, k : integer ; Begin s : = 100 ; for k : = 2 to 7do s : = s + 1 ; writeln(s) ; End.

Bk25 19 окт. 2020 г., 06:46:31 | 5 - 9 классы

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End?

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End.

2) Var s, k : integer ; Begin s : = 0 ; for k : = 1 to 11 do s : = s + 12 ; write(s) ; End.

3) var s, k : integer ; begin s : = 100 ; for k : = 0 to 10 do s : = s - 5 ; writeln (s) ; end.