\documentclass{standalone}

\usepackage[utf8]{inputenc}

\usepackage{ifthen}

\usepackage{tikz}

\usetikzlibrary{chains}

\usetikzlibrary{calc, decorations.pathmorphing}

\tikzstyle{tape}=[thick, draw, minimum height=5mm, minimum width=7mm, fill=green!35,outer sep=0pt]

\tikzstyle{head}=[very thick, draw, minimum height=6mm, minimum width=7mm, fill=none,outer sep=0pt]

\def\DrawTape#1{

\begin{scope}[start chain=1 going right,node distance=-0.15mm]

    % start tape

    \node [on chain=1,tape,draw=none, tape, fill=none, draw=none] at (0,-\i*1) (node\i0){\ldots\ };

    \draw [thick,fill=green!35] (node\i0.north east) -- ++(-.07,0) decorate [decoration={zigzag, segment length=.10cm, amplitude=.015cm}] 

    {-- ($(node\i0.south east)+(-.15,0)$)} -- (node\i0.south east) -- cycle;

    % draw tape 

      \foreach [count=\j] \element in \adlist {     

	  \ifthenelse{\j = \head}{ % read-write heads current position

		    \node [on chain=1,tape, fill=red!35] (node\i\j){\element};

	      }

	      {

		    \node [on chain=1,tape] (node\i\j) {\element};

	      }

      }    

    % close tape

    \draw [thick,fill=green!35] (node\i\j.north east) -- ++(.15,0) decorate [decoration={zigzag, segment length=.10cm, amplitude=.015cm}] 

    {-- ($(node\i\j.south east)+(.07,0)$)} -- (node\i\j.south east) -- cycle;

    \node [on chain=1,tape, fill=none, draw=none] (end\i) {\ \ldots};

    \node [right = of end\i]{\tiny tape~\i};

    % draw read-write head

    \prevnode=\head

    \advance\prevnode by -1

    \node [head,right = of node\i\the\prevnode] (head\i){};

    \node [above = of head\i]{\tiny head \i};

\end{scope}

}

\newcount\prevnode

\begin{document}

% Define the turing machine as a list of pairs, where each pair consists of the read-writes head position the delimiter "/" and  the list of symbols on the tape.

\newcommand{\tapes}{ 3/{, , ,1,1, }, 1/{, 1, 0, 1 , 0,}, 2/{ , 1 , 1, 0, 1,}}

\begin{tikzpicture}

% Draw program node

\draw (-1.5,-2) node [draw, thick, rectangle, minimum height= 2.5cm, minimum width=2cm, fill=white, rounded corners] (program){program};

% Draw tapes and heads

\foreach [count=\i] \head/\adlist in \tapes {

    % Draw tape and head

    \DrawTape{\i,\head,\adlist}

    % Draw link to program

    \draw[thick, rounded corners=3pt] (program) {-- ($(node\i0.south west) + (0,-0.15)$)} 

	{-- ($(head\i.south) + (0,-0.1)$)}-- (head\i.south);

}

\end{tikzpicture}

\end{document}