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

Programmatore e analista .NET 2005/2008/2010 (in particolare C# e VB.NET), anche nell'implementazione Mono per Linux. Conoscenze approfondite di Pascal, PHP, XML, HTML 4.01/5, CSS 2.1/3, Javascript (e jQuery). Conoscenze buone di C, LUA, GML, Ruby, XNA, AJAX e Assembly 68000. Competenze basilari di C++, SQL, Hlsl, Java.