test su tipo composti chimici

esci chimicaturbo.htm

test su tipo composto chimico fornito

 

Program tipoco;
(* esempio INTERATTIVO riconoscimento tipo composto *)
uses crt;
const n=24;
var a:array[1..n] of string[10]; (* formule *)
x:array[1..n] of string[20]; (* tipo composto *)
esatte,errate,totale,k,numero:integer;
fo:string[20];

procedure cancella;
begin
clrscr;
end;


procedure dati;
begin
a[1]:='H2SO4';a[2]:='Ca(OH)2';a[3]:='NaCl';
a[4]:='H2SO3';a[5]:='Fe(OH)2';a[6]:='CaCl2';
a[7]:='HNO3';a[8]:='CaO';a[9]:='SO3';
a[10]:='NaH';a[11]:='AlH3';a[12]:='HF';
a[13]:='H2CO3';a[14]:='Na(OH';a[15]:='KBr';
a[16]:='HClO3';a[17]:='Mg(OH)2';a[18]:='CaS';
a[19]:='HNO2';a[20]:='K2O';a[21]:='N2O5';
a[22]:='CaH2';a[23]:='FeH3';a[24]:='HBr';

x[1]:='ossiacido';x[2]:='idrossido';x[3]:='sale';
x[4]:='ossiacido';x[5]:='idrossido';x[6]:='sale';
x[7]:='ossiacido';x[8]:='ossido basico';x[9]:='ossido acido';
x[10]:='idruro';x[11]:='idruro';x[12]:='idracido';
x[13]:='ossiacido';x[14]:='idrossido';x[15]:='sale';
x[16]:='ossiacido';x[17]:='idrossido';x[18]:='sale';
x[19]:='ossiacido';x[20]:='ossido basico';x[21]:='ossido acido';
x[22]:='idruro';x[23]:='idruro';x[24]:='idracido';
end;
procedure esegue;
begin
k:=1;esatte:=0;errate:=0;totale:=0;
for numero :=1 to n do
begin
writeln('tipi di composti da usare per rispondere:');
writeln('ossido basico,ossido acido,idrossido,idruro,idracido');
writeln('ossiacido,sale');
writeln('-----------------------------------------------------');
writeln('scrivi a quale tipo di composto appartiene la formula:');
write(a[k],'.....');readln(fo);writeln;
if fo=x[k] then begin writeln('esatto');esatte:=esatte+1;end
else begin writeln('errato:era ',x[k]);errate:=errate+1;end;
writeln('---------------------');
writeln('esatte=',esatte);
writeln('errate=',errate);
writeln('rimanenti=',n-k);
writeln('-----------------------');
writeln('premi enter');readln;
k:=k+1;
cancella;
end;
totale:=esatte+errate;
writeln('esatte =',esatte);
writeln('errate =',errate);
writeln('totale =',totale);
writeln('chiama insegnante per valutazione ');readln;cancella;
end;


begin
cancella;
writeln('scopo del programma:riconoscere tipo di composto proposto');
writeln('ossido basico,ossido acido,idruro,idracido,idrossido');
writeln('ossiacido,sale');
writeln('premi INVIO per proseguire');readln;cancella;
dati;
esegue;

end.