Помогите с кодом на Delphi

[Serge_Bliznykov]

второй способ сложнее. именно для понимания (и отладки)
вот реализация:

  AllReadyIndex : integer;
  T1, T2 : Titem;
...
      writeln('sdvig massiva na k');
      write('vvedite k '); readln(k);
      if High(A) > 0 then
        K := K mod (High(A)-Low(A)+1);

      {циклический сдвиг массива вправо на K }
      jNew := Low(A);
      T1 := A[j];
      AllReadyIndex := jNew;
      for i:=Low(A) to High(A) do begin
        jNew := (jNew+k) mod  (High(A)-Low(A)+1);
        if (jNew = AllReadyIndex) and (i<High(A)) then begin
          A[jNew] := T1;
          jNew := jNew + 1;
          AllReadyIndex := jNew;
          T2 := A[jNew];
        end
        else begin
          T2 := A[jNew];
          A[jNew] := T1;
        end;
        T1 := T2;
      end;

      {вывод массива, чтобы убедиться, что сдвинулось правильно}
      writeln('Massiv A posle sdviga:');
      if High(A) > 0 then
        for i := Low(A) to High(A) do
          Write(A[i], ' ');
      WriteLn;
...

[Saka]

а первый можете еще раз расписать пожалуйста

[Serge_Bliznykov]

а первый можете еще раз расписать пожалуйста

ох... пользуетесь Вы моей добротой...

  procedure ShiftArrayRight(var AA : Tdar);
  var i : integer;
      T : Titem;
  begin
    T := AA[High(AA)];
    for i:=High(AA) downto Low(AA)+1 do
      AA[i] := AA[i-1];
    AA[Low(AA)] := T
  end;

.....

      writeln('sdvig massiva na k');
      write('vvedite k '); readln(k);
      if High(A) > 0 then
        K := K mod (High(A)-Low(A)+1);

      {циклический сдвиг массива вправо на K }
      for i:=1 to K do
        ShiftArrayRight( A );

[Saka]

пожалуйста напишите не через процедуры первый способ, я их не знаю пока

[Serge_Bliznykov]

это ж совсем просто..

      {циклический сдвиг массива вправо на K }
      for i:=1 to K do begin
        T1 := A[High(A)];
        for j := High(A) downto Low(A)+1 do
           A[j] := A[j-1];
        A[Low(A)] := T1
      end;

[Saka]

Вот сам код проги, вот только после сдвига бред выдает. незнаю причину

program Project11;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
Titem=longint;
TDar=array of Titem;
Var
x,T1,w,p,n,k,j,i:longint;
c,A,B:Tdar;
T:Titem;
fl:boolean;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
Begin
repeat
  writeln('Vvedite kol-vo elementov'); readln(n);
until n>0;
setLength(A,n);
i:=Low(A);
randomize;
repeat
A[i]:=random(100);
inc(i);
until i>High(A);
writeln('Massiv A');
if High(A)>=0 then
for i := Low(A) to High(A) do
  Write(A[i],' ') else
writeln('there are no elements');
writeln;
i:=Low(A);
k:=0;
repeat
begin
  inc(k);
Setlength(B,k);
B[k-1]:=A[i];
End;
inc(i);
until i>High(A);
writeln('Massiv B iz A:');
if High(b)>=0 then
 for i:=Low(B) to High(B) do
write(B[i],' ')
else
begin
write('there are no elements');
readln;
End;
writeln;


      for i:=Low(A) to High(A) do
      begin
        x := A[i];
        while (x > 0) do
        begin
          N := x mod 10;
          x := x div 10;
          if (n=5) then begin
            A[i] := 0;
            x := 0; {это чтобы выйти из цикла}
          end;
        end;
      end;

for i:=Low(B) to High(B) do
write(A[i],' ');
writeln;

  end;
  readln;
writeln('vvedite k');
readln(k);
for i:=1 to k do
T1 := A[High(A)];
        for j := High(A) downto Low(A)+1 do
           A[j] := A[j-1];
        A[Low(A)] := T1;
        for i:=1 to n do        write(A[i],' ');
  finally

  end;
readln;
end.

[Serge_Bliznykov]

begin end потеряли! в цикле выполнялась только одна строка!!!

for i:=1 to k do
begin
  T1 := A[High(A)];
        for j := High(A) downto Low(A)+1 do
           A[j] := A[j-1];
        A[Low(A)] := T1;
end;

а потом уже вывод результата:

      writeln('Massiv A posle sdviga:');
      if High(A) > 0 then
        for i := Low(A) to High(A) do
          Write(A[i], ' ');
      WriteLn;

p.s. а зачем Вы использовали блок try ... finally !?!? o_O

[Saka]

Спасибо огромное за помощь)))