{"id":611,"date":"2014-12-31T18:06:05","date_gmt":"2014-12-31T17:06:05","guid":{"rendered":"http:\/\/www.valcon.it\/pascal\/?p=611"},"modified":"2015-07-03T18:27:47","modified_gmt":"2015-07-03T16:27:47","slug":"lista-con-testa-e-coda","status":"publish","type":"post","link":"https:\/\/www.valcon.it\/pascal\/lista-con-testa-e-coda\/","title":{"rendered":"Lista con testa e coda"},"content":{"rendered":"<p>Puntatore di testa, puntatore di coda e tre nodi con informazioni A-B-C<br \/>\n<img decoding=\"async\" title=\"WikiImage\" src=\"http:\/\/www.valcon.it\/pascal\/wp-content\/uploads\/listatc.gif\" alt=\"image\" \/><\/p>\n<h3>Dichiarazioni<\/h3>\n<pre>Type\r\n   tInfo \u00a0 = \"qualsiasi\"; {le informazioni nel nodo}\r\n   pNodoTC = ^NodoTC;\r\n   NodoTC \u00a0= Record\r\n      Info: tInfo;\r\n      Succ: pNodoTC;\r\n   End;\r\n   ListaTC = Record \u00a0 \u00a0 \u00a0 {puntatori di testa e di coda}\r\n      Testa,\r\n      Coda: pNodoTC;\r\n   End;<\/pre>\n<h3>Operazioni<\/h3>\n<p>Aggiungere un nodo in Testa<\/p>\n<pre>procedure AggInTesta(var L: ListaTC; X: tInfo);\r\nVar\r\n   P: pNodoTC;\r\nBegin\r\n   New(P);\r\n   P^.Info:=X;\r\n   P^.Succ:=L.Testa;\r\n   If(L.Testa = Nil) Then\r\n      L.Coda:=P;\r\n   L.Testa:=P;\r\nEnd;<\/pre>\n<p>Aggiungere un nodo in Coda<\/p>\n<pre>procedure AggInCoda(Var L: ListaTC; X: tInfo);\r\nVar\r\n   P: pNodoTC;\r\nBegin\r\n   New(P);\r\n   P^.Info:=X;\r\n   P^.Succ:=Nil;\r\n   If(L.Testa = Nil) Then\r\n      L.Testa:=P\r\n   Else\r\n      L.Coda^.Succ:=P;\r\n   L.Coda:=P;\r\nEnd;<\/pre>\n<p>Aggiungere un nodo in Ordine<\/p>\n<pre>procedure AggInOrdine(Var L: TListaTC; X: tInfo);\r\nVar\r\n   P, Q, R: pNodoTC;\r\nBegin\r\n   New(P);\r\n   P^.Info:=X;\r\n   If(L.Testa = Nil) Or (X <= L.Testa^.Info) Then\r\n      Begin\r\n         P^.Succ:=L.Testa; \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 {...aggiungi primo nodo...}\r\n         L.Testa:=P;\r\n         If(L.Coda = Nil) Then \u00a0 \u00a0 \u00a0 {...aggiungi in testa...}\r\n            L.Coda:=P;\r\n      End\r\n   Else If(L.Coda^.Info <= X) Then\r\n      Begin\r\n         P^.Succ:=Nil; \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 {...aggiungi in coda...}\r\n         L.Coda^.Succ:=P;\r\n         L.Coda:=P;\r\n      End\r\n   Else\r\n      Begin\r\n         Q:=L.Testa; \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 {...aggiungi Prima di R...}\r\n         R:=L.Testa^.Succ;\r\n         While(R^.Chiave < N.Chiave) Do\r\n            Begin\r\n               Q:=R;\r\n               R:=R^.Succ;\r\n            End;\r\n         Q^.Succ:=P;\r\n         P^.Succ:=R;\r\n      End;\r\nEnd;<\/pre>\n<p>Eliminare un nodo in Testa<\/p>\n<pre>procedure EliInTesta(Var L: ListaTC);\r\nVar\r\n   P: pNodoTC;\r\nBegin\r\n   If(L.Testa <> Nil) Then\r\n      Begin\r\n         P:=L.Testa;\r\n         L.Testa:=L.Testa^.Succ;\r\n         If(L.Testa = Nil) Then\r\n            L.Coda:=Nil;\r\n         Dispose(P);\r\n      End;\r\nEnd;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Puntatore di testa, puntatore di coda e tre nodi con informazioni A-B-C Dichiarazioni Type tInfo \u00a0 = &#8220;qualsiasi&#8221;; {le informazioni nel nodo} pNodoTC = ^NodoTC; NodoTC \u00a0= Record Info: tInfo; Succ: pNodoTC; End; ListaTC = Record \u00a0 \u00a0 \u00a0 {puntatori di testa e di coda} Testa, Coda: pNodoTC; End; Operazioni Aggiungere un nodo in Testa &#8230; <a title=\"Lista con testa e coda\" class=\"read-more\" href=\"https:\/\/www.valcon.it\/pascal\/lista-con-testa-e-coda\/\" aria-label=\"Leggi di pi\u00f9 su Lista con testa e coda\">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\/611"}],"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=611"}],"version-history":[{"count":4,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/611\/revisions"}],"predecessor-version":[{"id":5674,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/611\/revisions\/5674"}],"wp:attachment":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/media?parent=611"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/categories?post=611"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/tags?post=611"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}