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
Pascal - Rieseguire il programma
Forum - Pascal - Rieseguire il programma

Avatar
fista (Normal User)
Newbie


Messaggi: 6
Iscritto: 15/01/2009

Segnala al moderatore
Postato alle 14:50
Giovedì, 15/01/2009
Salve a tutti sono nuovo del forum e volevo chiedervi una cosa.

Vorrei sapere se esiste una struttura che fa sì che quando si prema invio torni al menu principale del programma.
Mi spiego meglio:
Sto realizzando un programma con Pascal di geometria che appena aperto ti chiede dove andare
1-Poligoni Regolare
2-Poligoni
3-Problemi sul cerchio....

Dopo che hai scelto dove andare però non si può più tornare indietro.

Grazie per le eventuali risposte   :asd::asd:

PM Quote
Avatar
WARRIOR (Ex-Member)
Guru


Messaggi: 627
Iscritto: 30/03/2007

Segnala al moderatore
Postato alle 15:40
Giovedì, 15/01/2009
Devi implementare il tutto in un ciclo repeat-until.


Continuerò a correre, perchè ci sarà sempre qualcuno migliore di me.

Evvia i libri, evitate gli stolti che non li integrano nella loro vita.

http://www.mentisferiche.it

Luca Tedesco
PM Quote
Avatar
fista (Normal User)
Newbie


Messaggi: 6
Iscritto: 15/01/2009

Segnala al moderatore
Postato alle 22:31
Giovedì, 15/01/2009
Testo quotato

Postato originariamente da WARRIOR:

Devi implementare il tutto in un ciclo repeat-until.



Si ma dove ????

Ti mostro il codice:

Codice sorgente - presumibilmente Delphi

  1. program SuperGeometria;
  2. uses crt;
  3. var nlppr,lppr,risppr,areadppr: real;
  4.     ind1,compr: byte;
  5.     a: text;
  6.  
  7. begin
  8. clrscr;
  9. TextColor(14);
  10. writeln('1-PROBLEMI SU I POLIGONI REGOLARI');
  11. writeln('2-PROBLEMI SU I POLIGONI');
  12. writeln('3-PROBLEMI SUL CERCHIO');
  13. writeln('4-PROBLEMI RELATIVI AL TEOREMA DI PITAGORA');
  14. writeln('5-FINE');
  15. writeln('');
  16. writeln('');
  17. writeln('INSERISCI IL COMANDO DA ESEGUIRE');
  18. readln(ind1);
  19. if ind1=1 then
  20. begin
  21. clrscr;
  22. writeln('1-PERIMETRO');
  23. writeln('2-AREA');
  24. writeln('3-LATO');
  25. writeln('');
  26. writeln('');
  27. writeln('INSERISCI IL COMANDO DA ESEGUIRE');
  28. readln(compr);
  29. if compr=1 then
  30. begin;
  31. clrscr;
  32. write('INSERISCI NUMERO LATI: ');
  33. readln(nlppr);
  34. clrscr;
  35. write('INSERISCI LATO: ');
  36. readln(lppr);
  37. clrscr;
  38. risppr:=nlppr*lppr;
  39. writeln('IL RISULTATO E^',risppr:10:2);
  40. writeln('');
  41. writeln('PREMI INVIO PER TORNARE AL MENU');
  42. end;
  43. readln;
  44. end;
  45. end.



dove lo metto ? Io devo fare in modo che premendo Invio mi ritorni all'inizio cioè dove dice

Codice sorgente - presumibilmente Pascal

  1. begin
  2. clrscr;
  3. TextColor(14);
  4. writeln('1-PROBLEMI SU I POLIGONI REGOLARI');
  5. writeln('2-PROBLEMI SU I POLIGONI');
  6. writeln('3-PROBLEMI SUL CERCHIO');
  7. writeln('4-PROBLEMI RELATIVI AL TEOREMA DI PITAGORA');
  8. writeln('5-FINE');
  9. writeln('');
  10. writeln('');
  11. writeln('INSERISCI IL COMANDO DA ESEGUIRE');
  12. readln(ind1);



