{"id":643,"date":"2014-12-31T22:05:38","date_gmt":"2014-12-31T21:05:38","guid":{"rendered":"http:\/\/www.valcon.it\/pascal\/?p=643"},"modified":"2015-07-03T13:31:49","modified_gmt":"2015-07-03T11:31:49","slug":"unita-insiemi","status":"publish","type":"post","link":"https:\/\/www.valcon.it\/pascal\/unita-insiemi\/","title":{"rendered":"Unit\u00e0 Insiemi"},"content":{"rendered":"<h3>Analisi<\/h3>\n<p>&#8230;<\/p>\n<h3>Unit\u00e0<\/h3>\n<pre class=\"\">{************************************************************************}\r\nUnit Insiemi;\r\n{************************************************************************}\r\nINTERFACE\r\n{************************************************************************}\r\nConst\u00a0MaxIns   = 20;\r\nType\u00a0 Elemento = 1..MaxIns;\r\n\u00a0 \u00a0   Insieme  = Array[Elemento] Of Boolean;\r\n\r\nProcedure AggiungiE \u00a0 \u00a0(Var I: Insieme; e: Elemento \u00a0 \u00a0 );\r\nProcedure TogliE \u00a0 \u00a0 \u00a0 (Var I: Insieme; e: Elemento \u00a0 \u00a0 );\r\n\u00a0Function AppartieneE \u00a0( \u00a0 \u00a0I: Insieme; e: Elemento \u00a0 \u00a0 ): Boolean;\r\n\r\nProcedure VuoToI \u00a0 \u00a0 \u00a0 (Var I: Insieme \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0);\r\nProcedure ComplemenToI (Var I: Insieme \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0);\r\n\r\nProcedure UnioneI \u00a0 \u00a0 \u00a0(i1, i2: Insieme; Var i3: Insieme);\r\nProcedure IntersezioneI(i1, i2: Insieme; Var i3: Insieme);\r\nProcedure DifferenzaI \u00a0(i1, i2: Insieme; Var i3: Insieme);\r\n\r\n{\r\n\u00a0sono ancora da fare le operazioni:\r\n\r\n\u00a0Function InclusoUgI \u00a0 (i1, i2: Insieme): Boolean;\r\n\u00a0Function IncludeUgI \u00a0 (i1, i2: Insieme): Boolean;\r\n\u00a0Function UgualiI \u00a0 \u00a0 \u00a0(i1, i2: Insieme): Boolean;\r\n\u00a0Function DiversiI \u00a0 \u00a0 (i1, i2: Insieme): Boolean;\r\n}\r\n\r\n{************************************************************************}\r\nIMPLEMENTATION\r\n{************************************************************************}\r\n\r\n{********************* incapsulamenTo dei dati ... **********************}\r\nProcedure AggiungiE(Var I: Insieme; e: Elemento);\r\nBegin\r\n \u00a0 I[e]:=True;\r\nEnd;\r\nProcedure TogliE(Var I: Insieme; e: Elemento);\r\nBegin\r\n \u00a0 I[e]:=False;\r\nEnd;\r\nFunction AppartieneE(I: Insieme; e: Elemento): Boolean;\r\nBegin\r\n \u00a0 AppartieneE:=(I[e]);\r\nEnd;\r\n{************************************************************************}\r\nProcedure VuoToI(Var I: Insieme);\r\nVar\r\n\u00a0 \u00a0e: Elemento;\r\nBegin\r\n\u00a0 \u00a0For e:=1 To maxIns Do\r\n\u00a0 \u00a0 \u00a0 TogliE(I, e);\r\nEnd;\r\nProcedure ComplemenToI(Var I: Insieme);\r\nVar\r\n\u00a0 \u00a0e: Elemento;\r\nBegin\r\n\u00a0 \u00a0For e:=1 To maxIns Do\r\n\u00a0 \u00a0 \u00a0 if(AppartieneE(I, e)) Then\r\n \u00a0 \u00a0 \u00a0 \u00a0 TogliE(I, e)\r\n\u00a0 \u00a0 \u00a0 else\r\n \u00a0 \u00a0 \u00a0 \u00a0 AggiungiE(I, e);\r\nEnd;\r\nProcedure UnioneI(i1, i2: Insieme; Var i3: Insieme);\r\nVar\r\n\u00a0 \u00a0e: Elemento;\r\nBegin\r\n\u00a0 \u00a0VuoToI(i3);\r\n\u00a0 \u00a0For e:=1 To maxIns Do\r\n\u00a0 \u00a0 \u00a0 if(AppartieneE(i1, e) Or AppartieneE(i2, e)) Then\r\n \u00a0 \u00a0 \u00a0 \u00a0 AggiungiE(i3, e);\r\nEnd;\r\n\r\nProcedure IntersezioneI(i1, i2: Insieme; Var i3: Insieme);\r\nVar\r\n\u00a0 \u00a0e: Elemento;\r\nBegin\r\n\u00a0 \u00a0VuoToI(i3);\r\n\u00a0 \u00a0For e:=1 To maxIns Do\r\n\u00a0 \u00a0 \u00a0 if(AppartieneE(i1, e) And AppartieneE(i2, e)) Then\r\n \u00a0 \u00a0 \u00a0 \u00a0 AggiungiE(i3, e);\r\nEnd;\r\n\r\nProcedure DifferenzaI(i1, i2: Insieme; Var i3: Insieme);\r\nVar\r\n\u00a0 \u00a0e: Elemento;\r\nBegin\r\n\u00a0 \u00a0VuoToI(i3);\r\n\u00a0 \u00a0For e:=1 To maxIns Do\r\n\u00a0 \u00a0 \u00a0 if(AppartieneE(i1, e) And Not AppartieneE(i2, e)) Then\r\n \u00a0 \u00a0 \u00a0 \u00a0 AggiungiE(i3, e);\r\nEnd;\r\n\r\n{************************************************************************}\r\nBegin\r\n\u00a0 \u00a0writeln('Unit Insiemi 20\/11\/2000...');\r\n\u00a0 \u00a0readln;\r\nEnd.\r\n{************************************************************************}<\/pre>\n<p>oppure, senza incapsulare &#8230;<\/p>\n<pre class=\"\">Procedure VuoToI(Var I: Insieme);\r\nVar\r\n\u00a0 \u00a0e: Elemento;\r\nBegin\r\n\u00a0 \u00a0For e:=1 To maxIns Do\r\n\u00a0 \u00a0 \u00a0 I[e]:=False;\r\nEnd;\r\n\r\nProcedure ComplemenToI(Var I: Insieme);\r\nVar\r\n\u00a0 \u00a0e: Elemento;\r\nBegin\r\n\u00a0 \u00a0For e:=1 To maxIns Do\r\n    \u00a0 I[e]:=(Not I[e]);\r\nEnd;\r\n\r\nProcedure UnioneI(i1, i2: Insieme; Var i3: Insieme);\r\nVar\r\n \u00a0 e: Elemento;\r\nBegin\r\n \u00a0 For e:=1 To maxIns Do\r\n \u00a0 \u00a0 \u00a0i3[e]:=(i1[e] Or i2[e]);\r\nEnd;\r\n\r\nProcedure IntersezioneI(i1, i2: Insieme; Var i3: Insieme);\r\nVar\r\n \u00a0 e: Elemento;\r\nBegin\r\n \u00a0 For e:=1 To maxIns Do\r\n \u00a0 \u00a0 \u00a0i3[e]:=(i1[e] And i2[e]);\r\nEnd;\r\n\r\nProcedure DifferenzaI(i1, i2: Insieme; Var i3: Insieme);\r\nVar\r\n \u00a0 e: Elemento;\r\nBegin\r\n \u00a0 For e:=1 To maxIns Do\r\n \u00a0 \u00a0 \u00a0i3[e]:=(i1[e] And Not i2[e]); \u00a0 \u00a0{!!!}\r\nEnd;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Analisi &#8230; Unit\u00e0 {************************************************************************} Unit Insiemi; {************************************************************************} INTERFACE {************************************************************************} Const\u00a0MaxIns = 20; Type\u00a0 Elemento = 1..MaxIns; \u00a0 \u00a0 Insieme = Array[Elemento] Of Boolean; Procedure AggiungiE \u00a0 \u00a0(Var I: Insieme; e: Elemento \u00a0 \u00a0 ); Procedure TogliE \u00a0 \u00a0 \u00a0 (Var I: Insieme; e: Elemento \u00a0 \u00a0 ); \u00a0Function AppartieneE \u00a0( \u00a0 \u00a0I: Insieme; e: Elemento &#8230; <a title=\"Unit\u00e0 Insiemi\" class=\"read-more\" href=\"https:\/\/www.valcon.it\/pascal\/unita-insiemi\/\" aria-label=\"Leggi di pi\u00f9 su Unit\u00e0 Insiemi\">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":[10],"tags":[],"_links":{"self":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/643"}],"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=643"}],"version-history":[{"count":1,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/643\/revisions"}],"predecessor-version":[{"id":644,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/643\/revisions\/644"}],"wp:attachment":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/media?parent=643"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/categories?post=643"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/tags?post=643"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}