Section courante

A propos

Section administrative du site

VAL

 Valeur
Turbo Pascal pour Windows 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.

Exemple

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

  1. Program ValSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var
  6.  N,Err:Integer;
  7.  R:Real;
  8.  
  9. BEGIN
  10.  Val('0',N,Err);
  11.  WriteLn('Val(0) = ',N,', Erreur=',Err);
  12.  Val('123',N,Err);
  13.  WriteLn('Val(123) = ',N,', Erreur=',Err);
  14.  Val('-123',N,Err);
  15.  WriteLn('Val(-123) = ',N,', Erreur=',Err);
  16.  Val('123E',N,Err);
  17.  WriteLn('Val(123E) = ',N,', Erreur=',Err);
  18.  Val('-123E',N,Err);
  19.  WriteLn('Val(-123E) = ',N,', Erreur=',Err);
  20.  Val('-123G',N,Err);
  21.  WriteLn('Val(-123G) = ',N,', Erreur=',Err);
  22.  Val('G',N,Err);
  23.  WriteLn('Val(G) = ',N,', Erreur=',Err);
  24.  Val('123.45',R,Err);
  25.  WriteLn('Val(123.45) = ',R:3:2,', Erreur=',Err);
  26. 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 : Dimanche, le 10 décembre 2017