Получить целочисленную матрицу по правилу - Turbo Pascal (33699)
Формулировка задачи:
!!!
Решение задачи: «Получить целочисленную матрицу по правилу»
textual
Листинг программы
uses crt; const n=3; var b:array[1..n,1..n] of integer; a:array[1..n] of integer; i,j:byte; begin clrscr; writeln('Введите 3 целых числа'); for i:=1 to n do readln(a[i]); writeln('Матрица B'); for i:=1 to n do begin for j:=1 to n do begin b[i,j]:=a[i]-3*a[j]; write(b[i,j]:5) end; writeln end; readln end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с потоками ввода-вывода.
- Затем определяется константа n, которая равна 3. Эта переменная будет использоваться для определения размера матрицы.
- Далее объявляются две переменные: b и a. Переменная b является матрицей, которая будет использоваться для хранения результатов вычислений, а переменная a - исходная матрица, которую мы будем изменять. Обе переменные объявлены как массивы целых чисел, и их размерность задана как 1..n, где n - это константа, определенная ранее.
- Затем объявляются две переменные типа byte: i и j. Они будут использоваться для итерации по матрице.
- Выводится сообщение «Введите 3 целых числа», чтобы пользователь мог ввести три числа.
- Далее выводится сообщение «Матрица B», чтобы пользователь знал, что будет выведена следующая матрица.
- Затем начинается цикл for, который выполняется для каждой строки матрицы. Внутри этого цикла также начинается вложенный цикл for, который выполняется для каждой строки матрицы.
- Вложенный цикл for обрабатывает каждый элемент матрицы. Для каждого элемента вычисляется значение b[i,j], которое равно разности значений a[i] и 3*a[j]. Это значение затем выводится на экран с помощью функции write.
- После окончания вложенного цикла выводится символ новой строки с помощью функции writeln.
- В конце цикла for выводится символ новой строки с помощью функции writeln.
- Код завершается вызовом функции readln, чтобы пользователь мог ввести следующую команду.