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

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

Форум программистов > Центр помощи > [Delphi] циклическая перестановка букв в словах

Автор: severm 26.3.2008, 13:52

Помогите пожалуста сделать задачу на Паскале

Составить программу циклической перестановки букв в словах текста так, что i-я буква слова становится i+1-ой, а последняя - первой.

Автор: Alexeis 26.3.2008, 15:40

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: SandyProgrammer 27.3.2008, 16:29

Здравствуйте!
Посмотрите код в приложении. Может быть это то, что Вам нужно? Или Вам нужно всё это с файлом проделывать?

Код


Program abc1;
Uses CRT;
Var a,b:string;
i:integer;
Begin
clrscr;
Writeln('Vvedite stroky:');
Readln(a);
  for i:=0 to Length(a) do begin
   if i=0 then begin
   b[i]:=a[i]; b[i+1]:=a[Length(a)]; end
   else begin
    b[i+1]:=a[i];
   end;
  end;
Writeln('Resultat:');
Writeln(b);
Readkey;
end.

Автор: severm 27.3.2008, 16:42

Спосибо.Попробую