Tak sa mi neter učilo v škole oxidy a nejako jej do nešlo, tak som sa trochu vyhral a urobil som jej tento skriptík. Je to taká haluzovinka a sú tam ešte nejaké chyby, ale hádam sa dá. Funkčný príklad je na
Kód: Vybrať všetko
<?php
$vzorec = strip_tags($vzorec);
$vzorec = strtolower($vzorec);
$vzorec = str_replace(" ","",$vzorec);
$dlzka = strlen($vzorec);
$prve = substr($vzorec,0,1);
$druhe = substr($vzorec,1,1);
$posledne = substr($vzorec,($dlzka - 1),"1");
$predposledne = substr($vzorec,($dlzka - 2),"1");
$predpredposledne = substr($vzorec,($dlzka - 3),"1");
if($vzorec==NULL) // pri načítaní stránky
{echo "zadaj vzorec nejakého oxidu";}
elseif($vzorec=="") // zistí či bol vôbec zadaný nejaký vzorec
{echo "nebol zadaný žiaden vzorec!";}
elseif($dlzka<"2"||$dlzka>"5") // skontroluje dĺžku vzorca (oxid má vzorec min. 2 a max. 5 znakový)
{echo $vzorec." nie je vzorec oxidu!";}
elseif($posledne!="o"&&$predposledne!="o") // zistí prítomnosť kyslíku na posl. alebo predposlednom mieste
{echo $vzorec." nie je vzorec oxidu!";}
elseif($prve=="o"&&($druhe=="2"||$druhe=="o")) // zistí prítomnosť kyslíku na prvom mieste
{echo "Kyslík nemôže oxidovať sám so sebou!";}
elseif($prve=="1"||$prve=="2"||$prve=="3"||$prve=="4"||$prve=="5"||$prve=="6"||$prve=="7"||$prve=="8"||$prve=="9"||$prve=="0") // zistí prítomnosť číslice na prvom mieste
{echo "Vzorec jednej molekuly oxidu nemôže začínať číslicou!";}
else
{
$prvky = array(
"ag" => "striebr","au" => "zlat","al" => "hlin","as" => "arzen",
"ba" => "bar","be" => "berill","bi" => "bizmut","b" => "bor",
"ca" => "vápen","c" => "uhol","cu" => "med","cr" => "chromič","co" => "kobalt","ce" => "cer","cl" => "chlor","cd" => "kadem",
"fe" => "želez",
"ge" => "german",
"h" => "vod","hg" => "ortuť","hf" => "hafn",
"i" => "jod",
"k" => "drasel",
"la" => "lanthan","li" => "lith",
"mn" => "mangan","mg" => "horeč","mo" => "molibd",
"n" => "dus","na" => "sod","ni" => "nikel","nb" => "niob",
"os" => "osm",
"s" => "sír","sb" => "antimon","si" => "kremič","sn" => "cín",
"ti" => "titan",
"pb" => "olov","p" => "fosfor","pt" => "platin","pd" => "pallad",
"re" => "rhen","rh" => "rhod","ru" => "ruthen",
"sm" => "samar","se" => "selen","sr" => "stron",
"ta" => "tantal","te" => "tellur","th" => "thor","ti" => "titan",
"u" => "uran",
"v" => "vanad",
"w" => "wolfram",
"y" => "ytterb",
"zn" => "zinoč","zr" => "zirkon"
); //58
$co = array("o","2","3","4","5","7", "0","1","6","8","9");
$cim = array("O","<sub>2</sub>","<sub>3</sub>","<sub>4</sub>","<sub>5</sub>","<sub>7</sub>", "<sub>0</sub>","<sub>1</sub>","<sub>6</sub>","<sub>8</sub>","<sub>9</sub>");
// zistí či sa jedná o mocenstvo I.
if(($dlzka=="3"||$dlzka=="4")&&$posledne=="o"&&$predposledne=="2"&&$predpredposledne!="2"){
$prvok = substr($vzorec,0,($dlzka-2));
if(in_array($prvky[$prvok],$prvky)){
/* gramatika štart */
$zmena = $prvky[$prvok];
if($prvok=="cu"):$zmena = str_replace("d","ď",$prvky[$prvok]);endif;
if($prvok=="os"):$zmena = $prvky[$prvok]."in";endif;
if($prvok=="ag"):$zmena = str_replace("br","bor",$prvky[$prvok]);endif;
/* gramatika stop */
echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> = oxid ".$zmena."ný<br>(mocenstvo I.)";}
else {echo "Prvok s označením <b>".ucfirst($prvok)."</b> v chémii zatiaľ neexistuje!";}
}
// zistí či sa jedná o mocenstvo II.
elseif(($dlzka=="2"||$dlzka=="3")&&$posledne=="o"&&$predposledne!="2"){
$prvok = substr($vzorec,0,($dlzka-1));
if(in_array($prvky[$prvok],$prvky)){
/* gramatika štart */
$zmena = $prvky[$prvok];
if($prvok=="cu"):$zmena = str_replace("d","ď",$prvky[$prvok]);endif;
if($prvok=="os"):$zmena = $prvky[$prvok]."i";endif;
if($prvok=="ag"):$zmena = str_replace("br","bor",$prvky[$prvok]);endif;
if($prvok==("mn"||"al"||"ca"||"sb")):$zmena = str_replace("n","",$prvky[$prvok]);endif;
/* gramatika stop */
echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> = oxid ".$zmena."natý<br>(mocenstvo II.)";}
else {echo "Prvok s označením <b>".ucfirst($prvok)."</b> v chémii zatiaľ neexistuje!";}
}
// zistí či sa jedná o mocenstvo III.
elseif(($dlzka=="4"||$dlzka=="5")&&$posledne=="3"&&$predposledne=="o"&&$predpredposledne=="2"){
$prvok = substr($vzorec,0,($dlzka-3));
if(in_array($prvky[$prvok],$prvky)){
/* gramatika štart */
$zmena = $prvky[$prvok];
if($prvok=="pb"):$zmena = str_replace("ť","t",$prvky[$prvok]);endif;
if($prvok=="c"):$zmena = str_replace("o","",$prvky[$prvok]);endif;
/* gramatika stop */
echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> = oxid ".$zmena."itý<br>(mocenstvo III.)";}
else {echo "Prvok s označením <b>".ucfirst($prvok)."</b> v chémii zatiaľ neexistuje!";}
}
// zistí či sa jedná o mocenstvo IV.
elseif(($dlzka=="3"||$dlzka=="4")&&$posledne=="2"&&$predposledne=="o"&&$predpredposledne!="2"){
$prvok = substr($vzorec,0,($dlzka-2));
if(in_array($prvky[$prvok],$prvky)){
/* gramatika štart */
$zmena = $prvky[$prvok];
if($prvok=="pb"):$zmena = str_replace("ť","t",$prvky[$prvok]);endif;
if($prvok=="c"):$zmena = str_replace("o","",$prvky[$prvok]);endif;
/* gramatika stop */
echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> = oxid ".$zmena."ičitý<br>(mocenstvo IV.)";}
else {echo "Prvok s označením <b>".ucfirst($prvok)."</b> v chémii zatiaľ neexistuje!";}
}
// zistí či sa jedná o mocenstvo V.
elseif(($dlzka=="4"||$dlzka=="5")&&$posledne=="5"&&$predposledne=="o"&&$predpredposledne=="2"){
$prvok = substr($vzorec,0,($dlzka-3));
if(in_array($prvky[$prvok],$prvky)){
/* gramatika štart */
$zmena = $prvky[$prvok];
if($prvok=="pb"):$zmena = str_replace("ť","t",$prvky[$prvok]);endif;
if($prvok=="c"):$zmena = str_replace("o","",$prvky[$prvok]);endif;
if($prvok==("n"||"au")){$pripona = "ičný";}else{$pripona = "ečný";} // priradenie správnej prípony
/* gramatika stop */
echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> = oxid ".$zmena.$pripona."<br>(mocenstvo V.)";}
else {echo "Prvok s označením <b>".ucfirst($prvok)."</b> v chémii zatiaľ neexistuje!";}
}
// zistí či sa jedná o mocenstvo VI.
elseif(($dlzka=="3"||$dlzka=="4")&&$posledne=="3"&&$predposledne=="o"&&$predpredposledne!="2"){
$prvok = substr($vzorec,0,($dlzka-2));
if(in_array($prvky[$prvok],$prvky)){
/* gramatika štart */
$zmena = $prvky[$prvok];
if($prvok=="cu"):$zmena = str_replace("d","ď",$prvky[$prvok]);endif;
if($prvok=="c"):$zmena = str_replace("o","",$prvky[$prvok]);endif;
if($prvok=="sb"):$zmena = str_replace("i","í",$prvky[$prvok]);endif;
/* gramatika stop */
echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> = oxid ".$zmena."ový<br>(mocenstvo VI.)";}
else {echo "Prvok s označením <b>".ucfirst($prvok)."</b> v chémii zatiaľ neexistuje!";}
}
// zistí či sa jedná o mocenstvo VII.
elseif(($dlzka=="4"||$dlzka=="5")&&$posledne=="7"&&$predposledne=="o"&&$predpredposledne=="2"){
$prvok = substr($vzorec,0,($dlzka-3));
if(in_array($prvky[$prvok],$prvky)){
/* gramatika štart */
$zmena = $prvky[$prvok];
if($prvok=="pb"):$zmena = str_replace("ť","t",$prvky[$prvok]);endif;
if($prvok=="c"):$zmena = str_replace("o","",$prvky[$prvok]);endif;
/* gramatika stop */
echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> = oxid ".$zmena."istý<br>(mocenstvo VII.)";}
else {echo "Prvok s označením <b>".ucfirst($prvok)."</b> v chémii zatiaľ neexistuje!";}
}
// zistí či sa jedná o mocenstvo VIII.
elseif(($dlzka=="3"||$dlzka=="4")&&$posledne=="4"&&$predposledne=="o"){
$prvok = substr($vzorec,0,($dlzka-2));
if(in_array($prvky[$prvok],$prvky)){
/* gramatika štart */
$zmena = $prvky[$prvok];
if($prvok=="pb"):$zmena = str_replace("ť","t",$prvky[$prvok]);endif;
if($prvok=="c"):$zmena = str_replace("o","",$prvky[$prvok]);endif;
/* gramatika stop */
echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> = oxid ".$zmena."ičelý<br>(mocenstvo VIII.)";}
else {echo "Prvok s označením <b>".ucfirst($prvok)."</b> v chémii zatiaľ neexistuje!";}
}
// ostatné
else
{echo "<b>".str_replace($co,$cim,ucfirst($vzorec))."</b> je vzorec neexistujúceho resp. nelogického oxidu!";}
}
?>
(ale nepozeral som ten skript, takže iba tipujem). 
