Section courante

A propos

Section administrative du site

VAL

 Valeur
Virtual Pascal System

Syntaxe

Procedure Val(ch:String; Var nbre;err:LongInt);

Paramètres

Nom Description
ch Ce paramètre permet d'indiquer la chaine 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 chaine de caractères en sa valeur numérique.

Exemple

Voici quelques exemples typiques de l'utilisation de cette fonction :

  1. Program ValSamples;
  2.  
  3. Var
  4.  N,Err:LongInt;
  5.  R:Real;
  6.  
  7. BEGIN
  8.  Val('0',N,Err);
  9.  WriteLn('Val(0) = ',N,', Erreur=',Err);
  10.  Val('123',N,Err);
  11.  WriteLn('Val(123) = ',N,', Erreur=',Err);
  12.  Val('-123',N,Err);
  13.  WriteLn('Val(-123) = ',N,', Erreur=',Err);
  14.  Val('123E',N,Err);
  15.  WriteLn('Val(123E) = ',N,', Erreur=',Err);
  16.  Val('-123E',N,Err);
  17.  WriteLn('Val(-123E) = ',N,', Erreur=',Err);
  18.  Val('-123G',N,Err);
  19.  WriteLn('Val(-123G) = ',N,', Erreur=',Err);
  20.  Val('G',N,Err);
  21.  WriteLn('Val(G) = ',N,', Erreur=',Err);
  22.  Val('123.45',R,Err);
  23.  WriteLn('Val(123.45) = ',R:3:2,', Erreur=',Err);
  24. END.

on obtiendra le résultat suivant :

Val(0) = 0, Erreur=0
Val(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 29 juillet 2016