👤

Vă rog rezolvati in Pascal(Turbo Pascal)

Se considera siruri de caractere formate din litere mari ale alfabetului latin si spatii. Creati un program care afiseaza sirurile in studiu dupa regulile:
-fiecare litera de la ,,A” pana la ,,Y” se inlocuieste prin urmatoarea litera din alfabet.
-fiecare litera ,,Z” se inlocuieste prin litera ,,A”.
-fiecare spatiu se inlocuieste prin ,—‘.

Un program Pascal! Multumesc!


Răspuns :

Răspuns:

program deplasareDreapta;

var t:string;

   i:integer;

begin

 write('introdu textul: '); read(t);

 for i:=1 to length(t) do

   begin

     if t[i]=' ' then t[i]:='_'

     else

       if t[i]='Z' then t[i]:='A'

       else t[i]:=chr(ord(t[i])+1);

   end;

 writeln('Sirul modificat: ',t);

end.

Explicație: