Incompatible types : 'char' and 'string'
rayenneyassine
-
Utilisateur anonyme -
Utilisateur anonyme -
Program code;
Uses WinCrt;
Var
x:String;
z:Char;
r:Integer;
Begin
WriteLn('donner un mot'); Readln(x);
z:=Copy(x,((Length(x)) Div 2), 1);
r:= Ord(z);
WriteLn (r);
End.
j'ai essayée mais le programme ne fonctionne pas et affiche :
incompatible types : 'char' and 'string'
Uses WinCrt;
Var
x:String;
z:Char;
r:Integer;
Begin
WriteLn('donner un mot'); Readln(x);
z:=Copy(x,((Length(x)) Div 2), 1);
r:= Ord(z);
WriteLn (r);
End.
j'ai essayée mais le programme ne fonctionne pas et affiche :
incompatible types : 'char' and 'string'
1 réponse
-
Bonjour
La fonction Copy donne une 'string'.
Toi tu essayes de mettre le résultat dans un char quand tu faisz:= Copy(...
: ce n'est pas possible, les deux types sont incompatibles. Même si ta 'string' fait un seul caractère.
Pour extraire un char unique d'une string x, il faut utiliser la notation x[1], x[2]...
