{"id":279,"date":"2014-12-30T14:49:37","date_gmt":"2014-12-30T13:49:37","guid":{"rendered":"http:\/\/www.valcon.it\/pascal\/?p=279"},"modified":"2014-12-30T15:58:28","modified_gmt":"2014-12-30T14:58:28","slug":"prova-i-file","status":"publish","type":"post","link":"https:\/\/www.valcon.it\/pascal\/prova-i-file\/","title":{"rendered":"Prova i file"},"content":{"rendered":"<p>Accesso sequenziale<\/p>\n<pre>Program ProvaFileInteri;\r\nConst\r\n \u00a0 nome='fileinteri.arc';\r\nVar\r\n \u00a0 FI: File of Integer;\r\n \u00a0 x: Integer;\r\n \u00a0 i: Integer;\r\nBegin\r\n \u00a0 Assign(FI, nome);\r\n \u00a0 Rewrite(FI);\r\n \u00a0 For i:=1 To 10 Do\r\n\u00a0 \u00a0 \u00a0 Begin\r\n \u00a0 \u00a0 \u00a0 \u00a0 x:=10*i;\r\n \u00a0 \u00a0 \u00a0 \u00a0 Write(FI, x);\r\n\u00a0 \u00a0 \u00a0 End;\r\n\u00a0  Close(FI);\r\n\u00a0 \u00a0 \r\n\u00a0 \u00a0Reset(FI);\r\n\u00a0 \u00a0While Not Eof(FI) Do\r\n\u00a0 \u00a0 \u00a0 Begin\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 Read(FI, x);\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 Writeln(x);\r\n\u00a0 \u00a0 \u00a0 End;\r\n\u00a0 \u00a0Close(FI);\r\n\u00a0 \u00a0 \r\n\u00a0 \u00a0ReadLn;\r\nEnd.<\/pre>\n<p>Accesso casuale<\/p>\n<pre>Program ProvaFileInteri;\r\nConst\r\n \u00a0 nome='fileinteri.arc';\r\nVar\r\n \u00a0 FI: File of Integer;\r\n \u00a0 x: Integer;\r\n \u00a0 i: Integer;\r\nBegin\r\n \u00a0 Assign(FI, nome);\r\n \u00a0 Rewrite(FI);\r\n \u00a0 For i:=1 To 10 Do\r\n\u00a0 \u00a0 \u00a0 Begin\r\n \u00a0 \u00a0 \u00a0 \u00a0 x:=10*i;\r\n \u00a0 \u00a0 \u00a0 \u00a0 Write(FI, x);\r\n\u00a0 \u00a0 \u00a0 End;\r\n \u00a0 Close(FI);\r\n\u00a0 \u00a0 \r\n\u00a0 \u00a0Reset(FI);\r\n\u00a0 \u00a0For i:=FileSize(FI)-1 DownTo 0 Do\r\n\u00a0 \u00a0 \u00a0 Begin\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 Seek(FI, i);\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 Read(FI, x);\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 Writeln(x);\r\n\u00a0 \u00a0 \u00a0 End;\r\n\u00a0 \u00a0Close(FI);\r\n\u00a0 \u00a0 \r\n\u00a0 \u00a0ReadLn;\r\nEnd.<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Accesso sequenziale Program ProvaFileInteri; Const \u00a0 nome=&#8217;fileinteri.arc&#8217;; Var \u00a0 FI: File of Integer; \u00a0 x: Integer; \u00a0 i: Integer; Begin \u00a0 Assign(FI, nome); \u00a0 Rewrite(FI); \u00a0 For i:=1 To 10 Do \u00a0 \u00a0 \u00a0 Begin \u00a0 \u00a0 \u00a0 \u00a0 x:=10*i; \u00a0 \u00a0 \u00a0 \u00a0 Write(FI, x); \u00a0 \u00a0 \u00a0 End; \u00a0 Close(FI); \u00a0 \u00a0 \u00a0 &#8230; <a title=\"Prova i file\" class=\"read-more\" href=\"https:\/\/www.valcon.it\/pascal\/prova-i-file\/\" aria-label=\"Leggi di pi\u00f9 su Prova i file\">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\/279"}],"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=279"}],"version-history":[{"count":4,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/279\/revisions"}],"predecessor-version":[{"id":283,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/279\/revisions\/283"}],"wp:attachment":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/media?parent=279"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/categories?post=279"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/tags?post=279"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}