написать программу, которая должна печатать слово, полученное из исходного циклическим сдвигом его букв на N символов влево

[Наталья1991]

требуется написать программу, которая должна печатать слово, полученное из исходного циклическим сдвигом его букв на N символов влево. Будем называть словом любую последовательность букв латинского алфавита A-Z,a-z. При циклическом сдвиге буква слова,стоящая на первом месте перемещается в конец.

жду помощи!)



_________
Убедительнейшая просьба - давать название темы так,
чтобы название адекватно отражало суть решаемой задачи/проблемы.
эту тему я исправил.
Но в будущем неукоснительно соблюдайте это правило!
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.


Модератор.

[denisbrain]

Сообщение от Наталья1991

требуется написать программу, которая должна печатать слово, полученное из исходного циклическим сдвигом его букв на N символов влево. Будем называть словом любую последовательность букв латинского алфавита A-Z,a-z. При циклическом сдвиге буква слова,стоящая на первом месте перемещается в конец.

жду помощи!)

к примеру что должно получиться из строчки

1. "пример подобной строчки"
2. 'AAAA BBBB CCCC DDDD ADADFB CDAM'
3. 'AA44 BBN4 CCHJ'

какие должны быть ответы

[Наталья1991]

Сообщение от denisbrain

к примеру что должно получиться из строчки

1. "пример подобной строчки"
2. 'AAAA BBBB CCCC DDDD ADADFB CDAM'
3. 'AA44 BBN4 CCHJ'

какие должны быть ответы

Допустим,N=2:
1.имерпр добнойпо рочкист
2.АААА ВВВВ СССС DDDD ADFBAD AMCD
3.44AA N4BB HJCC

[Vanta11a]

Без смещения: "ABC"
Смещение на 1:"BCA"
На 2: "CAB"
На 3: "ABC"

Собственно: вводится слово или строка? Если слово, шаг 1 можно опустить.
Шаг 1: найти границы слова
Шаг 2: внести слово в отдельную строку
Шаг 3: работая со строкой как с массивом сдвинуть буквы, т.е. 1ю букву строки в буфер, на её место 2ю, на место 2й - 3ю и т.д., на место последней - символ из буфера.

[Serge_Bliznykov]

я бы не мудрил - судя по заданию на вход подаётся ОДНО слово!

[Наталья1991]

Сообщение от Serge_Bliznykov

я бы не мудрил - судя по заданию на вход подаётся ОДНО слово!

точно... одно слово будет исходным данным,а не предложение

[denisbrain]

Сообщение от Наталья1991

точно... одно слово будет исходным данным,а не предложение

Function GetInvertText(s:string;n:intger):string;
var X:integer;
    s2:string;
begin
s2:=s;
  for x:=1 to n do begin
  s2:=s2+s2[1];
  delete(s,1,1);
  end;
  result:=s2;
end;

[Наталья1991]

Сообщение от denisbrain

Function GetInvertText(s:string;n:intger):string;
var X:integer;
    s2:string;
begin
s2:=s;
  for x:=1 to n do begin
  s2:=s2+s2[1];
  delete(s,1,1);
  end;
  result:=s2;
end;

можно полный текст?

[Vanta11a]

  s2:=s2+s2[1];
  delete(s,1,1);

Код вроде будет работать никак, или я ошибаюсь?
Надо что-то в духе

buffer = s[1];

for i = 1 to strlen(s)-1 do

s2[i] = s[i+1];

s2[i+1] = buffer;

з.ы. strlen - утащил из С, думаю найти функцию, возвращающую длину строки в паскале не составит труда. И да, ":" я не случайно забыл.

[Serge_Bliznykov]

опечатка. нужно

delete(s2,1,1)