|
< Primzahlen >
Ein Primzahlen-Test mit WMLScript.
WAP-Standard: 1.1+
primzahlen.wml
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="c1" title="Primzahlen">
<p>Zahl eingeben:</p>
<p>
<input name="zahl"/>
<a href="primzahlen.wmls#init($(zahl))">Prüfen</a>
</p>
</card>
<card id="c2" title="Primzahlen">
<p>$(z)<br/>$(p)</p>
<p><a href="#c1">Neu</a></p>
</card>
</wml>
primzahlen.wmls
extern function init(n) {
var b = isPrime(x);
WMLBrowser.setVar("z", "Zahl: " + x);
WMLBrowser.setVar("p", "Prim: " + b);
WMLBrowser.go("primzahlen.wml#c2");
}
function isPrime(x) {
if(x<2) return false;
else if(x%2==0 && x!=2) return false;
var i, n=3, p="2", prime;
while(n*n<=x) {
i = 0, prime = true;
while(val(p,i)*val(p,i)<=n) {
if(n%val(p,i)==0) {
prime = false;
break;
}
i++;
}
if(prime) {
if(x%n==0) return false;
p += " "+n;
}
n += 2;
}
return true;
}
function val(a,i) {
return Lang.parseInt(String.elementAt(a,i," "));
}
Download Primzahlen.zip (ca.2 kb)
Copyright © 2002-2003 by wmlscript.de - Alle Rechte vorbehalten
Impressum | Datenschutz | eMail
|