Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Guida Pascal - La struttura iterativa While...do

Guida Pascal

Capitolo 8° - La struttura iterativa While...do

<< Precedente Prossimo >>
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;.
<< Precedente Prossimo >>
A proposito dell'autore

C#, TypeScript, java, php, EcmaScript (JavaScript), Spring, Hibernate, React, SASS/LESS, jade, python, scikit, node.js, redux, postgres, keras, kubernetes, docker, hexo, etc...