si ya des black boxeux viendez voir

si ya des black boxeux viendez voir - Programmation

Marsh Posté le 17-10-2001 à 14:47:32    

j'ai un probleme dans black box(je debute)
voila mon prog:
MODULE Mias1TD3;
IMPORT Out,ObxSaisir,StdLog;
VAR p1,p2,p3 :REAL;
  l1,l2 : SHORTINT;  
  T1,Q : REAL;
PROCEDURE Prix*();
BEGIN
StdLog.Clear;
 REPEAT
  REPEAT StdLog.Clear;Out.String("Combien de litre(s) de vinasse souhait tu acheter ?" );Out.Ln;ObxSaisir.Reel(Q);
  UNTIL ObxSaisir.Done;
 UNTIL (Q>= 0);
 REPEAT
  IF (Q=0) THEN Out.Ln;Out.String("Pov CONNARD ! ! ! Achete moi du rouge" );END;
 UNTIL (Q>0);
 IF (Q <= l1)&(Q>0)
  THEN  IF (Q=1) THEN Out.String("Le prix a payer pour ta SEUL bouteil de rouge est " );Out.Real(p1,0);Out.String("francs" )
       ELSE T1:=Q*p1;Out.String("Le prix pour " );Out.Real(Q,0);;Out.String(" litres de vin est : " );Out.Real(T1,0);
         Out.String(" Francs" );  
     END;              
  ELSIF (Q <=l2)&(Q>0)
    THEN T1:=((Q-l1)*p2 + l1*p1);;Out.String("Le prix pour " );Out.Real(Q,0);;Out.String(" litres de vin est : " );
      Out.Real(T1,0);Out.String(" Francs" );
    ELSIF (Q>l2)&(Q>0)
      THEN T1:=((Q-l1-l2)*p3 + l2*p2 + l1*p1);Out.String("Le prix pour " );Out.Real(Q,0);;Out.String(" litres de vin est : " );          Out.Real(T1,0);Out.String(" Francs" );
 END;
END Prix;
BEGIN
p1:=7;p2:=6.75;p3:=6.50;
l1:=500;l2:=2000;
END Mias1TD3.

 
quand je met la valeur 0 y me marque indefiniment POV CONNARD
je voudrais utiliser une commande du style keypressed pour le stoper

Reply

Marsh Posté le 17-10-2001 à 14:47:32   

Reply

Sujets relatifs:

Leave a Replay

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