Utilisation de withdo en pascal

Autant pour moi, je ne connaissais pas cette astuce...

vous parlez de "with.... do"

c'est pour les champ d'un enregistrements dans le but de ne pas repeter le nom de l'enregistrement!

exemple:

type t_etudiant: record
nom,prenom:sting;
matricule:integer;
end;
var etudiant: t_etudiant;

begin
with etudiant do
nom := 'zidane';
prenom:='zinedine';
matricule:=65446;
end;
end.

Ne parlerais-tu pas plutôt de "while ... do" ? Dans ce cas ça se traduit par "tant que ... faire"

Entre le while et le do il faut placer une instruction de type boolean, c'est à dire qui vaut true ou false.
Par exemple : while a=b do, while a<b do, while (a<b) and (a>c) do, while k do (k est de type boolean)

Exemple concret :

On considère la Conjecture de Syracuse vérifiée pour des entiers de type integer.
On créé une fonction qui compte le nombre d'étapes pour passer de n à 1 :

function CompteurSyracuse(n:integer):integer;
begin
     result:=0;
     while n>1 do // tant que n supérieur à 1
           begin
           if odd(n)   // si n est impair
                then n:=3*n+1;   // alors
                else n:=n div 2; // sinon
           inc(result); // on le résultat de 1
           end;
end;

Il faut toujours faire attention que la condition se termine à un moment, sinon la boucle tourne indéfiniment !