Guida Pascal - La struttura iterativa While...do

Program esempio3;
Uses Crt;
Var x,y:word;
    
begin
    clrscr;
    write(‘Inserire due coordinate: ‘);
    readln(x,y);
    while (x<>0) and (y<>0) do
      begin
      read(x,y);
      gotoxy(x,y);
      write(‘(‘,x,’;’,y,’)’);
      end;    
    readln
end.

Questo programma legge da tastiera due coordinate, sposta il cursore a quelle date coordinate e scrive in quel punto le ascisse e le ordinate tra parentesi, separate da un punto e virgola.
Il ciclo si ripete ogni volta che la condizione indicata è vera: in questo caso quando sia x che y sono diversi da 0.
La procedura gotoxy(x,y:word) sposta il cursore alle coordinare (x;y) sullo schermo.
In pratica, scrivere:

while (x<>0) and (y<>0) do
   begin
   ...
   end;

è come scrivere:

repeat
...
until (x=0) and (y=0);

Anche con while è opportuno stare attenti ai cicli infiniti e bisogna notare che con il while è necessario inlcudere il blocco di istruzioni fra begin ed end;.