主页 / 问题 / 1141851
Accepted
Ilya Filimonov
Asked:2020-06-17 00:18:20 +0000 UTC2020-06-17 00:18:20 +0000 UTC

开发一个程序，找出原始矩阵 A 的所有元素的立方

  • 772

给定一个实数类型 A(2,7) 的矩阵。开发一个程序，求原始矩阵A的所有元素的立方。显示结果矩阵 下面是代码，但由于某种原因没有显示原始矩阵

program Project1;
const
  maxrow = 2;
  maxcol = 7;
var
  a: array[1..maxrow,1..maxcol] of real; { Переменная для хранения массива.}
  i,j: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  for i:= 1 to maxrow do
    for j:= 1 to maxcol do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(a[i,j]);         { Ввод значений в двумерный массив.}
    end;
  writeln('Исходная матрица: ');
  for i:= 1 to maxrow do
    begin
      for j:= 1 to maxcol do
        write(a[i,j]:7:2);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  writeln('Измененная матрица (каждый элемент возведен в куб): ');
  for i:= 1 to maxrow do
    begin
      for j:= 1 to maxcol do
        begin
          a[i,j]:= a[i,j]*a[i,j]*a[i,j]; { Вычисление куба элемента}
          end;
          Writeln;
    end;
  Readln;
end.
pascal

1 个回答

  1. Best Answer

    一切都为我打印出来...................... https://onlinegdb.com/SybS-d8a8

    现在也是立方体

    program Project1;
const
  maxrow = 2;
  maxcol = 7;
var
  a: array[1..maxrow,1..maxcol] of real; { Переменная для хранения массива.}
  i,j: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  for i:= 1 to maxrow do
    for j:= 1 to maxcol do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(a[i,j]);         { Ввод значений в двумерный массив.}
    end;
  writeln('Исходная матрица: ');
  for i:= 1 to maxrow do
    begin
      for j:= 1 to maxcol do
        write(a[i,j]:7:2);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  writeln('Измененная матрица (каждый элемент возведен в куб): ');
  for i:= 1 to maxrow do
    begin
      for j:= 1 to maxcol do
        begin
          a[i,j]:= a[i,j]*a[i,j]*a[i,j]; { Вычисление куба элемента}
          write(a[i,j]:7:2);
        end;
   
        Writeln;
    end;
  Readln;
end.
    • 1

相关问题