Boucles indéfinies tant qu'on n'appuie pas sur une touche ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
i:= 9;
REPEAT  
  Dec(i);
  IF (i=1) THEN i:= 9
UNTIL ((i=0) OR KeyPressed);     // Là, je suis sympa !
Encore plus court

Code : Sélectionner tout - Visualiser dans une fenêtre à part
RETEAT UNTIL KeyPressed;
#
Citation Envoyé par paskal++ Voir le message
... une amélioration : (Vf-Vi)/valeur_absolu(pas) +1 dans le cas d'un pas négatif ...
Ici (Vf) est inférieur à (Vi); on a par conséquent:
N = Abs(Vf - Vi)/Abs(h) + 1 = (Vf - Vi)/h + 1 .
Le résultat demeure inchangé, les deux termes du rapport changeant simultanément de signe.

#
Citation Envoyé par Jipété Voir le message
... J'ai trouvé 3 pages avec des choses intéressantes, dont ça ...
C'est intéressant, mais il faudra se prendre la tête à deux mains ...