{"id":190,"date":"2014-12-30T02:55:00","date_gmt":"2014-12-30T01:55:00","guid":{"rendered":"http:\/\/www.valcon.it\/pascal\/?p=190"},"modified":"2014-12-30T03:02:48","modified_gmt":"2014-12-30T02:02:48","slug":"menu-di-scelta-2","status":"publish","type":"post","link":"https:\/\/www.valcon.it\/pascal\/menu-di-scelta-2\/","title":{"rendered":"Menu di scelta 2"},"content":{"rendered":"

Per semplificare la stesura di un programma si possono usare intensivamente le procedure e richiamarle tramite un menu…<\/p>\n

Program menu_e_procedure;\r\nUses\r\n   Crt;\r\nVar\r\n   scelta: Integer;\r\n(* ---------------------------------------------------------------------------- *)\r\nProcedure opzione1;\r\nBegin\r\n   ...\r\nEnd;\r\nProcedure opzione2;\r\nBegin\r\n   ...\r\nEnd;\r\nProcedure presentazione;\r\nBegin\r\n   ...\r\nEnd;\r\nProcedure menu;\r\nBegin\r\n   ClrScr;\r\n   Writeln('---TITOLO---');\r\n   Writeln(' 0. Uscita');\r\n   Writeln(' 1. Opzione 1');\r\n   Writeln(' 2. Opzione 2');\r\n   ...\r\nEnd;\r\nProcedure uscita;\r\nBegin\r\n   ...\r\nEnd;\r\nProcedure aspetta;\r\nBegin\r\n   Writeln('Premi INVIO per continuare');\r\n   Readln;\r\nEnd;\r\n(* ---------------------------------------------------------------------------- *)\r\nBegin\r\n   presentazione;\r\n   Repeat\r\n      menu;\r\n      Readln(scelta);\r\n      Case(scelta) Of\r\n         0: uscita;\r\n         1: opzione1;\r\n         2: opzione2;\r\n         ...\r\n      End;\r\n      aspetta;\r\n   Until(scelta = 0);\r\nEnd.\r\n(* ---------------------------------------------------------------------------- *)<\/pre>\n
Note<\/h4>\n
    \n
  1. Le dichiarazioni delle procedure sono tra la sezione delle variabili globali<\/em> e il blocco principale<\/em><\/li>\n
  2. Le procedure<\/em> e il blocco principale<\/em> hanno dimensioni ridotte<\/em> e simili<\/em>.<\/li>\n<\/ol>\n","protected":false},"excerpt":{"rendered":"
    Per semplificare la stesura di un programma si possono usare intensivamente le procedure e richiamarle tramite un menu… Program menu_e_procedure; Uses Crt; Var scelta: Integer; (* —————————————————————————- *) Procedure opzione1; Begin … End; Procedure opzione2; Begin … End; Procedure presentazione; Begin … End; Procedure menu; Begin ClrScr; Writeln(‘—TITOLO—‘); Writeln(‘ 0. Uscita’); Writeln(‘ 1. Opzione 1’); … Leggi tutto<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"_links":{"self":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/190"}],"collection":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/comments?post=190"}],"version-history":[{"count":3,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/190\/revisions"}],"predecessor-version":[{"id":197,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/190\/revisions\/197"}],"wp:attachment":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/media?parent=190"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/categories?post=190"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/tags?post=190"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}