La boucle "répéter" en Delphi Pascal

Le compteur: première application

Dans l'illustration de la page précédente, le prisonnier décompte les années en faisant des traits sur le mur de sa cellule. 

A l'instar du prisonnier, ce qu'un ordinateur fait le mieux, c'est compter. Il nous suffirait de faire comme le prisonnier pour compter le nombre de tours effectués dans la boucle.

C'est la technique du compteur.

Un compteur est une variable dont la valeur est régulièrement augmentée ou diminuée d'une certaine quantité.
Une augmentation régulière est encore appelée une incrémentation.
Une diminution régulière est encore appelée une décrémentation.

Prisonnier Dans une première application simple, voyons comment on pourrait compter le nombre de tours effectués dans une boucle.

Voyons comment cette technique pourrait être mise en place ici. Nous discuterons les détails ensuite.

répéter
demander s'il faut faire un tour de plus
augmenter la valeur du compteur d'une unité
jusqu'à fini de boucler

Facile à dire: "augmenter la valeur du compteur d'une unité". Moi, je vois bien ce que ça veut dire. Mais allez expliquer ça à un ordinateur...

Effectivement, cela demande d'utiliser une technique un peu spéciale pour ajouter une certaine quantité dans une variable.

On écrira:

compteur <- compteur + 1

Dans l'exemple ci-dessus, on parlera
De la décrémentation du compteur
De l'incrémentation du compteur
De rien: il ne s'agit ni d'une décrémentation, ni d'une incrémentation

L'algorithme devient

répéter
demander s'il faut faire un tour de plus
compteur <- compteur + 1
jusqu'à fini de boucler

Ouais, ouais... Mais tout dépend de ce qu'il y a dans la variable compteur au départ.

Exactement. C'est pourquoi une variable qui sert de compteur doit TOUJOURS être initialisée.

L'initialisation d'un compteur consiste à lui donner une première valeur qui convient pour l'usage que l'on en aura.

L'algorithme devient donc:

compteur <- 0
répéter
demander s'il faut faire un tour de plus
compteur <- compteur + 1
jusqu'à fini de boucler
écrire compteur
  • Démarre une nouvelle application Delphi et enregistre-la dans un répertoire appelé Boucle. Sur la fiche, dépose un bouton TButton et un label TLabel.
  • La fonction InputBox devrait te permettre de traduire la phrase "demander s'il faut faire un tour de plus". Inspire-toi de la présentation utilisée dans la simulation présentée en  haut de cette page.
  • Le nombre de tours effectués est simplement annoncé dans un élément TLabel présent sur la fiche.

Quand ton programme fonctionne correctement, présente-le au professeur puis passe à la page suivante. Vers la page suivante Page suivante


Dernière modification 20/08/2016 Test dans /info ...