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.

(* esempio da non copiare nella selezione

indica forza agente tra :H2O....H2O domanda n.2 su 20
------------------------------------------------
1=dipolo...2=dipolo virtuale,debole..3=idrogeno..4=metallico
------------------------------------------------
scrivi tipo di forza = 3
------------------------------------------------
esatto
--------------------------------------------------------------
esatte=2 errate=0
-------------------------------------------------------
premi ENTER *)


ritorna