Home
Scripts
   · Countdown
   · Formulare
   · Globus
   · Lotterie
   · Passwort
   · Primzahlen
   · Ticker
   · Url-Eingabe
   · Wochentag
Games
Referenz
Links
Gäste
Kontakt

< 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



Alle angebotenen Scripts können Sie mit einem WAP- und WMLScript-fähigen Entgerät auf

www.wmlscript.de/wap

testen.