Loryea (Normal User)
Pro
 
Messaggi: 165
Iscritto: 02/09/2011
|
Come faccio a creare dei legami "repeat...until" concentrici?
Per spiegarmi meglio:
Codice sorgente - presumibilmente Delphi |
Program Esempio; var A:integer; B,C:char (*...*) Repeat (*Questo è il repeat A*) Writeln('Benvenuti nel menù'); delay(5000); Clrscr; Writeln('Cosa vuoi fare?'); delay(5000); clrscr; repeat (*Questo è il repeat B*) Writeln('Azione numero 1'); Writeln('Azione numero 2'); Writeln('Chiusura (N° 3)'); Read(A); Case A of 1: Begin Clrscr; Writeln('Continuare? Y/N'); Readln(B); case B of: Y: (*...*) N: Until readln; (*Questa è la chiusura del repeat B*) End; 2: (*...*); 3: Begin Writeln('vuoi chiudere veramente? Y/N'); Read(C) case c of: Y: Begin writeln('Arresto del sistema in corso...'); Delay(10000); Clrscr; Until readln; (*Questa è la chiusura del repeat A*) End; N: (*...*)
|
|
|
|
nessuno (Normal User)
Guru^2
Messaggi: 6403
Iscritto: 03/01/2010
|
Postato originariamente da Loryea:
Per spiegarmi meglio:
|
E meno male che ti sei spiegato meglio ...
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità. |
|
|
HeDo (Founder Member)
Guru^2
Messaggi: 2765
Iscritto: 21/09/2007
|
Postato originariamente da Loryea:
Come faccio a creare dei legami "repeat...until" concentrici?
|
si chiamano cicli annidati, e si "creano" esattamente usando la stessa sintassi. |
|
|
TheKaneB (Member)
Guru^2
Messaggi: 1792
Iscritto: 26/06/2009
|
Postato originariamente da nessuno:
Postato originariamente da Loryea:
Per spiegarmi meglio:
|
E meno male che ti sei spiegato meglio ...
|
|
|
|
sono morto dodici volte appena l'ho letto