Je suis perdue et je ne trouve pas la réponse.
Voilà l'exercice :
Ecrire un programme qui lit une chaîne de caractères et qui
la transforme en « écriture secrète »comme suit :
– les lettres de l’alphabet sont décalées de deux positions ; càd. ’A’ devient
’C’, ’B’ devient ’D’, . . . , ’Y’ devient ’A’ et ’Z’ devient ’B’
– un blanc est remplacé par le symbole ’+’
Et voilà mon travail mais il n'est pas correct :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var i,j:integer;
    p:string;
begin
write('Donner une phrase:');readln(p);
clrscr;
 i:=1 ;
 j:=1 ;
for i:=1 to length(p) do
 begin
 
write(chr(i+65+j)) ;
 
 
 
  end;
readln;
end.
La vraie question c'est quelles fonctions convenables je dois utiliser ?