{"id":249,"date":"2014-12-30T11:37:00","date_gmt":"2014-12-30T10:37:00","guid":{"rendered":"http:\/\/www.valcon.it\/pascal\/?p=249"},"modified":"2014-12-30T11:54:13","modified_gmt":"2014-12-30T10:54:13","slug":"procedure-senza-parametri","status":"publish","type":"post","link":"https:\/\/www.valcon.it\/pascal\/procedure-senza-parametri\/","title":{"rendered":"Procedure senza parametri"},"content":{"rendered":"<p><img loading=\"lazy\" decoding=\"async\" class=\" wp-image-61 size-full aligncenter\" src=\"http:\/\/www.valcon.it\/pascal\/wp-content\/uploads\/sub0.png\" alt=\"sub0\" width=\"124\" height=\"124\" \/><\/p>\n<p>Pulisce lo schermo cancellando 25 volte la prima linea<\/p>\n<pre class=\"\">Procedure pulisciSchermo1;\r\nVar\r\n\u00a0 \u00a0i: Integer;\r\nBegin\r\n\u00a0 \u00a0GotoXY(1,1);\r\n\u00a0 \u00a0For i:=1 To 25 Do\r\n\u00a0 \u00a0Begin\r\n\u00a0 \u00a0 \u00a0 DelLine;\r\n\u00a0 \u00a0 \u00a0 Delay(100);\r\n\u00a0 \u00a0End;\r\nEnd;<\/pre>\n<p>Pulisce lo schermo inserendo 25 volte la prima linea<\/p>\n<pre class=\"\">Procedure pulisciSchermo2;\r\n...\r\n\u00a0 \u00a0 InsLine;\r\n...<\/pre>\n<p>Pulisce lo schermo scrivendo 2000 volte uno &#8216;spazio&#8217; nell&#8217;angolo in alto a sinistra<\/p>\n<pre class=\"\">Procedure pulisciSchermo3;\r\nVar\r\n \u00a0 i: Integer;\r\nBegin\r\n \u00a0 GotoXY(1,1);\r\n \u00a0 For i:=1 To 2000 Do\r\n \u00a0 Begin\r\n\u00a0 \u00a0 \u00a0 Write(' ');\r\n\u00a0 \u00a0 \u00a0 Delay(2);\r\n \u00a0 End;\r\nEnd;<\/pre>\n<p>Sporca lo schermo scrivendo 1000 volte il carattere &#8216;X&#8217; in posizione casuale<\/p>\n<pre class=\"\">Procedure sporcaSchermo1;\r\nVar\r\n\u00a0\u00a0 i: Integer;\r\nBegin\r\n\u00a0\u00a0 For i:=1 To 1000 Do\r\n\u00a0\u00a0 Begin\r\n\u00a0 \u00a0 \u00a0 GotoXY(Random(80)+1, Random(25)+1);\r\n\u00a0 \u00a0 \u00a0 Write('X');\r\n\u00a0 \u00a0 \u00a0 Delay(5);\r\n\u00a0\u00a0 End;\r\nEnd;<\/pre>\n<p>Sporca lo schermo scrivendo 3000 volte il carattere &#8216;X&#8217; in posizione casuale con colore casuale<\/p>\n<pre class=\"\">Procedure sporcaSchermo2;\r\nVar\r\n\u00a0\u00a0 i: Integer;\r\nBegin\r\n\u00a0\u00a0 For i:=1 To 3000 Do\r\n\u00a0\u00a0 Begin\r\n\u00a0 \u00a0 \u00a0 GotoXY(Random(80)+1, Random(25)+1);\r\n\u00a0 \u00a0 \u00a0 TextColor(Random(16));\r\n\u00a0 \u00a0 \u00a0 Write('X');\r\n\u00a0 \u00a0 \u00a0 Delay(2);\r\n\u00a0\u00a0 End;\r\n\u00a0\u00a0 TextColor(8); { rimette a posto il colore di primo piano per il prossimo menu...}\r\nEnd;<\/pre>\n<p>Lancia un dado: scrive sullo schermo un numero casuale tra 1 e 6<\/p>\n<pre class=\"\">Procedure lanciaDado;\r\nVar\r\n\u00a0\u00a0 dado: Integer;\r\nBegin\r\n\u00a0\u00a0 dado:=Random(6)+1:\r\n\u00a0\u00a0 Write(dado:2);\r\nEnd;<\/pre>\n<p>Lancia due dadi: scrive sullo schermo un numero casuale tra 2 e 12?<\/p>\n<pre class=\"\">Procedure lancia2dadi;\r\nVar\r\n\u00a0\u00a0 dado1,\r\n\u00a0\u00a0 dado2: Integer;\r\nBegin\r\n\u00a0\u00a0 dado1:=Random(6)+1:\r\n\u00a0\u00a0 dado2:=Random(6)+1:\u00a0\r\n\u00a0\u00a0 Write((dado1+dado2):4);\r\nEnd;<\/pre>\n<h3>ESERCIZI<\/h3>\n<p>Usa intensivamente le procedure&#8230;<\/p>\n<ul>\n<li>PosizioneRandom, ColoreRandom, CifraRandom, CarattereRandom<\/li>\n<li>PausaBreveRandom, PausaLungaRandom<\/li>\n<li>Lancia100Volte1Dado, Lancia100Volte2Dadi<\/li>\n<li><em>per semplificare il main<\/em><br \/>\nPresentazione, Uscita, Aspetta, &#8230;<\/li>\n<li><em>per ripassare tipi e operatori, ciascuna procedura visualizza una tabella esplicativa dell&#8217;operatore logico<\/em><br \/>\nProvoNot, ProvoOr, ProvoAnd, ProvoXor<\/li>\n<li><em>per ripassare tipi e operatori, ciascuna procedura visualizza i risultati di ogni operazione applicabile a una coppia di valori di un certo tipo<\/em><br \/>\nProvoInteri, ProvoReali, ProvoCaratteri, ProvoStringhe<\/li>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>Pulisce lo schermo cancellando 25 volte la prima linea Procedure pulisciSchermo1; Var \u00a0 \u00a0i: Integer; Begin \u00a0 \u00a0GotoXY(1,1); \u00a0 \u00a0For i:=1 To 25 Do \u00a0 \u00a0Begin \u00a0 \u00a0 \u00a0 DelLine; \u00a0 \u00a0 \u00a0 Delay(100); \u00a0 \u00a0End; End; Pulisce lo schermo inserendo 25 volte la prima linea Procedure pulisciSchermo2; &#8230; \u00a0 \u00a0 InsLine; &#8230; Pulisce lo &#8230; <a title=\"Procedure senza parametri\" class=\"read-more\" href=\"https:\/\/www.valcon.it\/pascal\/procedure-senza-parametri\/\" aria-label=\"Leggi di pi\u00f9 su Procedure senza parametri\">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\/249"}],"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=249"}],"version-history":[{"count":5,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/249\/revisions"}],"predecessor-version":[{"id":258,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/249\/revisions\/258"}],"wp:attachment":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/media?parent=249"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/categories?post=249"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/tags?post=249"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}