|
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;.
|
|
Feeds
Sondaggio
Condividi
Numeri
