Question

Перевести из языка Си++ в Паскаль #include #include #include #include #include using namespace std; int main(){ srand(time(NULL)); int n; cin»n; int mass[n][n]; int mass1[n][n]; for(int i=0; i for(int j=0; j mass[i][j]=rand()%10*pow(-1,rand()%2); cout«setw(4)«mass[i][j]«' '; } cout«endl; } cout«endl; for(int i=0;i for(int j=0; j mass1[j][n-1-i]=mass[i][j]; } } for(int i=0; i for(int j=0; j cout«setw(4)«mass1[i][j]; if(mass1[i][j]>0){ mass1[i][j]=1; } } cout«endl; } cout«endl; for(int i=0; i for(int j=0; j cout«setw(4)«mass1[i][j]; } cout«endl; } return 0; }

Answer 1

// PascalABC.NET 3.6

begin

 var n:= ReadInteger;

 var a := MatrRandom(n, n, -99, 99);

 var b := new integer[n,n];

 a.Println;

 Writeln;

 for var i := 0 to n-1 do

   b.SetCol(n - i - 1, a.Row(i));

 b.Transform(t -> t > 0 ? 1 : t);

 a := b;

 a.Println

end.

Answer 2

Вот перевод данного кода на язык Паскаль:

pascalCopy code
program Main;
uses crt;
const
  n = 10;
var
  i, j: integer;
  mass, mass1: array[1..n, 1..n] of integer;
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      mass[i,j] := random(10) * integer(random(2) = 0);
      write(mass[i,j]:4, ' ');
    end;
    writeln;
  end;
  writeln;
  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      mass1[j, n - i + 1] := mass[i,j];
    end;
  end;
  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(mass1[i,j]:4);
      if mass1[i,j] > 0 then
        mass1[i,j] := 1;
    end;
    writeln;
  end;
  writeln;
  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(mass1[i,j]:4);
    end;
    writeln;
  end;
  
  readkey;
end.

Обратите внимание, что в Паскале индексация массивов начинается с 1, поэтому в коде были внесены соответствующие изменения. Также я добавил использование модуля crt для использования функции readkey, чтобы программа ожидала нажатия клавиши перед закрытием окна.