Нужна помощь с задачей на паскале: сдвиг массива по синусоиде

[Ddradok]

Проблема следующая; нужно переделать программу под сдвиг массива не на определённое кол-во символов ,а чтобы сдвиг происходил по синусойде, вот сама программаrogram daniil;

uses crt;
const n=10;
VAR
A,B:Array [0..n] of Byte;
k:ShortInt;
i,j,m   :integer;
ee   :real;
BEGIN
clrscr;
Writeln('kolichestvo sdvinutbix simvolov');
readln(k);
A[1]:=0;For i:=2 to n do A[i]:=0;
For i:=1 to n do Write(A[i]:1);
for j:=1 to k do
 begin
 For i:=1 to n do
  begin
  A[j]:=1;
  Write(A[i]:1);
  end;
  for i:=1 to 1000 do ee:=cos(i)+cos(i)+cos(i)+cos(i)+cos(i)+cos(i)+cos(i)+cos(i);

  gotoXY(1,5);
  For i:=1 to n do A[i]:=0;
end;

Writeln;
Writeln;
Writeln;
Readln;
END.

[type_Oleg]

Сразу вопрос, что это ?

for i:=1 to 1000 do ee:=cos(i)+cos(i)+cos(i)+cos(i)+cos (i)+cos(i)+cos(i)+cos(i);

Просто для задержки времени ?

[Ddradok]

вы правы

[type_Oleg]

Просто я не обнаружил в этой программе больше никакого смысла.
Поэтому вам надо не переделывать, просто написать за вас программу.
Это - в раздел фриланс.

[type_Oleg]

Пока не напишите, что именно надо, никто не поможет.
Во-первых, массив чего? Массив символов как в начале написано, или массив байтов (чисел) , как в коде программы - A,B:Array [1..N] of Byte;
Во-вторых, что значит .. по синусойде. ?

Приведите пример. Например, был массив такой-то - .....
Должен получиться такой-то - .....

[Stilet]

Во-вторых, что значит .. по синусойде. ?

А он скорее всего и сам не в курсе. Ивэл Тичер ему вброс сделал, мол "Решайте задачу или платите мне миллион баксов", вот и мается паря