const nMax = 100; var frmTemperature: TfrmTemperature; citta: array[1..nMax] of String; temp: array[1..nMax] of Double; nCitta: Integer;
procedure TfrmTemperature.btnCaricaClick(Sender: TObject); var i: Integer; begin for i:=1 to nMax do begin citta[i]:=InputBox('Città', 'Inserisci il nome (stringa vuota per finire): ', ''); if citta[i]='' then begin nCitta:=i-1; Exit; end; temp[i]:=StrToFLoat(InputBox('Temperature', 'Inserisci la temperatura di '+citta[i]+': ', '')); end; end; procedure TfrmTemperature.btnVisualizzaClick(Sender: TObject); var i: Integer; s: String; begin s:='Elenco delle città inserite e delle temperature'+#13; for i:=1 to nCitta do s:=s+citta[i]+' '+FloatToStr(temp[i])+' °C'+#13; ShowMessage(s); end; procedure TfrmTemperature.btnCittaMinClick(Sender: TObject); var i: Integer; min: Double; s: String; begin min:=100; // ricerca prima la temperatura minima for i:=1 to nCitta do if temp[i]<min then min:=temp[i]; // ricerca poi tutte le città che hanno la temperatura minima s:='Città con la temperatura minima: '+FloatToStr(min)+' °C'+#13; for i:=1 to nCitta do if temp[i]=min then s:=s+citta[i]+#13; ShowMessage(s); end;