esercizi di chimica con turbo pascal 1.1 su mac

program orbi2;
(* scrivere configurazione elettronica ultimo livello *)
(* variante di orbita1 :presenta configurazione completa e ultima *)
(* con correzione e valutazione finale *)
(* si devono inserire ogni volta i numeri atomici fino al 56 *)

const n=56;
var a,z,esatte,errate,prove,caso:integer;
    d:array[1..n] of string;
    u:array[1..n] of string[20];
    r:string;
  

procedure cancella;
begin
clearscreen;
end;
 

procedure dati;
begin
d[1]:='1s1';u[1]:='1s1';
d[2]:='1s2';u[2]:='1s2';
d[3]:='1s2,2s1';u[3]:='2s1';
d[4]:='1s2,2s2';u[4]:='2s2';
d[5]:='1s2,2s2,2p1';u[5]:='2s2,2p1';
d[6]:='1s2,2s2,2p2';u[6]:='2s2,2p2';
d[7]:='1s2,2s2,2p3';u[7]:='2s2,2p3';
d[8]:='1s2,2s2,2p4';u[8]:='2s2,2p4';
d[9]:='1s2,2s2,2p5';u[9]:='2s2,2p5';
d[10]:='1s2,2s2,2p6';u[10]:='2s2,2p6';
d[11]:='1s2,2s2,2p6,3s1';u[11]:='3s1';
d[12]:='1s2,2s2,2p6,3s2';u[12]:='3s2';
d[13]:='1s2,2s2,2p6,3s2,3p1';u[13]:='3s2,3p1';
d[14]:='1s2,2s2,2p6,3s2,3p2';u[14]:='3s2,3p2';
d[15]:='1s2,2s2,2p6,3s2,3p3';u[15]:='3s2,3p3';
d[16]:='1s2,2s2,2p6,3s2,3p4';u[16]:='3s2,3p4';
d[17]:='1s2,2s2,2p6,3s2,3p5';u[17]:='3s2,3p5';
d[18]:='1s2,2s2,2p6,3s2,3p6';u[18]:='3s2,3p6';
d[19]:='1s2,2s2,2p6,3s2,3p6,4s1';u[19]:='4s1';
d[20]:='1s2,2s2,2p6,3s2,3p6,4s2';u[20]:='4s2';
d[21]:='1s2,2s2,2p6,3s2,3p6,4s2,3d1';u[21]:='4s2';
d[22]:='1s2,2s2,2p6,3s2,3p6,4s2,3d2';u[22]:='4s2';
d[23]:='1s2,2s2,2p6,3s2,3p6,4s2,3d3';u[23]:='4s2';
d[24]:='1s2,2s2,2p6,3s2,3p6,4s2,3d4';u[24]:='4s2';
d[25]:='1s2,2s2,2p6,3s2,3p6,4s2,3d5';u[25]:='4s2';
d[26]:='1s2,2s2,2p6,3s2,3p6,4s2,3d6';u[26]:='4s2';
d[27]:='1s2,2s2,2p6,3s2,3p6,4s2,3d7';u[27]:='4s2';
d[28]:='1s2,2s2,2p6,3s2,3p6,4s2,3d8';u[28]:='4s2';
d[29]:='1s2,2s2,2p6,3s2,3p6,4s2,3d9';u[29]:='4s2';
d[30]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10';u[30]:='4s2';

d[31]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p1';u[31]:='4s2,4p1';
d[32]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p2';u[32]:='4s2,4p2';
d[33]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p3';u[33]:='4s2,4p3';
d[34]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p4';u[34]:='4s2,4p4';
d[35]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p5';u[35]:='4s2,4p5';
d[36]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p6';u[36]:='4s2,4p6';
d[37]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s1';u[37]:='4s2,4p7';
d[38]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2';u[38]:='4s2,4p8';
d[39]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d1';u[39]:='5s2';
d[40]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d2';u[40]:='5s2';
d[41]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d3';u[41]:='5s2';
d[42]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d4';u[42]:='5s2';
d[43]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d5';u[43]:='5s2';
d[44]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d6';u[44]:='5s2';
d[45]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d7';u[45]:='5s2';
d[46]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d8';u[46]:='5s2';
d[47]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d9';u[47]:='5s2';
d[48]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10';u[48]:='5s2';

d[49]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p1';u[49]:='5s2,5p1';
d[50]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p2';u[50]:='5s2,5p2';
d[51]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p3';u[51]:='5s2,5p3';
d[52]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p4';u[52]:='5s2,5p4';
d[53]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p5';u[53]:='5s2,5p5';
d[54]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6';u[54]:='5s2,5p6';
d[55]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6,6s1';u[55]:='6s1';
d[56]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6,6s2';u[56]:='6s2';
end;

procedure scelta;
begin
dati;
esatte:=0;errate:=0;
for a:=1 to prove do
begin
writeln('scrivere configurazione elettronica ultimo livello');
writeln('osservando la sintassi indicata nello esempio che segue');
writeln('1s2,2s2,2p3');
writeln('separando ogni sottolivello con la virgola,eccetto ultimo');
writeln('---------------------------------------------------------');
repeat
write('scrivi numero atomico elemento da 1 a 56 =');readln(caso);
until caso<57;
write('configurazione=');readln(r);
writeln('---------------------------------------------------------');
if r=u[caso] then 
begin writeln('esatto');esatte:=esatte+1 ;end
else  
begin writeln('errato:era=');
writeln('configurazione completa =',d[caso]);
writeln('e quindi configurazione ultimo livello=');
writeln(u[caso]);errate:=errate+1;end;
writeln('--------------------------------------------------------------');
writeln('premi enter per altra prova');readln;cancella;
end;
end;

begin
cancella;
repeat
write('indica numero di prove da eseguire:da 1 a 56 ');readln(prove);
until prove<57;
cancella;
scelta;
writeln('risposte esatte =',esatte);
writeln('risposte errate =',errate);
writeln('chiama insegnante per valutazione');readln;
end.

program orbi3;
(* scrivere configurazione elettronica ULTIMO livello e BLOCCO *)
(* variante di orbita1 :presenta configurazione completa e ultima *)
(* con correzione e valutazione finale *)
(* si devono inserire ogni volta i numeri atomici fino al 56 *)

const n=56;
var a,z,esatte,errate,prove,caso:integer;
    blocco:string[5];
    d:array[1..n] of string;
    u:array[1..n] of string[20];
    b:array[1..n] of string[5];
    r:string;
  

procedure cancella;
begin
clearscreen;
end;
 

procedure dati;
begin
d[1]:='1s1';u[1]:='1s1';b[1]:='s';
d[2]:='1s2';u[2]:='1s2';b[2]:='s';
d[3]:='1s2,2s1';u[3]:='2s1';b[3]:='s';
d[4]:='1s2,2s2';u[4]:='2s2';b[4]:='s';
d[5]:='1s2,2s2,2p1';u[5]:='2s2,2p1';b[5]:='p';
d[6]:='1s2,2s2,2p2';u[6]:='2s2,2p2';b[6]:='p';
d[7]:='1s2,2s2,2p3';u[7]:='2s2,2p3';b[7]:='p';
d[8]:='1s2,2s2,2p4';u[8]:='2s2,2p4';b[8]:='p';
d[9]:='1s2,2s2,2p5';u[9]:='2s2,2p5';b[9]:='p';
d[10]:='1s2,2s2,2p6';u[10]:='2s2,2p6';b[10]:='p';
d[11]:='1s2,2s2,2p6,3s1';u[11]:='3s1';b[11]:='s';
d[12]:='1s2,2s2,2p6,3s2';u[12]:='3s2';b[12]:='s';
d[13]:='1s2,2s2,2p6,3s2,3p1';u[13]:='3s2,3p1';b[13]:='p';
d[14]:='1s2,2s2,2p6,3s2,3p2';u[14]:='3s2,3p2';b[14]:='p';
d[15]:='1s2,2s2,2p6,3s2,3p3';u[15]:='3s2,3p3';b[15]:='p';
d[16]:='1s2,2s2,2p6,3s2,3p4';u[16]:='3s2,3p4';b[16]:='p';
d[17]:='1s2,2s2,2p6,3s2,3p5';u[17]:='3s2,3p5';b[17]:='p';
d[18]:='1s2,2s2,2p6,3s2,3p6';u[18]:='3s2,3p6';b[18]:='p';
d[19]:='1s2,2s2,2p6,3s2,3p6,4s1';u[19]:='4s1';b[19]:='p';
d[20]:='1s2,2s2,2p6,3s2,3p6,4s2';u[20]:='4s2';b[20]:='p';
d[21]:='1s2,2s2,2p6,3s2,3p6,4s2,3d1';u[21]:='4s2';b[21]:='d';
d[22]:='1s2,2s2,2p6,3s2,3p6,4s2,3d2';u[22]:='4s2';b[22]:='d';
d[23]:='1s2,2s2,2p6,3s2,3p6,4s2,3d3';u[23]:='4s2';b[23]:='d';
d[24]:='1s2,2s2,2p6,3s2,3p6,4s2,3d4';u[24]:='4s2';b[24]:='d';
d[25]:='1s2,2s2,2p6,3s2,3p6,4s2,3d5';u[25]:='4s2';b[25]:='d';
d[26]:='1s2,2s2,2p6,3s2,3p6,4s2,3d6';u[26]:='4s2';b[26]:='d';
d[27]:='1s2,2s2,2p6,3s2,3p6,4s2,3d7';u[27]:='4s2';b[27]:='d';
d[28]:='1s2,2s2,2p6,3s2,3p6,4s2,3d8';u[28]:='4s2';b[28]:='d';
d[29]:='1s2,2s2,2p6,3s2,3p6,4s2,3d9';u[29]:='4s2';b[29]:='d';
d[30]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10';u[30]:='4s2';b[30]:='d';

d[31]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p1';u[31]:='4s2,4p1';b[31]:='p';
d[32]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p2';u[32]:='4s2,4p2';b[32]:='p';
d[33]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p3';u[33]:='4s2,4p3';b[33]:='p';
d[34]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p4';u[34]:='4s2,4p4';b[34]:='p';
d[35]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p5';u[35]:='4s2,4p5';b[35]:='p';
d[36]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p6';u[36]:='4s2,4p6';b[36]:='p';
d[37]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s1';u[37]:='4s2,4p7';b[37]:='p';
d[38]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2';u[38]:='4s2,4p8';b[38]:='p';
d[39]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d1';u[39]:='5s2';b[39]:='d';
d[40]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d2';u[40]:='5s2';b[40]:='d';
d[41]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d3';u[41]:='5s2';b[41]:='d';
d[42]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d4';u[42]:='5s2';b[42]:='d';
d[43]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d5';u[43]:='5s2';b[43]:='d';
d[44]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d6';u[44]:='5s2';b[44]:='d';
d[45]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d7';u[45]:='5s2';b[45]:='d';
d[46]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d8';u[46]:='5s2';b[46]:='d';
d[47]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d9';u[47]:='5s2';b[47]:='d';
d[48]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10';u[48]:='5s2';b[48]:='d';

d[49]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p1';u[49]:='5s2,5p1';b[49]:='p';
d[50]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p2';u[50]:='5s2,5p2';b[50]:='p';
d[51]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p3';u[51]:='5s2,5p3';b[51]:='p';
d[52]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p4';u[52]:='5s2,5p4';b[52]:='p';
d[53]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p5';u[53]:='5s2,5p5';b[53]:='p';
d[54]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6';u[54]:='5s2,5p6';b[54]:='p';
d[55]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6,6s1';u[55]:='6s1';b[55]:='p';
d[56]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6,6s2';u[56]:='6s2';b[56]:='p';
end;

procedure scelta;
begin
dati;
esatte:=0;errate:=0;
for a:=1 to prove do
begin
writeln('scrivere configurazione elettronica ultimo livello');
writeln('osservando la sintassi indicata nello esempio che segue');
writeln('1s2,2s2,2p3');
writeln('separando ogni sottolivello con la virgola,eccetto ultimo');
writeln('---------------------------------------------------------');
repeat
write('scrivi numero atomico elemento da 1 a 56 =');readln(caso);
until caso<57;
write('configurazione=');readln(r);
writeln('---------------------------------------------------------');
if r=u[caso] then 
begin writeln('esatto');esatte:=esatte+1 ;end
else  
begin writeln('errato:era=');
writeln('configurazione completa =',d[caso]);
writeln('e quindi configurazione ultimo livello=');
writeln(u[caso]);errate:=errate+1;end;
writeln('--------------------------------------------------------------');
writeln('scrivi blocco di appartenenza s,p,d,f ');readln(blocco);
if blocco=b[caso] then begin
writeln('esatto');esatte:=esatte+1;end
else
begin writeln('errato:era blocco :',b[caso]);errate:=errate+1;end;
writeln('premi enter per altra prova');readln;cancella;
end;
end;

begin
cancella;
repeat
write('indica numero di prove da eseguire:da 1 a 56 ');readln(prove);
until prove<57;
cancella;
scelta;
writeln('risposte esatte =',esatte);
writeln('risposte errate =',errate);
writeln('chiama insegnante per valutazione');readln;
end.

program orbi4;
(* scrivere configurazione elettronica ULTIMO livello e BLOCCO *)
(* scrivere gruppo appartenenza *)
(* variante di orbita1 :presenta configurazione completa e ultima *)
(* con correzione e valutazione finale *)
(* si devono inserire ogni volta i numeri atomici fino al 56 *)
(* NOTA il GRUPPO PER ELEMENTI TRANSIZIONE VIENE ASSEGNATO=2 *)

const n=56;
var a,z,esatte,errate,prove,caso,numero,gruppo:integer;
    blocco:string[5];
    d:array[1..n] of string;
    u:array[1..n] of string[20];
    b:array[1..n] of string[5];
    e:array[1..n] of integer;
    r:string;
  

procedure cancella;
begin
clearscreen;
end;
 

procedure dati;
begin
d[1]:='1s1';u[1]:='1s1';b[1]:='s';e[1]:=1;
d[2]:='1s2';u[2]:='1s2';b[2]:='s';e[2]:=2;
d[3]:='1s2,2s1';u[3]:='2s1';b[3]:='s';e[3]:=1;
d[4]:='1s2,2s2';u[4]:='2s2';b[4]:='s';e[4]:=2;
d[5]:='1s2,2s2,2p1';u[5]:='2s2,2p1';b[5]:='p';e[5]:=3;
d[6]:='1s2,2s2,2p2';u[6]:='2s2,2p2';b[6]:='p';e[6]:=4;
d[7]:='1s2,2s2,2p3';u[7]:='2s2,2p3';b[7]:='p';e[7]:=5;
d[8]:='1s2,2s2,2p4';u[8]:='2s2,2p4';b[8]:='p';e[8]:=6;
d[9]:='1s2,2s2,2p5';u[9]:='2s2,2p5';b[9]:='p';e[9]:=7;
d[10]:='1s2,2s2,2p6';u[10]:='2s2,2p6';b[10]:='p';e[10]:=8;
d[11]:='1s2,2s2,2p6,3s1';u[11]:='3s1';b[11]:='s';e[11]:=1;
d[12]:='1s2,2s2,2p6,3s2';u[12]:='3s2';b[12]:='s';e[12]:=2;
d[13]:='1s2,2s2,2p6,3s2,3p1';u[13]:='3s2,3p1';b[13]:='p';e[13]:=3;
d[14]:='1s2,2s2,2p6,3s2,3p2';u[14]:='3s2,3p2';b[14]:='p';e[14]:=4;
d[15]:='1s2,2s2,2p6,3s2,3p3';u[15]:='3s2,3p3';b[15]:='p';e[15]:=5;
d[16]:='1s2,2s2,2p6,3s2,3p4';u[16]:='3s2,3p4';b[16]:='p';e[16]:=6;
d[17]:='1s2,2s2,2p6,3s2,3p5';u[17]:='3s2,3p5';b[17]:='p';e[17]:=7;
d[18]:='1s2,2s2,2p6,3s2,3p6';u[18]:='3s2,3p6';b[18]:='p';e[18]:=8;
d[19]:='1s2,2s2,2p6,3s2,3p6,4s1';u[19]:='4s1';b[19]:='p';e[19]:=1;
d[20]:='1s2,2s2,2p6,3s2,3p6,4s2';u[20]:='4s2';b[20]:='p';e[20]:=2;
d[21]:='1s2,2s2,2p6,3s2,3p6,4s2,3d1';u[21]:='4s2';b[21]:='d';e[21]:=2;
d[22]:='1s2,2s2,2p6,3s2,3p6,4s2,3d2';u[22]:='4s2';b[22]:='d';e[22]:=2;
d[23]:='1s2,2s2,2p6,3s2,3p6,4s2,3d3';u[23]:='4s2';b[23]:='d';e[23]:=2;
d[24]:='1s2,2s2,2p6,3s2,3p6,4s2,3d4';u[24]:='4s2';b[24]:='d';e[24]:=2;
d[25]:='1s2,2s2,2p6,3s2,3p6,4s2,3d5';u[25]:='4s2';b[25]:='d';e[25]:=2;
d[26]:='1s2,2s2,2p6,3s2,3p6,4s2,3d6';u[26]:='4s2';b[26]:='d';e[26]:=2;
d[27]:='1s2,2s2,2p6,3s2,3p6,4s2,3d7';u[27]:='4s2';b[27]:='d';e[27]:=2;
d[28]:='1s2,2s2,2p6,3s2,3p6,4s2,3d8';u[28]:='4s2';b[28]:='d';e[28]:=2;
d[29]:='1s2,2s2,2p6,3s2,3p6,4s2,3d9';u[29]:='4s2';b[29]:='d';e[29]:=2;
d[30]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10';u[30]:='4s2';b[30]:='d';e[30]:=2;

d[31]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p1';u[31]:='4s2,4p1';b[31]:='p';e[31]:=3;
d[32]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p2';u[32]:='4s2,4p2';b[32]:='p';e[32]:=4;
d[33]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p3';u[33]:='4s2,4p3';b[33]:='p';e[33]:=5;
d[34]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p4';u[34]:='4s2,4p4';b[34]:='p';e[34]:=6;
d[35]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p5';u[35]:='4s2,4p5';b[35]:='p';e[35]:=7;
d[36]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p6';u[36]:='4s2,4p6';b[36]:='p';e[36]:=8;
d[37]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s1';u[37]:='5s1';b[37]:='s';e[37]:=1;
d[38]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2';u[38]:='5s2,4p8';b[38]:='s';e[38]:=2;
d[39]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d1';u[39]:='5s2';b[39]:='d';e[39]:=2;
d[40]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d2';u[40]:='5s2';b[40]:='d';e[40]:=2;
d[41]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d3';u[41]:='5s2';b[41]:='d';e[41]:=2;
d[42]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d4';u[42]:='5s2';b[42]:='d';e[42]:=2;
d[43]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d5';u[43]:='5s2';b[43]:='d';e[43]:=2;
d[44]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d6';u[44]:='5s2';b[44]:='d';e[44]:=2;
d[45]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d7';u[45]:='5s2';b[45]:='d';e[45]:=2;
d[46]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d8';u[46]:='5s2';b[46]:='d';e[46]:=2;
d[47]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d9';u[47]:='5s2';b[47]:='d';e[47]:=2;
d[48]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10';u[48]:='5s2';b[48]:='d';e[48]:=2;

d[49]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p1';u[49]:='5s2,5p1';b[49]:='p';e[49]:=3;
d[50]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p2';u[50]:='5s2,5p2';b[50]:='p';e[50]:=4;
d[51]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p3';u[51]:='5s2,5p3';b[51]:='p';e[51]:=5;
d[52]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p4';u[52]:='5s2,5p4';b[52]:='p';e[52]:=6;
d[53]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p5';u[53]:='5s2,5p5';b[53]:='p';e[53]:=7;
d[54]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6';u[54]:='5s2,5p6';b[54]:='p';e[54]:=8;
d[55]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6,6s1';u[55]:='6s1';b[55]:='s';e[55]:=1;
d[56]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6,6s2';u[56]:='6s2';b[56]:='s';e[56]:=2;
end;

procedure scelta;
begin
dati;
esatte:=0;errate:=0;
for a:=1 to prove do
begin
writeln('scrivere configurazione elettronica ultimo livello');
writeln('osservando la sintassi indicata nello esempio che segue');
writeln('1s2,2s2,2p3');
writeln('separando ogni sottolivello con la virgola,eccetto ultimo');
writeln('---------------------------------------------------------');
repeat
write('scrivi numero atomico elemento da 1 a 56 =');readln(caso);
until caso<57;
write('configurazione=');readln(r);
writeln('---------------------------------------------------------');
if r=u[caso] then 
begin writeln('esatto');esatte:=esatte+1 ;end
else  
begin writeln('errato:era=');
writeln('configurazione completa =',d[caso]);
writeln('e quindi configurazione ultimo livello=');
writeln(u[caso]);errate:=errate+1;end;
writeln('--------------------------------------------------------------');
write('scrivi blocco di appartenenza s,p,d,f ');readln(blocco);
if blocco=b[caso] then begin
writeln('esatto');esatte:=esatte+1;end
else
begin writeln('errato:era blocco :',b[caso]);errate:=errate+1;end;
writeln('-------------------------------------------------------------');
write('scrivi gruppo di appartenenza 1,2,3,4,5,6,7,8 ? ');readln(gruppo);
if gruppo=e[caso] then begin
writeln('esatto');esatte:=esatte+1;end
else
begin writeln('errato:era gruppo :',e[caso]);errate:=errate+1;end;
writeln('-------------------------------------------------------------');
writeln('premi enter per altra prova');readln;cancella;
end;
end;

begin
cancella;
repeat
write('indica numero di prove da eseguire:da 1 a 56 ');readln(prove);
until prove<57;
cancella;
scelta;
writeln('risposte esatte =',esatte);
writeln('risposte errate =',errate);
writeln('chiama insegnante per valutazione');readln;
end.

program orbi5;
(* scrivere configurazione elettronica ULTIMO livello e BLOCCO *)
(* scrivere gruppo appartenenza *)
(* variante di orbita1 :presenta configurazione completa e ultima *)
(* con correzione e valutazione finale *)
(* si devono inserire ogni volta i numeri atomici fino al 56 *)
(* NOTA il GRUPPO PER ELEMENTI TRANSIZIONE VIENE ASSEGNATO=2 *)

const n=56;
var a,z,esatte,errate,prove,caso,numero,gruppo:integer;
    blocco:string[5];
    d:array[1..n] of string;
    u:array[1..n] of string[20];
    b:array[1..n] of string[5];
    e:array[1..n] of integer;
    r:string;
  

procedure cancella;
begin
clearscreen;
end;
 

procedure dati;
begin
d[1]:='1s1';u[1]:='1s1';b[1]:='s';e[1]:=1;
d[2]:='1s2';u[2]:='1s2';b[2]:='s';e[2]:=2;
d[3]:='1s2,2s1';u[3]:='2s1';b[3]:='s';e[3]:=1;
d[4]:='1s2,2s2';u[4]:='2s2';b[4]:='s';e[4]:=2;
d[5]:='1s2,2s2,2p1';u[5]:='2s2,2p1';b[5]:='p';e[5]:=3;
d[6]:='1s2,2s2,2p2';u[6]:='2s2,2p2';b[6]:='p';e[6]:=4;
d[7]:='1s2,2s2,2p3';u[7]:='2s2,2p3';b[7]:='p';e[7]:=5;
d[8]:='1s2,2s2,2p4';u[8]:='2s2,2p4';b[8]:='p';e[8]:=6;
d[9]:='1s2,2s2,2p5';u[9]:='2s2,2p5';b[9]:='p';e[9]:=7;
d[10]:='1s2,2s2,2p6';u[10]:='2s2,2p6';b[10]:='p';e[10]:=8;
d[11]:='1s2,2s2,2p6,3s1';u[11]:='3s1';b[11]:='s';e[11]:=1;
d[12]:='1s2,2s2,2p6,3s2';u[12]:='3s2';b[12]:='s';e[12]:=2;
d[13]:='1s2,2s2,2p6,3s2,3p1';u[13]:='3s2,3p1';b[13]:='p';e[13]:=3;
d[14]:='1s2,2s2,2p6,3s2,3p2';u[14]:='3s2,3p2';b[14]:='p';e[14]:=4;
d[15]:='1s2,2s2,2p6,3s2,3p3';u[15]:='3s2,3p3';b[15]:='p';e[15]:=5;
d[16]:='1s2,2s2,2p6,3s2,3p4';u[16]:='3s2,3p4';b[16]:='p';e[16]:=6;
d[17]:='1s2,2s2,2p6,3s2,3p5';u[17]:='3s2,3p5';b[17]:='p';e[17]:=7;
d[18]:='1s2,2s2,2p6,3s2,3p6';u[18]:='3s2,3p6';b[18]:='p';e[18]:=8;
d[19]:='1s2,2s2,2p6,3s2,3p6,4s1';u[19]:='4s1';b[19]:='p';e[19]:=1;
d[20]:='1s2,2s2,2p6,3s2,3p6,4s2';u[20]:='4s2';b[20]:='p';e[20]:=2;
d[21]:='1s2,2s2,2p6,3s2,3p6,4s2,3d1';u[21]:='4s2';b[21]:='d';e[21]:=2;
d[22]:='1s2,2s2,2p6,3s2,3p6,4s2,3d2';u[22]:='4s2';b[22]:='d';e[22]:=2;
d[23]:='1s2,2s2,2p6,3s2,3p6,4s2,3d3';u[23]:='4s2';b[23]:='d';e[23]:=2;
d[24]:='1s2,2s2,2p6,3s2,3p6,4s2,3d4';u[24]:='4s2';b[24]:='d';e[24]:=2;
d[25]:='1s2,2s2,2p6,3s2,3p6,4s2,3d5';u[25]:='4s2';b[25]:='d';e[25]:=2;
d[26]:='1s2,2s2,2p6,3s2,3p6,4s2,3d6';u[26]:='4s2';b[26]:='d';e[26]:=2;
d[27]:='1s2,2s2,2p6,3s2,3p6,4s2,3d7';u[27]:='4s2';b[27]:='d';e[27]:=2;
d[28]:='1s2,2s2,2p6,3s2,3p6,4s2,3d8';u[28]:='4s2';b[28]:='d';e[28]:=2;
d[29]:='1s2,2s2,2p6,3s2,3p6,4s2,3d9';u[29]:='4s2';b[29]:='d';e[29]:=2;
d[30]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10';u[30]:='4s2';b[30]:='d';e[30]:=2;

d[31]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p1';u[31]:='4s2,4p1';b[31]:='p';e[31]:=3;
d[32]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p2';u[32]:='4s2,4p2';b[32]:='p';e[32]:=4;
d[33]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p3';u[33]:='4s2,4p3';b[33]:='p';e[33]:=5;
d[34]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p4';u[34]:='4s2,4p4';b[34]:='p';e[34]:=6;
d[35]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p5';u[35]:='4s2,4p5';b[35]:='p';e[35]:=7;
d[36]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,4p6';u[36]:='4s2,4p6';b[36]:='p';e[36]:=8;
d[37]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s1';u[37]:='5s1';b[37]:='s';e[37]:=1;
d[38]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2';u[38]:='5s2,4p8';b[38]:='s';e[38]:=2;
d[39]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d1';u[39]:='5s2';b[39]:='d';e[39]:=2;
d[40]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d2';u[40]:='5s2';b[40]:='d';e[40]:=2;
d[41]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d3';u[41]:='5s2';b[41]:='d';e[41]:=2;
d[42]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d4';u[42]:='5s2';b[42]:='d';e[42]:=2;
d[43]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d5';u[43]:='5s2';b[43]:='d';e[43]:=2;
d[44]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d6';u[44]:='5s2';b[44]:='d';e[44]:=2;
d[45]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d7';u[45]:='5s2';b[45]:='d';e[45]:=2;
d[46]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d8';u[46]:='5s2';b[46]:='d';e[46]:=2;
d[47]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d9';u[47]:='5s2';b[47]:='d';e[47]:=2;
d[48]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10';u[48]:='5s2';b[48]:='d';e[48]:=2;

d[49]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p1';u[49]:='5s2,5p1';b[49]:='p';e[49]:=3;
d[50]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p2';u[50]:='5s2,5p2';b[50]:='p';e[50]:=4;
d[51]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p3';u[51]:='5s2,5p3';b[51]:='p';e[51]:=5;
d[52]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p4';u[52]:='5s2,5p4';b[52]:='p';e[52]:=6;
d[53]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p5';u[53]:='5s2,5p5';b[53]:='p';e[53]:=7;
d[54]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6';u[54]:='5s2,5p6';b[54]:='p';e[54]:=8;
d[55]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6,6s1';u[55]:='6s1';b[55]:='s';e[55]:=1;
d[56]:='1s2,2s2,2p6,3s2,3p6,4s2,3d10,5s2,4d10,5p6,6s2';u[56]:='6s2';b[56]:='s';e[56]:=2;
end;

procedure scelta;
begin
dati;
esatte:=0;errate:=0;
for a:=1 to prove do
begin
repeat
write('scrivi numero atomico elemento da 1 a 56 =');readln(caso);
until caso<57;
writeln;
writeln(d[caso]);
writeln('---------------------------------------------------------');
write('scrivi configurazione ultimo livello =');readln(r);
writeln('---------------------------------------------------------');
if r=u[caso] then 
begin writeln('esatto');esatte:=esatte+1 ;end
else  
begin writeln('errato:era=');
writeln('configurazione completa =',d[caso]);
writeln('e quindi configurazione ultimo livello=');
writeln(u[caso]);errate:=errate+1;end;
writeln('--------------------------------------------------------------');
write('scrivi blocco di appartenenza s,p,d,f ');readln(blocco);
if blocco=b[caso] then begin
writeln('esatto');esatte:=esatte+1;end
else
begin writeln('errato:era blocco :',b[caso]);errate:=errate+1;end;
writeln('-------------------------------------------------------------');
write('scrivi gruppo di appartenenza 1,2,3,4,5,6,7,8 ? ');readln(gruppo);
if gruppo=e[caso] then begin
writeln('esatto');esatte:=esatte+1;end
else
begin writeln('errato:era gruppo :',e[caso]);errate:=errate+1;end;
writeln('-------------------------------------------------------------');
writeln('premi enter per altra prova');readln;cancella;
end;
end;

begin
cancella;
repeat
write('indica numero di prove da eseguire:da 1 a 56 ');readln(prove);
until prove<57;
cancella;
scelta;
writeln('risposte esatte =',esatte);
writeln('risposte errate =',errate);
writeln('chiama insegnante per valutazione');readln;
end.