esercizi di chimica con turbo pascal 1.1 su mac

procedure usate in altri programmi

procedure dati;
begin
n[1]:='H';p[1]:=1;e[1]:=2.1;
n[2]:='He';p[2]:=4;e[2]:=0;
n[3]:='Li';p[3]:=7;e[3]:=1;
n[4]:='Be';p[4]:=9;e[4]:=1.5;
n[5]:='B';p[5]:=11;e[5]:=2;
n[6]:='C';p[6]:=12;e[6]:=2.5;
n[7]:='N';p[7]:=14;e[7]:=3;
n[8]:='O';p[8]:=16;e[8]:=3.5;
n[9]:='F';p[9]:=19;e[9]:=4;
n[10]:='Ne';p[10]:=20;e[10]:=0;
n[11]:='Na';p[11]:=23;e[11]:=0.9;
n[12]:='Mg';p[12]:=24;e[12]:=1.2;
n[13]:='Al';p[13]:=27;e[13]:=1.5;
n[14]:='Si';p[14]:=28;e[14]:=1.8;
n[15]:='P';p[15]:=31;e[15]:=2.1;
n[16]:='S';p[16]:=32;e[16]:=2.5;
n[17]:='Cl';p[17]:=35;e[17]:=3;
n[18]:='Ar';p[18]:=40;e[18]:=0;
n[19]:='K';p[19]:=39;e[19]:=0.8;
n[20]:='Ca';p[20]:=40;e[20]:=1;
n[21]:='Sc';p[21]:=45;e[21]:=1.3;
n[22]:='Ti';p[22]:=48;e[22]:=1.6;
n[23]:='V';p[23]:=51;e[23]:=1.6;
n[24]:='Cr';p[24]:=52;e[24]:=1.6;
n[25]:='Mn';p[25]:=55;e[25]:=1.5;
n[26]:='Fe';p[26]:=56;e[26]:=1.8;
n[27]:='Co';p[27]:=59;e[27]:=1.8;
n[28]:='Ni';p[28]:=59;e[28]:=1.8;
n[29]:='Cu';p[29]:=64;e[29]:=1.9;
n[30]:='Zn';p[30]:=65;e[30]:=1.6;
n[31]:='Ga';p[31]:=70;e[31]:=1.6;
n[32]:='Ge';p[32]:=73;e[32]:=1.8;
n[33]:='As';p[33]:=75;e[33]:=2;
n[34]:='Se';p[34]:=79;e[34]:=2.4;
n[35]:='Br';p[35]:=80;e[35]:=2.8;
n[36]:='Kr';p[36]:=84;e[36]:=0;
n[37]:='Rb';p[37]:=85;e[37]:=0.8;
n[38]:='Sr';p[38]:=88;e[38]:=1;
n[39]:='Y';p[39]:=89;e[39]:=1.2;
n[40]:='Zr';p[40]:=91;e[40]:=1.4;
n[41]:='Nb';p[41]:=93;e[41]:=1.6;
n[42]:='Mo';p[42]:=96;e[42]:=1.8;
n[43]:='Tc';p[43]:=99;e[43]:=1.9;
n[44]:='Ru';p[44]:=101;e[44]:=2.2;
n[45]:='Rh';p[45]:=103;e[45]:=2.2;
n[46]:='Pd';p[46]:=106;e[46]:=2.2;
n[47]:='Ag';p[47]:=108;e[47]:=1.9;
n[48]:='Cd';p[48]:=112;e[48]:=1.7;
n[49]:='In';p[49]:=115;e[49]:=1.7;
n[50]:='Sn';p[50]:=119;e[50]:=1.8;
n[51]:='Sb';p[51]:=122;e[51]:=1.9;
n[52]:='Te';p[52]:=128;e[52]:=2.1;
n[53]:='I';p[53]:=127;e[53]:=2.5;
n[54]:='Xe';p[54]:=131;e[54]:=0;
n[55]:='Cs';p[55]:=133;e[55]:=0.7;
n[56]:='Ba';p[56]:=137;e[56]:=0.9;
n[57]:='La';p[57]:=139;e[57]:=1.1;
n[58]:='Ce';p[58]:=140;e[58]:=1.1;
n[59]:='Pr';p[59]:=141;e[59]:=1.1;
n[60]:='Nd';p[60]:=144;e[60]:=1.2;
n[61]:='Pm';p[61]:=145;e[61]:=1.2;
n[62]:='Sm';p[62]:=150;e[62]:=1.2;
n[63]:='Eu';p[63]:=152;e[63]:=1.2;
n[64]:='Gd';p[64]:=157;e[64]:=1.1;
n[65]:='Tb';p[65]:=159;e[65]:=1.2;
n[66]:='Dy';p[66]:=162;e[66]:=1.2;
n[67]:='Ho';p[67]:=165;e[67]:=1.2;
n[68]:='Er';p[68]:=167;e[68]:=1.2;
n[69]:='Tm';p[69]:=169;e[69]:=1.2;
n[70]:='Yb';p[70]:=173;e[70]:=1.1;
n[71]:='Lu';p[71]:=174;e[71]:=1.2;
n[72]:='Hf';p[72]:=178;e[72]:=1.3;
n[73]:='Ta';p[73]:=181;e[73]:=1.5;
n[74]:='W';p[74]:=184;e[74]:=1.7;
n[75]:='Re';p[75]:=186;e[75]:=1.9;
n[76]:='Os';p[76]:=190;e[76]:=2.2;
n[77]:='Ir';p[77]:=192;e[77]:=2.2;
n[78]:='Pt';p[78]:=195;e[78]:=2.2;
n[79]:='Au';p[79]:=197;e[79]:=2.4;
n[80]:='Hg';p[80]:=201;e[80]:=1.9;
n[81]:='Tl';p[81]:=204;e[81]:=1.8;
n[82]:='Pb';p[82]:=207;e[82]:=1.8;
n[83]:='Bi';p[83]:=209;e[83]:=1.9;
n[84]:='Po';p[84]:=209;e[84]:=2;
n[85]:='At';p[85]:=210;e[85]:=2.2;
n[86]:='Rn';p[86]:=222;e[86]:=0;
n[87]:='Fr';p[87]:=223;e[87]:=0.7;
n[88]:='Ra';p[88]:=226;e[88]:=0.9;
n[89]:='Ac';p[89]:=227;e[89]:=1.1;
n[90]:='Th';p[90]:=232;e[90]:=1.3;
n[91]:='Pa';p[91]:=231;e[91]:=1.5;
n[92]:='U';p[92]:=238;e[92]:=1.7;
end;

procedure datix;
(* archivio con formule,pesi molecolari,valenza *)
(* richiamato da tabula2 *)
(* aggiungere dati e modificare valore di k nel programma tabula2 *)

begin
n[1]:='HCl';p[1]:=36;v[1]:=1;
n[2]:='HF';p[2]:=20;v[2]:=1;
n[3]:='HI';p[3]:=128;v[3]:=1;
n[4]:='HBr';p[4]:=81;v[4]:=1;
n[5]:='H2S';p[5]:=34;v[5]:=2;
n[6]:='HNO3';p[6]:=63;v[6]:=1;
n[7]:='HNO2';p[7]:=47;v[7]:=1;
n[8]:='H2SO3';p[8]:=82;v[8]:=2;
n[9]:='H2SO4';p[9]:=98;v[9]:=2;
n[10]:='H2CO3';p[10]:=62;v[10]:=2;
end;

(* da usare con noxi5 *)

procedure datiy;
begin
n[1]:='Li';va[1]:=1;q[1]:=1;
n[2]:='Na';va[2]:=1;q[2]:=1;
n[3]:='K';va[3]:=1;q[3]:=1;
n[4]:='Rb';va[4]:=1;q[4]:=1;
n[5]:='Cs';va[5]:=1;q[5]:=1;
n[6]:='Fr';va[6]:=1;q[6]:=1;
n[7]:='Be';va[7]:=2;q[7]:=1;
n[8]:='Mg';va[8]:=2;q[8]:=1;
n[9]:='Ca';va[9]:=2;q[9]:=1;
n[10]:='Sr';va[10]:=2;q[10]:=1;
n[11]:='Ba';va[11]:=2;q[11]:=1;
n[12]:='Ra';va[12]:=2;q[12]:=1;
n[13]:='Sc';va[13]:=3;q[13]:=1;
n[14]:='Y';va[14]:=3;q[14]:=1;
n[15]:='La';va[15]:=3;q[15]:=1;
n[16]:='Ac';va[16]:=3;q[16]:=1;
n[17]:='Zr';va[17]:=4;q[17]:=1;
n[18]:='Hf';va[18]:=4;q[18]:=1;
n[19]:='Ku';va[19]:=4;q[19]:=1;
n[20]:='Ta';va[20]:=5;q[20]:=1;
n[21]:='Ag';va[21]:=1;q[21]:=1;
n[22]:='Cd';va[22]:=2;q[22]:=1;
n[23]:='Zn';va[23]:=2;q[23]:=1;
n[24]:='Al';va[24]:=3;q[24]:=1;
n[25]:='Ga';va[25]:=3;q[25]:=1;
n[26]:='In';va[26]:=3;q[26]:=1;
n[27]:='Ti';va[27]:=3;q[27]:=2;
n[28]:='Ti';va[28]:=4;q[28]:=2;
n[29]:='V';va[29]:=2;q[29]:=2;
n[30]:='V';va[30]:=3;q[30]:=2;
n[31]:='Cr';va[31]:=2;q[31]:=2;
n[32]:='Cr';va[32]:=3;q[32]:=2;
n[33]:='Mo';va[33]:=2;q[33]:=2;
n[34]:='Mo';va[34]:=3;q[34]:=2;
n[35]:='Mn';va[35]:=2;q[35]:=2;
n[36]:='Mn';va[36]:=3;q[36]:=2;
n[37]:='Fe';va[37]:=2;q[37]:=2;
n[38]:='Fe';va[38]:=3;q[38]:=2;
n[39]:='Co';va[39]:=2;q[39]:=2;
n[40]:='Co';va[40]:=3;q[40]:=2;
n[41]:='Ni';va[41]:=2;q[41]:=2;
n[42]:='Ni';va[42]:=3;q[42]:=2;
n[43]:='Pd';va[43]:=2;q[43]:=2;
n[44]:='Pd';va[44]:=4;q[44]:=2;
n[45]:='Pt';va[45]:=2;q[45]:=2;
n[46]:='Pt';va[46]:=4;q[46]:=2;
n[47]:='Cu';va[47]:=1;q[47]:=2;
n[48]:='Cu';va[48]:=2;q[48]:=2;
n[49]:='Au';va[49]:=1;q[49]:=2;
n[50]:='Au';va[50]:=3;q[50]:=2;
n[51]:='Hg';va[51]:=1;q[51]:=2;
n[52]:='Hg';va[52]:=2;q[52]:=2;
n[53]:='Sn';va[53]:=2;q[53]:=2;
n[54]:='Sn';va[54]:=4;q[54]:=2;
n[55]:='Pb';va[55]:=2;q[55]:=2;
n[56]:='Pb';va[56]:=4;q[56]:=2;
n[57]:='Sb';va[57]:=3;q[57]:=2;
n[58]:='Bi';va[58]:=3;q[58]:=2;
n[59]:='Po';va[59]:=2;q[59]:=2;
n[60]:='Po';va[60]:=4;q[60]:=2;
n[61]:='Th';va[61]:=4;q[61]:=2;
n[62]:='Nd';va[62]:=3;q[62]:=2;
n[63]:='U';va[63]:=3;q[63]:=2;
n[64]:='Co';va[64]:=4;q[64]:=2;
end;