home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 02 / eratho.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-12-31  |  967 b   |  47 lines
  1. /*
  2.  
  3.   ERATHO.C
  4.   Sieb der Erathostenes: testet Schleifen, Array-Zugriffe, Grundrechenarten
  5.                          "Naiver" Algorithmus !!!
  6.  
  7. */
  8.  
  9. #include <stdio.h>
  10.  
  11. #define MAX 17000
  12. #define MAXSQRT 130
  13. #define FALSE 0
  14. #define TRUE 1
  15. #define MAXIT 10
  16.  
  17. char flag[MAX];
  18.  
  19. main()
  20. {
  21.     int i, j, count, iter;
  22.  
  23.     for(iter = 1; iter <= MAXIT; iter++){
  24.  
  25.         printf("\n\n !! Fuellen des Feldes !!\n\n");
  26.         for(i = 0; i < MAX; flag[i++] = TRUE);
  27.  
  28.         printf("\n\n !! Eratho startet !!\n\n");
  29.         for(i = 2; i <= MAXSQRT; i++)
  30.             if (flag[i])
  31.                 for(j = 2; j < (MAX/i); j++)
  32.                     flag[i*j] = FALSE;
  33.  
  34.         printf("\n\n !! Eratho fertig !!\n\n");
  35.         for(i = 2,count = 0; i < MAX; i++)
  36.             if (flag[i])
  37.                 count++;
  38.  
  39.         printf("\n\n ***** Durchgang %2d ***** ",
  40.                "---> Eratho fand %5d Primzahlen. \n\n",iter,count);
  41.     }
  42. }
  43.  
  44.  
  45.  
  46.  
  47.