Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Problema
Forum - Pascal - Problema "repeat...until"

Avatar
Loryea (Normal User)
Pro


Messaggi: 165
Iscritto: 02/09/2011

Segnala al moderatore
Postato alle 15:30
Mercoledý, 14/09/2011
Come faccio a creare dei legami "repeat...until" concentrici?
Per spiegarmi meglio:

Codice sorgente - presumibilmente Delphi

  1. Program Esempio;
  2. var A:integer;
  3. B,C:char
  4. (*...*)
  5. Repeat (*Questo Ŕ il repeat A*)
  6. Writeln('Benvenuti nel men¨');
  7. delay(5000);
  8. Clrscr;
  9. Writeln('Cosa vuoi fare?');
  10. delay(5000);
  11. clrscr;
  12. repeat (*Questo Ŕ il repeat B*)
  13. Writeln('Azione numero 1');
  14. Writeln('Azione numero 2');
  15. Writeln('Chiusura (N░ 3)');
  16. Read(A);
  17. Case A of
  18. 1:
  19. Begin
  20. Clrscr;
  21. Writeln('Continuare? Y/N');
  22. Readln(B);
  23. case B of:
  24. Y:
  25. (*...*)
  26. N: Until readln; (*Questa Ŕ la chiusura del repeat B*)
  27. End;
  28. 2:
  29. (*...*);
  30. 3:
  31. Begin
  32. Writeln('vuoi chiudere veramente? Y/N');
  33. Read(C)
  34. case c of:
  35. Y:
  36. Begin
  37. writeln('Arresto del sistema in corso...');
  38. Delay(10000);
  39. Clrscr;
  40. Until readln; (*Questa Ŕ la chiusura del repeat A*)
  41. End;
  42. N: (*...*)


PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 15:57
Mercoledý, 14/09/2011
Testo quotato

Postato originariamente da Loryea:
Per spiegarmi meglio:



E meno male che ti sei spiegato meglio ...

PM Quote
Avatar
HeDo (Founder Member)
Guru^2


Messaggi: 2765
Iscritto: 21/09/2007

Segnala al moderatore
Postato alle 17:36
Mercoledý, 14/09/2011
Testo quotato

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.

PM Quote
Avatar
TheKaneB (Member)
Guru^2


Messaggi: 1792
Iscritto: 26/06/2009

Segnala al moderatore
Postato alle 18:27
Mercoledý, 14/09/2011
Testo quotato

Postato originariamente da nessuno:

Testo quotato

Postato originariamente da Loryea:
Per spiegarmi meglio:



E meno male che ti sei spiegato meglio ...



:rotfl: sono morto dodici volte appena l'ho letto :rotfl::rotfl::rotfl:

PM Quote