"; exit; endif; //Oreze radky o netisknutelne znaky pro ukonceni radku. $Radky = array(); for ($i=0; $i""): if (!EReg("^d\([0-9]{1,2},[0-9a-zA-Z_ ]{1}\)=\([0-9]{1,2},[0-9a-zA-Z_ ]{1},[LRS ]{1}\)$",$Radky[$i])): Header ("Content-Type: text/html; charset=windows-1250"); echo "Pravidlo ".$Radky[$i]." není v souboru zadáno korektně!
"; exit; endif; list($LCastZ[],$PCastZ[])=explode(")=(",$Radky[$i]); endif; endfor; //Upravi levou stranu pravidla na pozadovany tvar. $LCast = array(); for ($i=0; $i"; endfor; for ($i=0; $i"; endfor; for ($i=0; $i"; endfor; */ //Pole LevaCast je prevedeno na dvojrozmerne pole LevaCast2D. $j1=0; $k1=0; $LevaCast2D=array(array()); for ($i=0; $i19): Header ("Content-Type: text/html; charset=windows-1250"); echo "Počet pravidel v souboru přesahuje možnosti formuláře!
"; exit; endif; */ endif; Header ("Content-Type: text/html; charset=windows-1250"); ?> Formulář pro zadávání pravidel TS

Turingův stroj 2 Wangovo dláždění

Vypnout českou diakritiku.
Startovací slovo:

Pravidla Turingova stroje:
  δ ()"; echo "="; echo "()  "; else: ?> () = ()  
"; else: ?>

Načtení pravidel ze souboru: