Из двух матриц сформировать третью - Turbo Pascal
Формулировка задачи:
Заданы две матрицы A и B размерности NxN. Сформировать из них прямоугольную матрицу X размером , включая в первые N столбцов матрицу A, в следующие – матрицу B
Решение задачи: «Из двух матриц сформировать третью»
textual
Листинг программы
uses crt; const n=5; var a,b:array [1..n,1..n] of integer; x:array [1..n,1..2*n] of integer; i,j:integer; begin clrscr; randomize; writeln('Matrica A:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(88)+10; write(a[i,j],' '); end; writeln; end; writeln('Matrica B:'); for i:=1 to n do begin for j:=1 to n do begin b[i,j]:=random(33)+10; write(b[i,j],' '); end; writeln; end; writeln('Matrica X:'); for i:=1 to n do for j:=1 to n do begin x[i,j]:=a[i,j]; x[i,n+j]:=b[i,j]; end; for i:=1 to n do begin for j:=1 to 2*n do write(x[i,j],' '); writeln; end; readkey; end.
Объяснение кода листинга программы
- Создаются три переменные типа array: a, b и x.
- Переменным a и b присваиваются значения, соответствующие двум матрицам.
- Переменная x формируется путем объединения матриц a и b.
- Выводится первая матрица a.
- Выводится вторая матрица b.
- Выводится третья матрица x.
- Выполняется цикл по каждой ячейке матрицы x.
- Внутри цикла значение каждой ячейки матрицы x сравнивается с случайным числом от 10 до 88 для первой части и от 10 до 33 для второй части.
- Если значения совпадают, то они выводятся на экран.
- После завершения цикла выводится символ новой строки.
- Запрашивается нажатие клавиши.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д