Автор: Bronislav

Bronislav — Wed, 10 Oct 2018 21:51:48 +0000

Строка 34 вместо j нужно i. Строка 35 вместо i нужно j. Добавьте этот кусок перед выводом и ваша программа будет работать.

if Odd(m) then
  for j := 1 to m div 2 do
    Swap(a[m div 2 + 1, j], a[m div 2 + 1, m - j + 1]);

if Odd(m) then

for j := 1 to m div 2 do

Swap(a[m div 2 + 1, j], a[m div 2 + 1, m - j + 1]);

Автор: Kirk

Kirk — Sun, 14 May 2017 05:46:25 +0000

program m98;

type 
 matrix = array [1..10,1..10] of real;
 
var
 a: matrix;
 m,i,j,k: integer;
 x: real;

begin
randomize;
 m:=random(8)+2;
 writeln('M=',m);
 writeln();
 for i:=1 to m do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random*10;
     write(a[i,j]:6:2);
    end;
   writeln();
  end;
 writeln();
 
 for i:=1 to m do
  for j:=1 to m do
   begin
    inc(k);
     if (k<=sqr(m) div 2) then
      begin  
       x:=a[i,j];
       a[i,j]:=a[m-i+1,m-j+1];
       a[m-i+1,m-j+1]:=x;
      end;
    end;
   
 for i:=1 to m do
  begin
   for j:=1 to m do write(a[i,j]:6:2);
   writeln();
  end;
end.

program m98;

type

matrix = array [1..10,1..10] of real;

var

a: matrix;

m,i,j,k: integer;

x: real;

begin

randomize;

m:=random(8)+2;

writeln('M=',m);

writeln();

for i:=1 to m do

begin

for j:=1 to m do

begin

a[i,j]:=random*10;

write(a[i,j]:6:2);

end;

writeln();

end;

writeln();

for i:=1 to m do

for j:=1 to m do

begin

inc(k);

if (k<=sqr(m) div 2) then

begin

x:=a[i,j];

a[i,j]:=a[m-i+1,m-j+1];

a[m-i+1,m-j+1]:=x;

end;

for i:=1 to m do

begin

for j:=1 to m do write(a[i,j]:6:2);

writeln();

end;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix98

Автор: Bronislav

Автор: Kirk