O₂

"; $E1=$_POST["E1"]; $N1=$_POST["N1"]; $E2=$_POST["E2"]; $N2=$_POST["N2"]; $peroxido=$_POST["peroxido"]; if($E1=="C" and $E2=="H"){print "metano"; exit();} if($E1=="Si" and $E2=="H"){print "silano"; exit();} if($E1=="Ge" and $E2=="H"){print "germano"; exit();} if($E1=="N" and $E2=="H"){print "amoniaco"; exit();} if($E1=="P" and $E2=="H"){print "fosfina"; exit();} if($E1=="As" and $E2=="H"){print "arsina"; exit();} if($E1=="Ga" and $E2=="H"){print "galano"; exit();} if($E1=="B" and $E2=="H"){print "borano"; exit();} for ($i=1; $i<=117; $i++) { if($E1==$S[$i])$nombre2=$N[$i]; if($E2==$S[$i])$nombre1=$N[$i]; } if($nombre2==""){print"E1 incorrecto "; exit();} if($nombre1==""){print"E2 incorrecto "; exit();} if($peroxido=="si"){ if($N1==1)$p1="mono"; if($N1==2)$p1="di"; print "peróxido de ".$nombre2; print " dióxido de ".$p1.$nombre2; exit(); } if($N1==""){$N1=1;} ; if($N2==""){$N2=1;} ; if ($E2=="O"){$y=-2; $nombre1="óxido";} if ($E2=="S"){$y=-2; $nombre1="sulfuro"; $nombre11="sulf";} if ($E2=="Te"){$y=-2; $nombre1="teluro"; $nombre11="telur";} if ($E2=="Se"){$y=-2; $nombre1="seleniuro"; $nombre11="selen";} if ($E2=="Cl"){$y=-1; $nombre1="cloruro"; $nombre11="clor";} if ($E2=="F"){$y=-1; $nombre1="fluoruro"; $nombre11="fluor";} if ($E2=="Br"){$y=-1; $nombre1="bromuro"; $nombre11="brom";} if ($E2=="I"){$y=-1; $nombre1="yoduro";$nombre11="yod";} if ($E2=="C"){$y=-4; $nombre1="carburo";}; if ($E2=="Si"){$y=-4; $nombre1="siluro";}; if ($E2=="N"){$y=-3; $nombre1="nitruro";}; if ($E2=="P"){$y=-3; $nombre1="fosfuro";}; if ($E2=="As"){$y=-3; $nombre1="arseniuro";}; if ($E2=="H"){$y=-1; $nombre1="hidruro";}; if($nombre1==""){print "fórmula incorrecta";exit();} $x=(-1)*$N2*$y/$N1; if($N2==1){$p1="mono";}; if($N2==2){$p1="di";}; if($N2==3){$p1="tri";}; if($N2==4){$p1="tetra";}; if($N2==5){$p1="penta";}; if($N2==6){$p1="hexa";}; if($N2==7){$p1="hepta";}; if($N1==1){$p2="mono";}; if($N1==2){$p2="di";}; if($N1==3){$p2="tri";}; if($N1==4){$p2="tetra";}; if($N1==5){$p2="penta";}; if($N1==6){$p2="hexa";}; if($N1==7){$p2="hepta";}; for ($i=1; $i<=117; $i++){ if($E1==$S[$i]){ $nombre2=$N[$i];} } if($nombre2==""){print "fórmula incorrecta";exit();} print $p1.$nombre1." de " .$p2.$nombre2 ; if ($E1=="H"){print " ácido ".$nombre11."hídrico"; exit();} if($E1=="Li" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Na" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="K" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Rb" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Cs" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Fr" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Be" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Mg" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Ca" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Sr" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Ba" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Ra" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="B" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Al" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Ga" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="In" ){print " ".$nombre1." de " .$nombre2;exit();} if($E1=="Si" ){print " ".$nombre1." de " .$nombre2;exit();} if($x==1){$fin="(I)";} if($x==2){$fin="(II)";} if($x==3){$fin="(III)";} if($x==4){$fin="(IV)";} if($x==5){$fin="(V)";} if($x==6){$fin="(VI)";} if($x==7){$fin="(VII)";} print " ".$nombre1." de " .$nombre2.$fin ; } ?>