Осуществить циклический сдвиг элементов массива влево на К позиций (Delphi)

[ALEXandr20333]

Дан массив А размера N и целое число К (1<=K<=4,K<N).Осуществить циклический сдвиг элементов массива влево на К позиций (при этом AN перейдет в AN-K,AN-1 -в AN-K-1,...,A1 -в AN-K+1). Допускается использовать вспомогательный массив из 4 элементов.

[BDA]

Алгоритм:
Сохраняем первые K элементов в вспомогательный массив
В цикле записываем в первые N - K ячеек нужные (a[i] := a[i + k])
Записываем в конец массива элементы из вспомогательного массива

Что не получается?

[ALEXandr20333]

НЕ получается если можете скиньте полностью код

[doktor255]

Что именно не получается?

[ALEXandr20333]

как хотя бы код будет выглядеть

[ALEXandr20333]

код я нашел помогите переделать в делфи

var
a: array [1..10] of real;
temp: array [1..4] of real; // вспомогательный массив 
k,N:integer;
i:integer; // счетчик в цикле 
begin
// ввод данных 
writeln('Введите N (N<=10)');
readln(N);
writeln('Введите k ((1 <= K <= 4, K< N))');
readln(k);
writeln('Значения массива А');
// формирование исходного массива 
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение 
for i:=1 to k do begin temp[i]:=a[i]; end; // копируем значения первых к элементов 
for i:=1 to n-k do begin a[i]:=a[i+k]; end; // присвоение значения текущему элементу 
for i:=1 to k do begin a[n-k+i]:=temp[i]; end; // вставляем скопированные значения 
// вывод результата 
Writeln('Ответ');
Writeln;
Write(' A[]: '); for i:=1 to n do Write(A[i],' ');
end.

[Stilet]

Эм... Это как-бы подходит для Делфи полностью. Его не нужно переделывать. подставь в консольный тип программы и запускай.

[ALEXandr20333]

мне не нужно в консоле а так чтобы форма была

[Stilet]

Ну и народ пошел... В СССР таких студентов давно бы в армии муштрували.
Хорошо. Вот код оконного приложения:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
a: array [1..10] of real;
temp: array [1..4] of real; // вспомогательный массив
k,N:integer;
i:integer; // счетчик в цикле
begin
// ввод данных
N:=StrToIntDef(InputBox('Введите N (N<=10)','',''),0);
k:=StrToIntDef(InputBox('Введите k ((1 <= K <= 4, K< N))','',''),0);
// формирование исходного массива
for i:=1 to n do begin A[i]:=StrToInt(InputBox(format('a[%d]',[i]),'','0')); end;
// решение
for i:=1 to k do begin temp[i]:=a[i]; end; // копируем значения первых к элементов
for i:=1 to n-k do begin a[i]:=a[i+k]; end; // присвоение значения текущему элементу
for i:=1 to k do begin a[n-k+i]:=temp[i]; end; // вставляем скопированные значения
// вывод результата
for i:=1 to n do ListBox1.Items.Append(Format('%10.2f',[A[i]]);

end;

end.