Umiestnenie súboru www.TrSek.com/zadania/rotacias.pas{ ROTACIAS.PAS }
{ Program zrotuje zadane cislo n krat doprava. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program RotaciaSlova;
uses crt;
var
word : string;
i : integer;
dlzka_slova : integer;
pocet_rotacii : integer;
posledne_pismeno,Cstr : string;
zmenene_slovo : string;
begin
clrscr;
writeln('Zadaj slovo');
readln(word);
writeln('Zadaj kolko krat sa maju pismena v slovo otocit');
readln(pocet_rotacii);
clrscr;
dlzka_slova := length(word);
For i := 1 To pocet_rotacii Do
begin
posledne_pismeno := copy(word,dlzka_slova,1);
Cstr := copy(word,1,dlzka_slova - 1);
zmenene_slovo := posledne_pismeno + Cstr;
word := zmenene_slovo;
end;
writeln('Slovo po ',pocet_rotacii ,' je ',word);
readln;
end.