Program zrotuje zadané číslo n krát doprava

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: Zadania Pascal

Autor: Juraj Pupák
Program: Rotacias.pas
Súbor exe: Rotacias.exe

Program zrotuje zadané číslo n krát doprava.
{ 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.