Guida Pascal
Capitolo 8° - 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;.
C#, TypeScript, java, php, EcmaScript (JavaScript), Spring, Hibernate, React, SASS/LESS, jade, python, scikit, node.js, redux, postgres, keras, kubernetes, docker, hexo, etc...
|