Bonjour tout le monde
Je me présente : je suis un étudiant en informatique (1ere année).
Voilà, j'ai un petit problème ,si quelqu'un peut maider ?

Je voudrais calculer le nombre de caractères d'une chaîne de caractères (string).
Exemple : si jai
chaine:='jecpas' (chaine de type string)
nb de caracter sera egal a 6
chaine:='m'
nb de caracter dans chaine est 1
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
program exemple;
var x:string;
i:integer;
s:char;
begin
write('entrer un mot ');
readln(x);
i:=0;
 
   while (x[i]>chr(0)) do
       begin
        i:=i+1;
       end;
write(i-1);
 
readln;
 
end.
Voilà ce que jai fait mai le problème c'est quand on n'écrit rien : on aura i=-1
et si je fais write(i) a la place de write(i-1) j'aurai toujours un (+1).

Autre question : est-ce que je peux initialiser un caractère au vide ou comparer un caractère avec le vide ?