VAL |
Valeur |
|---|---|
| QuickPascal | System |
Syntaxe
| Procedure Val(ch:String; Var nbre,err:Integer); |
| Procedure Val(ch:String; Var nbre:Real;Var err:Integer); |
Paramètres
| Nom | Description |
|---|---|
| ch | Ce paramètre permet d'indiquer la chaîne de caractères contenant le nombre encodé en alphanumérique. |
| nbre | Ce paramètre retourner le nombre. |
| err | Ce paramètre retourner l'erreur. |
Description
Cette procédure permet de convertir une chaîne de caractères en sa valeur numérique.
Remarque
- La procédure Val convertie la chaîne de caractères ch source d'origine en son nombre équivalent nbre. Les espaces de début peuvent être présents, mais aucun espace de fin n'est autorisé. Si la chaîne de caractères ne peut pas être convertie, le code contiendra l'index du premier caractère gênant. Le err contiendra l'index du premier caractère gênant. La variable err contiendra 0 si la conversion est réussie.
Exemple
Voici quelques exemples typiques de l'utilisation de cette fonction :
- Program ValSamples;
-
- Var
- N,Err:Integer;
- R:Real;
-
- BEGIN
- Val('0',N,Err);
- WriteLn('Val(0) = ',N,', Erreur=',Err);
- Val('123',N,Err);
- WriteLn('Val(123) = ',N,', Erreur=',Err);
- Val('-123',N,Err);
- WriteLn('Val(-123) = ',N,', Erreur=',Err);
- Val('123E',N,Err);
- WriteLn('Val(123E) = ',N,', Erreur=',Err);
- Val('-123E',N,Err);
- WriteLn('Val(-123E) = ',N,', Erreur=',Err);
- Val('-123G',N,Err);
- WriteLn('Val(-123G) = ',N,', Erreur=',Err);
- Val('G',N,Err);
- WriteLn('Val(G) = ',N,', Erreur=',Err);
- Val('123.45',R,Err);
- WriteLn('Val(123.45) = ',R:3:2,', Erreur=',Err);
- END.
on obtiendra le résultat suivant :
Val(0) = 0, Erreur=0Val(123) = 123, Erreur=0
Val(-123) = -123, Erreur=0
Val(123E) = 123, Erreur=4
Val(-123E) = 123, Erreur=5
Val(-123G) = 123, Erreur=5
Val(G) = 0, Erreur=1
Val(123.45) = 123.45, Erreur=0
Dernière mise à jour : Vendredi, le 13 février 2015