EAN Europäische Artikelnummer

Prof. Dr. Dörte Haftendorn Juli 2014  www.mahematik-verstehen.de
Erklärungen weitere Links und  Impressum in der Webversion unten.
http://haftendorn.uni-lueneburg.de/mathe-lehramt/codierung/ean-pruefen.htm

Manipulate[Module[{ z,zili,fli,f,pli,prsu,i},
z=EAN;
zili=IntegerDigits[z];fli={1,3,1,3,1,3,1,3,1,3,1,3,1};
If[Length[zili]=!=13,Return[Text["Deine EAN hat nicht genau 13 Ziffern"]]];
pli=Array[f,13];
For[i=1,i<14,i++,
pli[[i]]=zili[[i]]*fli[[i]]  ;  ] (*endfor*); 
prsu=Total[pli];
{{{"Produkte ",ToString[pli]}},
         {If[Mod[prsu,10]==0,
   {{"Prüfsumme  ",ToString[prsu], " ok"}},                                   {{"Prüfsumme  ", ToString[prsu], " passt nicht, es muss ein voller Zehner sein"}}
](*ende If Prüfsumme*)}}//TableForm(*end Table*)
],Style["Trage eine Artikelmummer ein", 12],
{EAN,1234567891234 },
FrameLabel->{{None,"Info\nunten"},{"www.mathematik-verstehen.de","EAN Europäische Artikelnummer"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]