Liczby pierwsze - sito Eratostenesa

Wyszukiwanie liczb pierwszych sitem Eratostenesa
------------------------------------------------
(C)2005 mgr Jerzy Wałaszek       I LO w Tarnowie

Podaj granicę = 500

       2       3       5       7      11      13      17      19      23      29
      31      37      41      43      47      53      59      61      67      71
      73      79      83      89      97     101     103     107     109     113
     127     131     137     139     149     151     157     163     167     173
     179     181     191     193     197     199     211     223     227     229
     233     239     241     251     257     263     269     271     277     281
     283     293     307     311     313     317     331     337     347     349
     353     359     367     373     379     383     389     397     401     409
     419     421     431     433     439     443     449     457     461     463
     467     479     487     491     499

Koniec, naciśnij klawisz ENTER...

//     Sito Eratostenesa
//============================
// (C)2004 mgr Jerzy Wałaszek
//      I LO w Tarnowie
//----------------------------

program Erato;

{$APPTYPE CONSOLE}

const
  MAX_LP = 10000000; // maksymalna długość zbioru

var
  t     : array[2..MAX_LP] of boolean;
  i,w,g : cardinal;

begin
  writeln('Wyszukiwanie liczb pierwszych sitem Eratostenesa');
  writeln('------------------------------------------------');
  writeln('(C)2004 mgr Jerzy Walaszek       I LO w Tarnowie');
  writeln;
  write('Podaj granice = '); readln(g); writeln;
  if g > MAX_LP then
    writeln('Granica zbyt wielka')
  else
  begin
    for i := 2 to g do t[i] := true;
    for i := 2 to g do
    begin
      w := i + i;
      while w <= g do
      begin
        t[w] := false;
        w    := w + i;
      end;
    end;
    for i := 2 to g do
      if t[i] then write(i : 8);
    writeln;
  end;
  writeln;
  writeln('Koniec, nacisnij klawisz ENTER...');
  readln;
end.

//     Sito Eratostenesa
//============================
// (C)2004 mgr Jerzy Wałaszek
//      I LO w Tarnowie
//----------------------------

#include <iostream>
#include <iomanip>

using namespace std;

main()
{
  const unsigned MAX_LP = 1000000; // maksymalna długość zbioru
  bool t[MAX_LP + 1];
  unsigned i,w,g;
  char s[1];

  cout << "Wyszukiwanie liczb pierwszych sitem Eratostenesa\n"
          "------------------------------------------------\n"
          "(C)2004 mgr Jerzy Walaszek       I LO w Tarnowie\n\n"
          "Podaj granice = ";
  cin >> g; cout << endl;
  if(g > MAX_LP)
    cout << "Granica zbyt wielka\n";
  else
  {
    for(i = 2; i <= g; i++) t[i] = true;
    for(i = 2; i <= g; i++)
    {
      w = i + i;
      while(w <= g)
      {
        t[w] = false; w += i;
      }
    }
    for(i = 2; i <= g; i++)
      if(t[i]) cout << setw(8) << i;
    cout << endl;
  }
  cout << "\n\nKlawisz Enter = KONIEC";
  cin.getline(s,1);	
  cin.getline(s,1);	
}

'     Sito Eratostenesa
'============================
' (C)2005 mgr Jerzy Wałaszek
'      I LO w Tarnowie
'----------------------------

Option Explicit On

Module Module1

  Sub main()
    Const MAX_LP = 10000000 ' maksymalna długość zbioru

    Dim t(MAX_LP) As Byte
    Dim i, w, g As UInteger

    Console.WriteLine("Wyszukiwanie liczb pierwszych sitem Eratostenesa")
    Console.WriteLine("------------------------------------------------")
    Console.WriteLine("(C)2005 mgr Jerzy Wałaszek       I LO w Tarnowie")
    Console.WriteLine()
    Console.Write("Podaj granicę = ")
    g = Val(Console.ReadLine)
    Console.WriteLine()
    If g > MAX_LP Then
      Console.WriteLine("Granica zbyt wielka")
    Else
      For i = 2 To g : t(i) = 1 : Next
      For i = 2 To g
        w = i + i
        While w <= g
          t(w) = 0
          w += i
        End While
      Next
      For i = 2 To g
        If t(i) > 0 Then Console.Write("{0,8}", i)
      Next
      Console.WriteLine()
    End If
    Console.WriteLine()
    Console.WriteLine("Koniec, naciśnij klawisz ENTER...")
    Console.ReadLine()
  End Sub

End Module

# -*- coding: cp1250 -*-
#     Sito Eratostenesa
#============================
# (C)2005 mgr Jerzy Wałaszek
#      I LO w Tarnowie
#----------------------------

print "Wyszukiwanie liczb pierwszych sitem Eratostenesa"
print "------------------------------------------------"
print "(C)2005 mgr Jerzy Walaszek       I LO w Tarnowie"
print
g = int(raw_input("Podaj granice = "))
print
t = range(g + 1)
for i in range(2, g + 1):
  w = i + i
  while w <= g:
    t[w] = 0
    w += i
for i in range(2, g + 1):
  if t[i]: print "%7d" % i,
print
print
raw_input("Koniec, nacisnij klawisz ENTER...")

<html>
  <head>
  </head>
  <body>
    <div align="center">
      <form name="frmerato"
            style="border: 1px outset #FF9933;
                   padding-left: 4px; padding-right: 4px;
                   padding-top: 1px; padding-bottom: 1px;
                   background-color: #FFCC66">
        <h3 style="text-align: center">
          Sito Eratostenesa
        </h3>
        <p style="text-align: center">
          (C)2004 mgr Jerzy Wałaszek - I LO w Tarnowie
        </p>
        <hr>
        <p style="text-align: center">
          Podaj górną granicę zbioru
        </p>
        <p style="text-align: center">
          <input type="text" name="T1" size="20" value="100">
        </p>
        <p style="text-align: center">
          <input type="button" value="Szukaj" name="B1" onclick="main()">
        </p>
        <p id="data_out" style="text-align: center">...</p>
      </form>

<script language=javascript>

//     Sito Eratostenesa
//============================
// (C)2004 mgr Jerzy Wałaszek
//      I LO w Tarnowie
//----------------------------

function main()
{
  var t = new Array();
  var i,w,g,s;

  g = parseInt(document.frmerato.T1.value);
  if(isNaN(g))
    s = "<font color=Red><b>ZŁE DANE</b></font>";
  else
  {
    for(i = 2; i <= g; i++) t[i] = true;
    for(i = 2; i <= g; i++)
    {
      w = i + i;
      while(w <= g)
      {
        t[w] = false; w += i;
      }
    }
    s = "";
    for(i = 2; i <= g; i++) if(t[i]) s += i + " ";
  }
  document.getElementById("data_out").innerHTML = s;
}
</script>
    </div>
  </body>
</html>