listati per programmi in turbo
pascal
su argomenti di chimica, con interazione e correzione
program lega5;
(* determinazione tipo di legame tra elementi VALUTAZIONE *)
(* variante di LEGA4 *)
uses crt;
const k=92;
var n:array[1..k] of string;
p:array[1..k] of integer;
e:array[1..k] of real;
fx:array[1..40] of string[15];
s,a,f,prove,esatte,errate,np:integer;
h1,h2,h3,h4:real;
e1,e2,legame,tp,t1,t2:string;
procedure fine;
begin
writeln('premi enter');
readln;
end;
procedure pausa;
begin
writeln('premi ENTER ');readln;
end;
procedure cancella;
begin
clrscr;
end;
procedure datipo;
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 cerca1;
begin
datipo;
for a:=1 to k do
if e1=n[a] then h1:=e[a];
end;
procedure cerca2;
begin
datipo;
for a:=1 to k do
if e2=n[a] then h2:=e[a];
end;
procedure pro1(fx,s1,s2:string;pr:integer);
begin
writeln('indica legami presenti in :',fx,' domanda n.',pr, ' su ', np);
e1:=s1;cerca1;
e2:=s2;cerca2;
WRITELN('------------------------------------------------');
writeln('1=ionico...2=omopolare...3=polare');
writeln('------------------------------------------------');
write('scrivi tipo legame tra ',e1,' ..',e2,' ');readln(tp);
writeln('------------------------------------------------');
h3:=abs(h1-h2);
if h3<0.2 then legame:='2' else
if ((h3>0.2) and (h3<1.7)) then legame:='3' else
legame:='1';
writeln('legame tra elementi tipo :',legame);
if tp=legame then begin writeln('esatto');esatte:=esatte+1; end
else begin writeln('errato:era ',legame);errate:=errate+1;end;
writeln('--------------------------------------------------------------');
writeln('De tra ',e1,' e ',e2,' = ',h3:0:2);
writeln('carica parziale o totale positiva:elemento meno elettronegativo');
writeln('carica parziale o totale negativa:elemento piu elettronegativo');
if ((h3>0.2) and (h3<1.7) and (h1<h2)) then writeln(e1,' +d ',e2,' -d');
if ((h3>0.2) and (h3<1.7) and (h1>h2)) then writeln(e2,' +d ',e1,' -d');
if ((h3=1.7) or (h3>1.7) and (h1<h2)) then writeln(e1,' + ',e2,' -');
if ((h3=1.7) or (h3>1.7) and (h1>h2)) then writeln(e2,' + ',e1,' -');
writeln('-------------------------------------------------------');
writeln('esatte=',esatte, ' errate=',errate);
writeln('-------------------------------------------------------');
pausa;cancella;
end;
procedure pro2(fx,s1:string;pr:integer);
begin
writeln('indica legami presenti in :',fx, ' domanda n.', pr ,' su ', np);
writeln('--------------------------------------------------');
e1:=s1;cerca1;
h3:=3.5-h1;
h2:=1.4;
writeln('1=ionico...2=covalente omopolare..3=covalente polare');
writeln('---------------------------------------------------');
write('scrivi legame tra metallo e ossigeno =');readln(t1);
write('scrivi legame tra idrogeno e ossigeno=');readln(t2);
writeln;
if (t1='1') and (t2='3') then begin
writeln('esatto');esatte:=esatte+1;end
else begin writeln('errato:era 1=ionico tra metallo e ossigeno');
writeln('era 3=covalente polare tra idrogeno e ossigeno');
errate:=errate+1;end;
writeln('------------------------------------------------------');
writeln('De tra Ossigeno e ',e1:8,' = ',h3:0:2,' ionico 1');
writeln('De tra Ossigeno e Idrogeno = 1.4..covalente polare 3');
writeln('-------------------------------------------------------');
writeln('esatte=',esatte, ' errate=',errate);
writeln('-------------------------------------------------------');
pausa;cancella;end;
procedure pro3(fx,s1,s2:string;pr:integer);
var le:string;
begin
writeln('indica legami presenti in :',fx,' domanda n. ',pr, ' su ',np);
writeln('-------------------------------------------------------');
e2:=s2;cerca2;
h4:=3.5-h2;
e1:=s1;cerca1;
h3:=3.5-h1;
if h3<1.7 then le:=' 3=covalente polare' else le:=' 1=ionico';
writeln('1=ionico...2=covalente omopolare...3=covalente polare');
writeln('-------------------------------------------------------');
write('scrivi legame tra metallo e ossigeno =');readln(t1);
write('scrivi legame tra non metallo e ossigeno=');readln(t2);
writeln;
if (t1='1') and (t2='3') then begin
writeln('esatto');esatte:=esatte+1;end
else begin writeln('errato:tra metallo e ossigeno 1=ionico');
writeln('tra non metallo e ossigeno 3=covalente polare');
errate:=errate+1;end;
writeln;
writeln('De tra Ossigeno e ',e1:8,' = ',h3:0:2,le:8);
writeln('De tra Ossigeno e ',e2:8,' = ',h4:0:2,' 3=legame polare');
writeln('-------------------------------------------------------');
writeln('esatte=',esatte, ' errate=',errate);
writeln('-------------------------------------------------------');
pausa;cancella;end;
procedure pro4(fx,s1:string;pr:integer);
var le:string;
begin
writeln('indica legami presenti in :',fx, ' domanda n. ',pr,' su ',np);
writeln('-------------------------------------------------------');
e2:='H';cerca2;
h4:=3.5-h2;
e1:=s1;cerca1;
h3:=3.5-h1;
if h3<1.7 then le:=' 3=covalente polare' else le:=' 1=ionico';
writeln('1=ionico...2=covalente omopolare...3=covalente polare');
writeln('--------------------------------------------------------');
write('scrivi legame tra idrogeno e ossigeno =');readln(t1);
write('scrivi legame tra non metallo e ossigeno=');readln(t2);
writeln;
if (t1='3') and (t2='3') then begin
writeln('esatto');esatte:=esatte+1;end
else begin writeln('errato:tra idrogeno e ossigeno 3=covalente polare');
writeln('tra non metallo e ossigeno 3=covalente polare');
errate:=errate+1;end;
writeln;
writeln('De tra Ossigeno e ',e1:8,' = ',h3:0:2,le:8);
writeln('De tra Ossigeno e ',e2:8,' = ',h4:0:2,' 3=covalente polare');
writeln('-------------------------------------------------------');
writeln('esatte=',esatte, ' errate=',errate);
writeln('-------------------------------------------------------');
pausa;cancella;end;
procedure scelta;
begin
cancella;
pro1('HCl','H','Cl',1);
pro2('NaOH','Na',2);
pro3('NaNO3','Na','N',3);
pro4('H2SO4','S',4);
pro1('HF','H','F',5);
pro2('Ca(OH)2','Ca',6);
pro3('KNO2','K','N',7);
pro4('H2CO4','C',8);
pro1('H2S','H','S',9);
pro2('KOH','K',10);
pro3('Ba(NO3)2','Ba','N',11);
pro4('HNO3','N',12);
pro1('NaCl','Na','Cl',13);
pro2('Mg(OH)2','Mg',14);
pro3('AlPO4','Al','P',15);
pro4('HClO4','Cl',16);
pro1('SO2','S','O',17);
pro2('LiOH','Li',18);
pro3('CaSO3','Ca','S',19);
pro4('HFO3','F',20);
writeln('----------------------------');
end;
begin
cancella;
writeln('programma:determina tipo legame chimico tra elementi');
writeln('si deve consultare la tabella delle elettronegativit…');
writeln('e determinare il tipo di legame che si pu• prevedere');
writeln('tra gli atomi delle molecole presentate');
writeln('----------------------------------------------------');
writeln('si deve rispondere scrivendo dei NUMERI al posto del legame');
writeln('1 per legame ionico con De>1.7 ');
writeln('2 per legame covalente omopolare con De<0.2');
writeln('3 per legame covalente polare con De>0.2 e De<1.7 ');
writeln('---------------------------------------------------');
np:=20;
scelta;
writeln('esatte =',esatte);
writeln('errate =',errate);
if esatte>errate then writeln('sufficiente')
else writeln('insufficiente:studia ancora');
writeln('chiama insegnante per integrare valutazione');
readln;
end.
program lega6;
(* determinazione tipo di legame tra molecole VALUTAZIONE *)
uses crt;
var
s,a,f,prove,esatte,errate,np:integer;
tp:string;
procedure fine;
begin
writeln('premi enter');
readln;
end;
procedure pausa;
begin
writeln('premi ENTER ');readln;
end;
procedure cancella;
begin
clrscr;
end;
procedure pro1(fx,pr:string;d:integer);
begin
writeln('indica forza agente tra :',fx,' domanda n.',d, ' su ', np);
WRITELN('------------------------------------------------');
writeln('1=dipolo...2=dipolo virtuale,debole..3=idrogeno..4=metallico');
writeln('------------------------------------------------');
write('scrivi tipo di forza = ');readln(tp);
writeln('------------------------------------------------');
if tp=pr then begin writeln('esatto');esatte:=esatte+1; end
else begin writeln('errato:era ',pr);errate:=errate+1;end;
writeln('--------------------------------------------------------------');
writeln('esatte=',esatte, ' errate=',errate);
writeln('-------------------------------------------------------');
pausa;cancella;
end;
procedure scelta;
begin
cancella;
pro1('HCl....HCl','1',1);
pro1('H2O....H2O','3',2);
pro1('NH3....NH3','3',3);
pro1('H2O....HCl','1',4);
pro1('NH3....H2O','3',5);
pro1('SO2....H2O','1',6);
pro1('H2S....H2S','1',7);
pro1('H2S....H2O','1',8);
pro1('H2.....H2','2',9);
pro1('Cl2....Cl2','2',10);
pro1('H2S....H2O','1',11);
pro1('He.....He','2',12);
pro1('Cl2....Cl2','2',13);
pro1('Cu.....Cu','4',14);
pro1('Fe.....Fe','4',15);
pro1('HF.....HF','3',16);
pro1('Ne.....Ne','2',17);
pro1('HBr....HBr','1',18);
pro1('Ag.....Ag','4',19);
pro1('HF.....H2O','3',20);
writeln('----------------------------');
end;
begin
cancella;
writeln('programma:determina tipo forza agente tra molecole');
writeln('si deve consultare la tabella delle elettronegativit…');
writeln('e determinare il tipo di legame che si pu• prevedere');
writeln('tra gli atomi delle molecole presentate');
writeln('e quindi prevedere tipo di forza agente tra le molecole');
writeln('-------------------------------------------------------');
writeln('si deve rispondere scrivendo dei NUMERI al posto della forza');
writeln('1 per tipo DIPOLO-DIPOLO ');
writeln('2 per tipo DIPOLO VIRTUALE-DIPOLO VIRTUALE=forza DEBOLE');
writeln('3 per tipo LEGAME IDROGENO');
writeln('4 per tipo LEGAME METALLICO');
writeln('---------------------------------------------------');
writeln('RICORDARE che in generale agisce forza di tipo:');
writeln('1..DIPOLO-DIPOLO......HCl-HCl..tra molecole polarizzate');
writeln('2..DEBOLE.............H2-H2....tra molecole non polarizzate');
writeln('3..IDROGENO...........NH3-H2O..tra molecole contenenti F,O,N e H ');
writeln('4..METALLICO..........Fe-Fe....tra atomi di metalli');
writeln('---------------------------------------------------');
np:=20;pausa;
scelta;
writeln('esatte =',esatte);
writeln('errate =',errate);
if esatte>errate then writeln('sufficiente')
else writeln('insufficiente:studia ancora');
writeln('chiama insegnante per integrare valutazione');
readln;
end.
program lega7;
(* determinazione tipo di legame tra molecole VALUTAZIONE *)
(* variante di LEGA6 *)
uses crt;
const k=20;
var
a,prove,esatte,errate,np:integer;
tp:string;
s:array[1..k] of string;
g:array[1..k] of string;
procedure fine;
begin
writeln('premi enter');
readln;
end;
procedure pausa;
begin
writeln('premi ENTER ');readln;
end;
procedure cancella;
begin
clrscr;
end;
procedure dati;
begin
s[1]:=('HCl....HCl');g[1]:='1';
s[2]:=('H2O....H2O');g[2]:='3';
s[3]:=('NH3....NH3');g[3]:='3';
s[4]:=('H2O....HCl');g[4]:='1';
s[5]:=('NH3....H2O');g[5]:='3';
s[6]:=('SO2....H2O');g[6]:='1';
s[7]:=('H2S....H2S');g[7]:='1';
s[8]:=('H2S....H2O');g[8]:='1';
s[9]:=('H2.....H2');g[9]:='2';
s[10]:=('Cl2....Cl2');g[10]:='2';
s[11]:=('H2S....H2O');g[11]:='1';
s[12]:=('He.....He');g[12]:='2';
s[13]:=('Cl2....Cl2');g[13]:='2';
s[14]:=('Cu.....Cu');g[14]:='4';
s[15]:=('Fe.....Fe');g[15]:='4';
s[16]:=('HF.....HF');g[16]:='3';
s[17]:=('Ne.....Ne');g[17]:='2';
s[18]:=('HBr....HBr');g[18]:='1';
s[19]:=('Ag.....Ag');g[19]:='4';
s[20]:=('HF.....H2O');g[20]:='3';
end;
procedure pro1;
begin
for a:=1 to k do
begin
writeln('indica forza agente tra :',s[a],' domanda n.',a, ' su ', np);
WRITELN('------------------------------------------------');
writeln('1=dipolo...2=dipolo virtuale,debole..3=idrogeno..4=metallico');
writeln('------------------------------------------------');
write('scrivi tipo di forza = ');readln(tp);
writeln('------------------------------------------------');
if tp=g[a] then begin writeln('esatto');esatte:=esatte+1; end
else begin writeln('errato:era ',g[a]);errate:=errate+1;end;
writeln('--------------------------------------------------------------');
writeln('esatte=',esatte, ' errate=',errate);
writeln('-------------------------------------------------------');
pausa;cancella;
end;end;
begin
cancella;
writeln('programma:determina tipo forza agente tra molecole');
writeln('si deve consultare la tabella delle elettronegativit…');
writeln('e determinare il tipo di legame che si pu• prevedere');
writeln('tra gli atomi delle molecole presentate');
writeln('e quindi prevedere tipo di forza agente tra le molecole');
writeln('-------------------------------------------------------');
writeln('si deve rispondere scrivendo dei NUMERI al posto della forza');
writeln('1 per tipo DIPOLO-DIPOLO ');
writeln('2 per tipo DIPOLO VIRTUALE-DIPOLO VIRTUALE=forza DEBOLE');
writeln('3 per tipo LEGAME IDROGENO');
writeln('4 per tipo LEGAME METALLICO');
writeln('---------------------------------------------------');
writeln('RICORDARE che in generale agisce forza di tipo:');
writeln('1..DIPOLO-DIPOLO......HCl-HCl..tra molecole polarizzate');
writeln('2..DEBOLE.............H2-H2....tra molecole non polarizzate');
writeln('3..IDROGENO...........NH3-H2O..tra molecole contenenti F,O,N e H ');
writeln('4..METALLICO..........Fe-Fe....tra atomi di metalli');
writeln('---------------------------------------------------');
pausa;cancella;dati;
np:=k;pro1;
writeln('esatte =',esatte);
writeln('errate =',errate);
if esatte>errate then writeln('sufficiente')
else writeln('insufficiente:studia ancora');
writeln('chiama insegnante per integrare valutazione');
readln;
end.
program lega8;
(* determinazione tipo geometria molecolare VALUTAZIONE *)
uses crt;
const k=15;
var
a,prove,esatte,errate,np:integer;
tp:string;
s:array[1..k] of string;
g:array[1..k] of string;
h:array[1..k] of string;
procedure fine;
begin
writeln('premi enter');
readln;
end;
procedure pausa;
begin
writeln('premi ENTER ');readln;
end;
procedure cancella;
begin
clrscr;
end;
procedure dati;
begin
s[1]:=('H2O......O');g[1]:='5';
s[2]:=('BeCl2....Be');g[2]:='1';
s[3]:=('NH3......N');g[3]:='4';
s[4]:=('AlCl3....Al');g[4]:='2';
s[5]:=('SO2......S');g[5]:='3';
s[6]:=('Cl2O.....O');g[6]:='5';
s[7]:=('SO3......S');g[7]:='2';
s[8]:=('H2SO4....S');g[8]:='3';
s[9]:=('H2CO3....C');g[9]:='2';
s[10]:=('HNO3....N');g[10]:='2';
s[11]:=('HClO4...Cl');g[11]:='3';
s[12]:=('HClO3...Cl');g[12]:='4';
s[13]:=('HBrO2...Br');g[13]:='5';
s[14]:=('AlBr3...Al');g[14]:='2';
s[15]:=('BeBr2...Be');g[15]:='1';
h[1]:=('H2O......O.....2 legame 2 liberi');
h[2]:=('BeCl2....Be....2 legame 0 liberi');
h[3]:=('NH3......N.....3 legame 1 libero');
h[4]:=('AlCl3....Al....3 legame 0 libero');
h[5]:=('SO2......S.....2 legame (semplice e doppio) 1 libero');
h[6]:=('Cl2O.....O.....2 legame 2 liberi');
h[7]:=('SO3......S.....3 legame (2 semplici e uno doppio) 0 liberi');
h[8]:=('H2SO4....S.....4 legame 0 liberi');
h[9]:=('H2CO3....C.....3 legame (2 semplici e uno doppio) 0 liberi');
h[10]:=('HNO3....N.....3 legame (2 semplici e uno doppio) 0 liberi');
h[11]:=('HClO4...Cl....4 legame 0 liberi');
h[12]:=('HClO3...Cl....3 legame 1 libero');
h[13]:=('HBrO2...Br....2 legame 2 liberi');
h[14]:=('AlBr3...Al....3 legame 0 liberi');
h[15]:=('BeBr2...Be....2 legame 0 liberi');
end;
procedure pro1;
begin
for a:=1 to k do
begin
writeln('indica tipo di geometria con atomo centrale indicato in:');
writeln(s[a],' .....domanda n.',a, ' su ', np);
WRITELN('------------------------------------------------');
writeln('1=lineare...2=triangolare..3=tetraedrica..4=piramidale..5=angolare');
writeln('------------------------------------------------');
write('scrivi tipo di forza = ');readln(tp);
writeln('------------------------------------------------');
if tp=g[a] then begin writeln('esatto');
writeln(h[a]);esatte:=esatte+1; end
else begin writeln('errato:era ',g[a]);
writeln('infatti era:',h[a]);errate:=errate+1;end;
writeln('--------------------------------------------------------------');
writeln('esatte=',esatte, ' errate=',errate);
writeln('-------------------------------------------------------');
pausa;cancella;
end;end;
begin
cancella;
writeln('programma:determina tipo di geometria in molecole semplici');
writeln('secondo la teoria VSEPR :repulsione coppie elettroni di valenza');
writeln;
writeln('si devono rappresentare le strutture secondo Lewis');
writeln('si devono contare i doppietti elettronici attorno atomo CENTRALE');
writeln('si devono contare i doppietti di legame e quelli ancora liberi');
writeln('NOTA:un doppio legame equivale a 1 solo doppietto di legame');
writeln('e quindi prevedere tipo geometria molecolare');
writeln('-------------------------------------------------------');
writeln('si deve rispondere scrivendo dei NUMERI al posto della forza');
writeln('1 per tipo LINEARE ');
writeln('2 per tipo TRIANGOLARE');
writeln('3 per tipo TETRAEDRICO');
writeln('4 per tipo PIRAMIDALE');
writeln('5 per tipo ANGOLARE');
writeln('---------------------------------------------------');
writeln('RICORDARE che in generale la forma risulta:');
writeln('1..LINEARE........con 2 doppietti di legame,0 liberi');
writeln('2..TRIANGOLARE....con 3 doppietti di legame,0 liberi');
writeln('3..TETRAEDRICA....con 4 doppietti di legame,0 liberi ');
writeln('4..PIRAMIDALE.....con 3 doppietti di legame,1 libero');
writeln('5..ANGOLARE.......con 2 doppietti di legame,2 liberi');
writeln('---------------------------------------------------');
pausa;cancella;dati;
np:=k;pro1;
writeln('esatte =',esatte);
writeln('errate =',errate);
if esatte>errate then writeln('sufficiente')
else writeln('insufficiente:studia ancora');
writeln('chiama insegnante per integrare valutazione');
readln;
end.