Kód: Vybrať všetko

http://en.wikipedia.org/wiki/Sieve_of_Eratosthenes

Kód: Vybrať všetko

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <limits.h>

#define DLZKA 25

typedef struct intlist {
        int prvocislo;
        intlist *dalsie;
}INTLIST;

int je_prvocislo(int cislo)
{
    int i;
    
    for (i=2; i<=sqrt(cislo); i++) 
        if (cislo%i==0)
           return 0;
    
    return 1;
}

void pridaj(int cislo, INTLIST **zoznam) 
{
     static INTLIST *p_akt=NULL, *p_pom=NULL;
          
     (*zoznam)->prvocislo=cislo;
     p_pom=(INTLIST *)malloc(sizeof(INTLIST));  
     p_pom->dalsie=(*zoznam);  
     (*zoznam)=p_pom; 
}

void rozklad(int cislo, INTLIST **zoznam)
{
     
     int pole_prvocisel[DLZKA]={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};
     int i=0, j=pole_prvocisel[DLZKA-1]+1, vysledok;
     
     while (1) {
         if (i<DLZKA) {
            if ((cislo%pole_prvocisel[i])==0) {
               if ((cislo!=pole_prvocisel[i]))
                  rozklad((cislo/pole_prvocisel[i]), zoznam);
               vysledok=(cislo==pole_prvocisel[i]) ? cislo : pole_prvocisel[i];
               break;
            }
            i++;
         } else if (j<INT_MAX) {                        
                if (cislo%j==0) {                     
                   if (je_prvocislo(j)==1)
                      if (cislo!=j)
                        rozklad((cislo/j), zoznam);
                   vysledok=(cislo==j) ? cislo : j;
                   break;
                }
           j++;     
         }
            
     }
     pridaj(vysledok, zoznam);   
}

int main(void)
{
    INTLIST *zoznam;
    int N;
    
    printf("Program na rozklad prirodzenych cisel na prvocisla.\nPre ukoncenie zadaje cislo 0.\n\n");
    
    while (printf("Zadaj cislo: "), scanf("%d", &N), N!=0) {
       if (N<0) {
          printf("Zadali ste zaporne cislo alebo cislo mimo rozsahu 32-bitovej premennej.\n", N);
          continue;
       }    
       zoznam=(intlist *)malloc(sizeof(INTLIST));
       zoznam->dalsie=NULL;
       rozklad(N, &zoznam);
       if (zoznam->dalsie->prvocislo==N)
          printf("Cislo %d je prvocislo.\n", N);
       else {
          printf("Rozklad cisla %d na sucin prvocisel: ", N);
          while (zoznam->dalsie!=NULL) {
               zoznam=zoznam->dalsie;
               printf("%d", zoznam->prvocislo);
               if (zoznam->dalsie!=NULL)
                  printf(" * ");
          }
          putchar('\n');   
       }
    }
    
    return 0;
}

Kód: Vybrať všetko

var i,j:integer;
    znak:array [1..10] of integer;
    vys:real;

begin
     clrscr;
     i:=0;
     vys:=0;

     writeln('Zadaj cisla osobitne odklepnute enterom. Zapis cisel ukoncis zadanim cisla 8');

      repeat

            i:=i+1;
            readln(znak[i]);

      until(znak[i]=8);
      i:=i-1;

      for j:=i downto 1 do
                          if(j=i) then vys:=znak[i]*1
                           else vys:=vys+(znak[j]*exp((i-j)*ln(8)));


     writeln('V desiatkovej sustave je to: ',vys:2:0);

     readkey;
end.