Comparaison de variable Turbo Pascal

Comparaison de variable Turbo Pascal - Delphi/Pascal - Programmation

Marsh Posté le 24-01-2008 à 15:14:58    

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
Reply

Marsh Posté le 24-01-2008 à 15:14:58   

Reply

Marsh Posté le 05-02-2008 à 15:46:34    

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);

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed