{"id":506,"date":"2012-10-16T09:04:15","date_gmt":"2012-10-16T07:04:15","guid":{"rendered":"http:\/\/www.gpeano.org\/oddenino\/?p=506"},"modified":"2012-10-16T09:04:15","modified_gmt":"2012-10-16T07:04:15","slug":"temperature-esempio-di-programma-con-gli-array","status":"publish","type":"post","link":"https:\/\/liceocuneo.it\/oddenino\/temperature-esempio-di-programma-con-gli-array\/","title":{"rendered":"Temperature &#8211; Esempio di programma con gli array"},"content":{"rendered":"<pre>const\n\u00a0 nMax = 100;\n\nvar\n\u00a0 frmTemperature: TfrmTemperature;\n\u00a0 citta: array[1..nMax] of String;\n\u00a0 temp: array[1..nMax] of Double;\n\u00a0 nCitta: Integer;<\/pre>\n<pre>procedure TfrmTemperature.btnCaricaClick(Sender: TObject);\nvar\n\u00a0 i: Integer;\nbegin\n\u00a0 for i:=1 to nMax do\n\u00a0 begin\n\u00a0\u00a0\u00a0 citta[i]:=InputBox('Citt\u00e0',\n      'Inserisci il nome (stringa vuota per finire): ', '');\n\u00a0\u00a0\u00a0 if citta[i]='' then\n\u00a0\u00a0\u00a0 begin\n\u00a0\u00a0\u00a0\u00a0\u00a0 nCitta:=i-1;\n\u00a0\u00a0\u00a0\u00a0\u00a0 Exit;\n\u00a0\u00a0\u00a0 end;\n\u00a0\u00a0\u00a0 temp[i]:=StrToFLoat(InputBox('Temperature',\n      'Inserisci la temperatura di '+citta[i]+': ', ''));\n\u00a0 end;\nend;\n\nprocedure TfrmTemperature.btnVisualizzaClick(Sender: TObject);\nvar\n\u00a0 i: Integer;\n\u00a0 s: String;\nbegin\n\u00a0 s:='Elenco delle citt\u00e0 inserite e delle temperature'+#13;\n\u00a0 for i:=1 to nCitta do\n\u00a0\u00a0\u00a0 s:=s+citta[i]+'\u00a0\u00a0 '+FloatToStr(temp[i])+' \u00b0C'+#13;\n\u00a0 ShowMessage(s);\nend;\n\nprocedure TfrmTemperature.btnCittaMinClick(Sender: TObject);\nvar\n\u00a0 i: Integer;\n\u00a0 min: Double;\n\u00a0 s: String;\nbegin\n\u00a0 min:=100;\n\/\/ ricerca prima la temperatura minima\n\u00a0 for i:=1 to nCitta do\n\u00a0\u00a0\u00a0 if temp[i]&lt;min then\n\u00a0\u00a0\u00a0\u00a0\u00a0 min:=temp[i];\n\/\/ ricerca poi tutte le citt\u00e0 che hanno la temperatura minima\n  s:='Citt\u00e0 con la temperatura minima: '+FloatToStr(min)+' \u00b0C'+#13;\n\u00a0 for i:=1 to nCitta do\n\u00a0\u00a0\u00a0 if temp[i]=min then\n      s:=s+citta[i]+#13;\n\u00a0 ShowMessage(s);\nend;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>const \u00a0 nMax = 100; var \u00a0 frmTemperature: TfrmTemperature; \u00a0 citta: array[1..nMax] of String; \u00a0 temp: array[1..nMax] of Double; \u00a0 nCitta: Integer; procedure TfrmTemperature.btnCaricaClick(Sender: TObject); var \u00a0 i: Integer; begin \u00a0 for i:=1 to nMax do \u00a0 begin \u00a0\u00a0\u00a0 citta[i]:=InputBox(&#8216;Citt\u00e0&#8217;, &#8216;Inserisci il nome (stringa vuota per finire): &#8216;, &#8221;); \u00a0\u00a0\u00a0 if citta[i]=&#8221; then \u00a0\u00a0\u00a0 begin &hellip; <a href=\"https:\/\/liceocuneo.it\/oddenino\/temperature-esempio-di-programma-con-gli-array\/\" class=\"more-link\">Continua a leggere <span class=\"screen-reader-text\">Temperature &#8211; Esempio di programma con gli array<\/span><\/a><\/p>\n","protected":false},"author":4,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[],"class_list":["post-506","post","type-post","status-publish","format-standard","hentry","category-informatica"],"_links":{"self":[{"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/posts\/506","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/users\/4"}],"replies":[{"embeddable":true,"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/comments?post=506"}],"version-history":[{"count":0,"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/posts\/506\/revisions"}],"wp:attachment":[{"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/media?parent=506"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/categories?post=506"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/liceocuneo.it\/oddenino\/wp-json\/wp\/v2\/tags?post=506"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}