Question

Se consideră şiruri de caractere formate din literele mari ale alfabetului latin şi spaţii. Creati un program care afişează şirurile în studii după
următoarele reguli:

- fiecare literă de la ′A′ pînă la ′Y ′ se inlocuieste prin următoarea literă din alfabet

-fiecare literă ′Z′ se inlocuieste pri litera ′A′;

- fiecare spaţiu se înlocuieste prin ′ - ′

va rog in - (turbo pascal)

Answer 1

Var a:array [1..1000] of char;
I, n:integer;
Begin
I:=1;
While not (eoln) do begin
Read (a [i];)
inc (i);
End;
n:=i;
For i:=1 to n do 
Case ord (a [i]) of 
32:a [i]:='-';
90:a [i]:='A'
Else a [i]:=chr(ord (a [i])+1);
End;
For i:=1 to n do 
Write (a [i]:3);
end.