prvocisla

beginner · Napísal **beginner**: 31.10.2008 22:56

Mohol by takto vyzerat program na zistenie ci je dane cislo prvocislo ?
Ak viete jednoduchsie riesenia,prosim napiste.

Kód:

program prvocisla;
uses crt;
var x,i,n,vysledok,delitel:integer;
begin
clrscr;

  repeat
    i:=2;
    delitel:=0;
    readln(n);
    x:=trunc(sqrt(n));
    if (n = 0) or (n = 1) then writeln('Cislo ',n,' nie je prvocislo !')
    else
    begin
      while (i <= x) do
      begin
        vysledok:= n mod i;
        if (vysledok = 0) then delitel:=delitel + 1;
        i:=i+1;
      end;
      if (delitel > 0) then writeln('Cislo ',n,' nie je prvocislo !')
      else writeln('Cislo ',n,' je prvocislo !');
    end;
  until (n=0);

end.

neutronmind · Napísal **neutronmind**: 01.11.2008 16:46

Podla mna nemusis hladat pocet vsetkych delitelov, staci, ked najdes jedneho rozneho od 1 a uz vies, ze zadane cislo nie je prvocislo.

Kód:

program prvocisla; 
uses crt; 
var x,i,n,delitel:integer;
begin 
clrscr; 

  repeat 
    i:=2; 
    delitel:=0; 
    readln(n); 
    x:=trunc(sqrt(n)); 
    if (n = 0) or (n = 1) then writeln('Cislo ',n,' nie je prvocislo !') 
    else 
    begin 
      while ((i <= x) and (delitel<>1)) do
      begin 
        if (n mod i=0) then delitel:=1;
        i:=i+1; 
      end; 
      if (delitel = 1) then writeln('Cislo ',n,' nie je prvocislo !')
      else writeln('Cislo ',n,' je prvocislo !'); 
    end; 
  until (n=0); 

end.

V tomto pripade sa cyklus while skonci pri najdeni prveho delitela, cize nehlada ostatnych delitelov.

ado21 · Napísal **ado21**: 02.11.2008 1:12

najjednoduchsie a efektivne je casto rozdiel.

trunc/round pri praci s realnymi cislami. Ak su cisla integer, ta div/mod

preco staci kontrolovat po odmocninu?

neutronmind · Napísal **neutronmind**: 02.11.2008 16:16

No to mas tak, pokial cislo nema aspon jedneho delitela mensieho ako jeho odmocnina, tak nema ziadneho - je prvocislo.

ado21 · Napísal **ado21**: 02.11.2008 16:20

preco to mam tak?

beginner · Napísal autor témy **beginner**: 02.11.2008 18:02

neutromind:
no hej tvoj skript je lepsi,ak nebudes chciet vediet pocet delitelov.

neutronmind · Napísal **neutronmind**: 02.11.2008 22:33

jo jo

ado21 - ved si to skus s nejakym cislom - ak nema do svojej odmocniny nejakeho delitela, tak uz potom nema ziadneho.

Gazda Zdeno · Napísal **Gazda Zdeno**: 03.11.2008 15:39

a čo taká 9 ?

odmocnina je 3 a 9 nemá menšieho deliteľa ako 3.....

neutronmind · Napísal **neutronmind**: 03.11.2008 17:08

...mensieho alebo rovneho odmocnine :rolleyes:

To som sa pomylil, ale v tom kode to je spravne ( while ((i <= x ...)

programator · Napísal **programator**: 03.11.2008 21:05

Pouzite Eratostenovo sito, od 2 po odmocninu z N nasledovnym sposobom :

Kód:

#define N 102 

int main() { 

   int i, j, a[N]; 
    
   /* vsetky prvky pola oznacim 1 */
   for (i = 2; i < N; i++) a[i] = 1;
   
   /* tie ktore niesu prvocisla oznacim ako 0 */
   for (i = 2; i < (int)sqrt(N); i++) 
      for (j = i; i*j < N; j++) a[i*j] = 0; 

   /* podmienkou if (a[i]) co je ekvivalent s if (a[i] == true) v pascali 
   testujem ci sa dane cislo nachadza medzi prvocislami */      
   for (i = 2; i < N; i++) 
      if (a[i]) printf("%4d", i); 

   getch();
   return 0; 
}

Lukasito · Napísal **Lukasito**: 16.01.2011 16:31

metoda v jave:

Kód:

 public static boolean isPrvocislo(int number) {
        int j = 2;
        float a;

        while (!(j >= number)) {
            a = (float) number / j;
            // zistenie ci cislo je cele alebo realne
            if (a > (int) (number / j)) {
                j += 1;
            } else {
                return false;
            }
        }
        return true;
    }

prvocisla

Podobné témy