Получить целочисленную матрицу по правилу - 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.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с потоками ввода-вывода.
  2. Затем определяется константа n, которая равна 3. Эта переменная будет использоваться для определения размера матрицы.
  3. Далее объявляются две переменные: b и a. Переменная b является матрицей, которая будет использоваться для хранения результатов вычислений, а переменная a - исходная матрица, которую мы будем изменять. Обе переменные объявлены как массивы целых чисел, и их размерность задана как 1..n, где n - это константа, определенная ранее.
  4. Затем объявляются две переменные типа byte: i и j. Они будут использоваться для итерации по матрице.
  5. Выводится сообщение «Введите 3 целых числа», чтобы пользователь мог ввести три числа.
  6. Далее выводится сообщение «Матрица B», чтобы пользователь знал, что будет выведена следующая матрица.
  7. Затем начинается цикл for, который выполняется для каждой строки матрицы. Внутри этого цикла также начинается вложенный цикл for, который выполняется для каждой строки матрицы.
  8. Вложенный цикл for обрабатывает каждый элемент матрицы. Для каждого элемента вычисляется значение b[i,j], которое равно разности значений a[i] и 3*a[j]. Это значение затем выводится на экран с помощью функции write.
  9. После окончания вложенного цикла выводится символ новой строки с помощью функции writeln.
  10. В конце цикла for выводится символ новой строки с помощью функции writeln.
  11. Код завершается вызовом функции readln, чтобы пользователь мог ввести следующую команду.

Оцени полезность:

10   голосов , оценка 3.5 из 5
Похожие ответы