• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Массив. Pascal или Java

  • Автор темы Автор темы Rival
  • Дата начала Дата начала
R

Rival

Новые
Регистрация
16 Фев 2013
Сообщения
17
Реакции
0
Баллы
0
Массив. Pascal или Java

Помогите пожалуйста решить задание.
Вводиться с консоли массив n на m. И вводится K шагов. Внешние элементы массива должны сдвигаться по часовой стрелке на эти K шагов.
Наглядно изображено на фото.
 

Вложения

  • 20130620_184628.webp
    20130620_184628.webp
    39.4 KB · Просмотры: 146
Rival написал(а):
Помогите пожалуйста решить задание.
Вводиться с консоли массив n на m. И вводится K шагов. Внешние элементы массива должны сдвигаться по часовой стрелке на эти K шагов.
Наглядно изображено на фото.
Нажмите для раскрытия...
Вот... извольте. На Паскале:
Код: 
Const
 N=10;
 M=8;

Type
 Matr=Array[1..N,1..M] of Byte;
 Lin=Array[1..(2*(N-1))+(2*(M-1))] of Byte;

Var
 A,B:Matr;
 V,W:Lin;
 i,j,K:Byte;

Function M_L(C:Matr):Lin;
var
 q,p,r:byte;
begin
 r:=0;
 For p:=1 to M do
  begin
   Inc(r);
   M_L[r]:=C[1,p];
  end;
 For q:=2 to N do
  begin
   Inc(r);
   M_L[r]:=C[q,M];
  end;
 For p:=M-1 downto 1 do
  begin
   Inc(r);
   M_L[r]:=C[N,p];
  end;
 For q:=N-1 downto 2 do
  begin
   Inc(r);
   M_L[r]:=C[q,1];
  end;
end;

Function L_M(C:Lin;T:Matr):Matr;
var
 q,p,r:byte;
 Y:Matr;
begin
 Y:=T;
 r:=0;
 For p:=1 to M do
  begin
   Inc(r);
   Y[1,p]:=C[r];
  end;
 For q:=2 to N do
  begin
   Inc(r);
   Y[q,M]:=C[r];
  end;
 For p:=M-1 downto 1 do
  begin
   Inc(r);
   Y[N,p]:=C[r];
  end;
 For q:=N-1 downto 2 do
  begin
   Inc(r);
   Y[q,1]:=C[r];
  end;
 L_M:=Y;
end;

Function Shift(S:Lin;D:Byte):Lin;
var
 q,p,X:Byte;
 S1:Lin;
begin
 S1:=S;
 for p:=1 to D do
  begin
   X:=S1[2*(N-1)+2*(M-1)];
   for q:=(2*(N-1))+(2*(M-1))-1 downto 1 do S1[q+1]:=S1[q];
   S1[1]:=X;
  end;
 Shift:=S1;
end;

Begin
 Randomize;
 For i:=1 to N do
  begin
   For j:=1 to M do
    begin
     A[i,j]:=Random(256);
     Write(A[i,j]:6);
    end;
   Writeln;
  end;
 Writeln;
 Write('K= ');
 Readln(K);
 V:=M_L(A);
 W:=Shift(V,K);
 B:=L_M(W,A);
 For i:=1 to N do
  begin
   For j:=1 to M do Write(B[i,j]:6);
   Writeln;
  end;
 Readln
End.
 
Спс большое.
 
На этой строке
Код: 
M_L[r]:=C[1,p];
пишет: неверное количество фактических параметров.
 
Rival написал(а):
На этой строке
M_L[r]:=C[1,p];
пишет: неверное количество фактических параметров.
Нажмите для раскрытия...
Так, ну начинаются пляски с бубном вокруг дурных трансляторов. Естественно, программа перед выкладыванием была тщательно оттестирована. Вот результат, как есть:
AA01.webp
Хорошо, сейчас попробую одну пилюлю: может быть и поможет.
 
Вот, попробуйте так:
Код: 
Const
 N=10;
 M=8;

Type
 Matr=Array[1..N,1..M] of Byte;
 Lin=Array[1..(2*(N-1))+(2*(M-1))] of Byte;

Var
 A,B:Matr;
 V,W:Lin;
 i,j,K:Byte;

Function M_L(C:Matr):Lin;
var
 q,p,r:byte;
 G:Lin;
begin
 r:=0;
 For p:=1 to M do
  begin
   Inc(r);
   G[r]:=C[1,p];
  end;
 For q:=2 to N do
  begin
   Inc(r);
   G[r]:=C[q,M];
  end;
 For p:=M-1 downto 1 do
  begin
   Inc(r);
   G[r]:=C[N,p];
  end;
 For q:=N-1 downto 2 do
  begin
   Inc(r);
   G[r]:=C[q,1];
  end;
 M_L:=G;
end;

Function L_M(C:Lin;T:Matr):Matr;
var
 q,p,r:byte;
 Y:Matr;
begin
 Y:=T;
 r:=0;
 For p:=1 to M do
  begin
   Inc(r);
   Y[1,p]:=C[r];
  end;
 For q:=2 to N do
  begin
   Inc(r);
   Y[q,M]:=C[r];
  end;
 For p:=M-1 downto 1 do
  begin
   Inc(r);
   Y[N,p]:=C[r];
  end;
 For q:=N-1 downto 2 do
  begin
   Inc(r);
   Y[q,1]:=C[r];
  end;
 L_M:=Y;
end;

Function Shift(S:Lin;D:Byte):Lin;
var
 q,p,X:Byte;
 S1:Lin;
begin
 S1:=S;
 for p:=1 to D do
  begin
   X:=S1[2*(N-1)+2*(M-1)];
   for q:=(2*(N-1))+(2*(M-1))-1 downto 1 do S1[q+1]:=S1[q];
   S1[1]:=X;
  end;
 Shift:=S1;
end;

Begin    
 Randomize;
 For i:=1 to N do
  begin
   For j:=1 to M do
    begin
     A[i,j]:=Random(256);
     Write(A[i,j]:6);
    end;
   Writeln;
  end;
 Writeln;
 Write('K= ');
 Readln(K);
 V:=M_L(A);
 W:=Shift(V,K);
 B:=L_M(W,A);
 For i:=1 to N do
  begin
   For j:=1 to M do Write(B[i,j]:6);
   Writeln;
  end;
 Readln;
End.
 
Спс, все работает
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху