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