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 - 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.

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;




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.

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