Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Массив. Pascal или Java (http://www.tehnari.ru/f41/t89109/)

Rival 20.06.2013 14:49
Массив. Pascal или Java
 
Вложений: 1
Помогите пожалуйста решить задание.
Вводиться с консоли массив n на m. И вводится K шагов. Внешние элементы массива должны сдвигаться по часовой стрелке на эти K шагов.
Наглядно изображено на фото.

Vladimir_S 20.06.2013 16:22
Цитата:
Сообщение от Rival (Сообщение 920029)
Помогите пожалуйста решить задание.
Вводиться с консоли массив 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.

Rival 20.06.2013 16:25
Спс большое.

Rival 20.06.2013 16:28
На этой строке
Код:
M_L[r]:=C[1,p];
пишет: неверное количество фактических параметров.

Vladimir_S 20.06.2013 17:15
Вложений: 1
Цитата:
Сообщение от Rival (Сообщение 920066)
На этой строке
M_L[r]:=C[1,p];
пишет: неверное количество фактических параметров.
Так, ну начинаются пляски с бубном вокруг дурных трансляторов. Естественно, программа перед выкладыванием была тщательно оттестирована. Вот результат, как есть:
Вложение 141795
Хорошо, сейчас попробую одну пилюлю: может быть и поможет.

Vladimir_S 20.06.2013 17:20
Вот, попробуйте так:
Код:
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.

Rival 20.06.2013 17:25
Спс, все работает

Vladimir_S 20.06.2013 17:28
Цитата:
Сообщение от Rival (Сообщение 920073)
Спс, все работает
Пркрсн! Пжлст.


Часовой пояс GMT +4, время: 06:01.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.