Grazie comunque.:rotfl::rotfl::rotfl:

PM Quote
Avatar
gigisoft (Member)
Guru


Messaggi: 696
Iscritto: 11/10/2008

Segnala al moderatore
Postato alle 14:41
Lunedì, 19/01/2009
Testo quotato


dove lo metto ? Io devo fare in modo che premendo Invio mi ritorni all'inizio cioè dove dice



Beh... dovrebbe essere + o - così:

Codice sorgente - presumibilmente Delphi

  1. begin
  2. clrscr;
  3. TextColor(14);
  4. while(Ord(ind1) = 13) do
  5. begin
  6. writeln('1-PROBLEMI SU I POLIGONI REGOLARI');
  7. writeln('2-PROBLEMI SU I POLIGONI');
  8. writeln('3-PROBLEMI SUL CERCHIO');
  9. writeln('4-PROBLEMI RELATIVI AL TEOREMA DI PITAGORA');
  10. writeln('5-FINE');
  11. writeln('');
  12. writeln('');
  13. writeln('INSERISCI IL COMANDO DA ESEGUIRE');
  14. readln(ind1);
  15.  
  16. case ind1 of { è molto meglio degli if }
  17. [...]
  18. end;
  19.  
  20. end;





Le cose si fanno per bene o non si fanno affatto
PM Quote
Avatar
fista (Normal User)
Newbie


Messaggi: 6
Iscritto: 15/01/2009

Segnala al moderatore
Postato alle 16:26
Venerdì, 23/01/2009
Mi puoi spiegare cosa significa ???

PM Quote
Avatar
WARRIOR (Ex-Member)
Guru


Messaggi: 627
Iscritto: 30/03/2007

Segnala al moderatore
Postato alle 19:49
Venerdì, 23/01/2009
Beh, terminato il codice, ti chiede in input la pressione di un tasto per andare avanti (diciamolo così), da questo (il tasto) dipende la condizione del ciclo while.


Continuerò a correre, perchè ci sarà sempre qualcuno migliore di me.

Evvia i libri, evitate gli stolti che non li integrano nella loro vita.

http://www.mentisferiche.it

Luca Tedesco
PM Quote
Avatar
TheCrow (Ex-Member)
Expert


Messaggi: 471
Iscritto: 31/05/2007

Segnala al moderatore
Postato alle 21:18
Sabato, 24/01/2009
program SuperGeometria;
uses crt;
var nlppr,lppr,risppr,areadppr: real;
    ind1,compr: byte;
    a: text;

begin
repeat
clrscr;
TextColor(14);
writeln('1-PROBLEMI SU I POLIGONI REGOLARI');
writeln('2-PROBLEMI SU I POLIGONI');
writeln('3-PROBLEMI SUL CERCHIO');
writeln('4-PROBLEMI RELATIVI AL TEOREMA DI PITAGORA');
writeln('5-FINE');
writeln('');
writeln('');
writeln('INSERISCI IL COMANDO DA ESEGUIRE');
readln(ind1);
if ind1=1 then
begin
clrscr;
writeln('1-PERIMETRO');
writeln('2-AREA');
writeln('3-LATO');
writeln('');
writeln('');
writeln('INSERISCI IL COMANDO DA ESEGUIRE');
readln(compr);
if compr=1 then
begin;
clrscr;
write('INSERISCI NUMERO LATI: ');
readln(nlppr);
clrscr;
write('INSERISCI LATO: ');
readln(lppr);
clrscr;
risppr:=nlppr*lppr;
writeln('IL RISULTATO E^',risppr:10:2);
writeln('');
writeln('PREMI INVIO PER TORNARE AL MENU');
end;
readln;
end;
until ind1=5;
end.


PM Quote