Question

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!

Answer 1

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: