Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1561 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Comparaison de variable Turbo Pascal

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Comparaison de variable Turbo Pascal

n°1676286
Benihime
Posté le 24-01-2008 à 15:14:58  profilanswer
 

Bonjour,
 
Voila j'ai un programme pour un calcul de tarrif a créer, rien de tres compliqué mais j'aimerai que dans l'insertion des valeurs, dans une boucle je veux qu'il demande d'inseré la valeur, et n'en sorte que si la valeur est un réel et que ce réel soit superieur a 250. pour le moment j'ai un truc dans ce genre

Code :
  1. WHILE (ABO<250) AND ((ord(ABO)>=48) and (ord(ABO)<=57)) DO
  2.  BEGIN
  3.  WRITELN ('Merci de saisir la puissance souscrite aupres d'EDF en kW');
  4.  READLN (ABO);
  5.   IF (ABO<>REAL) AND (ABO<250) THEN
  6.    BEGIN
  7.    WRITELN ('Cette valeur n'est pas prise en compte dans la tarification EDF');
  8.    END;
  9.   END
  10.   ELSE END;


 
C'est sans doute faux mais c'est une approche de ce que je cherchais. Quelqu'un pourai il m'eclairé ?
PS : Je déclare ABO en tant que REAL et je souhaite qu'il affiche un message d'erreur si cela n'est pas une valeur correct et redemande l'insertion de la valeur. Enfin bref...
 
On m'a parler de commande 'Str' et 'Var' mais je ne comprend pas comment elle fonctionne.
 
Merci :)


Message édité par Benihime le 24-01-2008 à 15:52:57
mood
Publicité
Posté le 24-01-2008 à 15:14:58  profilanswer
 

n°1682057
Benihime
Posté le 05-02-2008 à 15:46:34  profilanswer
 

Pour ceux que cela interesse j'utilise ceci avec  
ABO : STRING
Ab : REAL
CODE : INTEGER

Code :
  1. REPEAT
  2.  WRITELN ('Merci de saisir la puissance souscrite aupres d''EDF en kW');
  3.  READLN (ABO);
  4.  VAL (ABO,Ab,CODE);
  5. UNTIL (CODE=0) AND (Ab>=250);


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Comparaison de variable Turbo Pascal

 

Sujets relatifs
comparaisonPasser une variable a une info bulle?
Convertir une fraction obtenue en Inputbox en une variable numériqueProbleme pour recuprer une variable dans un code embed vers un swf
Où stocker une variable transitoire ? [Résolu]Aidez moi les Amis !!! (Turbo Pascal)
récuperer variable dans script shell avec formulaire PHPScinder en partant de la fin d'un variable.
Declaration variable 
Plus de sujets relatifs à : Comparaison de variable Turbo Pascal


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR