test su legami chimici

esci chimicaturbo.htm

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
errate:=0;
esatte:=0;
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.