Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Циклический сдвиг строки текста

Автор: ownnz 13.11.2011, 12:48

Помогите решить задачу.

5. Дана строка, содержащая текст. Зашифровать текст циклически сдвигая его влево.

Например строка "ABCDE" должна принять вид "BCDEA".

З.Ы. ПРиложение для консоли.

Автор: t_gran 14.11.2011, 07:18

ownnz, ну так это же детская задачка.

Код


procedure Transform(var theStr: string; theCount: byte);
var
   i: byte;
   buff: string;
begin
   buff := copy(theStr, 1, theCount);
   delete(theStr, 1, theCount);
   insert(buff, theStr, length(theStr)+1);
end;

var
   str: string;
begin
   str := paramstr(1);
   if (length(str) = 0) then
   begin
      writeln('Usage: program STRING');
      exit;
   end;
   
   Transform(str, 1);
   
   writeln(str);
end.

http://s1.ipicture.ru/

Бинарник с исходником ниже