[es] - Ispis četvorocifrenih blizanaca (prostih brojeva koji se razlikuju za 2)

bokisan
Bojan Miljevic
Srbija

Član broj: 1038
Poruke: 56
*.InfoSky.Net

ICQ: 138726343
Sajt: ww1.infosky.net/~bokisan

Profil

Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{17.12.2001. u 19:44 - pre 276 meseci}

Zadatak je da se ispisu svi cetvorocifreni blizanci (prosti brojevi koji se razlikuju za 2) i da se izracuna njihov proizvod. Ako mozete da mi napisete ceo zadatak, a ne samo objasnjenje, jer se ja u ovome ne snalazim bas najbolje... HVALA

[Ovu poruku je menjao bokisan dana 16.01.2002 u 08:26 PM GMT]

Odgovor na temu

MoHicAn

Član broj: 43
Poruke: 1893
*.yubc.net

Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{17.12.2001. u 23:28 - pre 276 meseci}

Citat:

bokisan:
Sigurno je glupo, ali imam jedan problem u pascal-u. Htel da mi zakljuci 4 iz informatike, jer nisam znao da uradim jedan zadatak sa FOR naredbom. Mozda je glupo, ali bi mi znacilo ako bi neko znao da mi pomogne... Zadatak je da se ispisu svi cetvorocifreni blizanci (prosti brojevi koji se razlikuju za 2) i da se izracuna njihov proizvod. Ako mozete da mi napisete ceo zadatak, a ne samo objasnjenje, jer se ja u ovome ne snalazim bas najbolje... HVALA

Dobro zasto
mislim kako imas 4 iz informatike ako ovo ne mozes da resis ???

program xxx;
var x,i:integer;
p:longint;
begin
x:=1000;
p:=1000;
for i:=1 to 4500 do
begin
write(x); {zaboravio sam kako ide formatiranje texta u writeu pa sam stavio samo ovako}
x:=x+2; {ili x:=inc(x,2)}
p:=p*x; {s tim sto ja mislim da je ovo mnogo veliko cak i za longint}
end;
writeln(p);
end.

Odgovor na temu

shaDy
Nikola J
-=BGD=-

Član broj: 1507
Poruke: 240
*.ppp-bg.sezampro.yu

Sajt: www.CikloBerza.com

Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{18.12.2001. u 21:19 - pre 276 meseci}

Nisam bas potpuno siguran da sam shvatio sta se u stvari trazi ali mislim
da gore navedeno resenje nije tacno, jer prog. ne proverava da li je broj prost i njihovu razliku.

Koliko sam ja shvatio program treba da nadje sve cetvorocifrene proste brojeve
cija je razlika = 2. znaci "veci - manji = 2" ( ispravite me ako nije tacno).
primer: 1021 i 1019 ili 1033 i 1031

ne kapiram ono sa proizvodom, jer kao sto je vec receno ovaj proizvod je
prevelik i za longint.

Evo ti sors koji samo ispisuje sve cetvorocifrene blizance pa ti onda dodaj sta jos treba.
--------
var i:integer;

function prost( n:integer ):boolean;
var
i:integer; p:boolean;
begin
i:=3;
p:=n mod 2 <> 0;
while (i<=n div 2) and p do

begin
p:=n mod i <> 0;
inc(i);
end;

prost:=p;
end;

begin
for i:=1002 to 9999 do
If prost(i) then
If prost(i-2) then writeln(i,' ',i-2);
end.

--------
POz

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Odgovor na temu

bokisan
Bojan Miljevic
Srbija

Član broj: 1038
Poruke: 56
*.InfoSky.Net

ICQ: 138726343
Sajt: ww1.infosky.net/~bokisan

Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{20.12.2001. u 14:57 - pre 276 meseci}

Prvi zadatak ne radi, a drugi je O.K. Ako mozes malo jos da mi pojednostavis, jer nismo radili ovo while i inc. HVALA

Odgovor na temu

kajla
Milorad Janković
Beograd

Član broj: 445
Poruke: 909
195.252.103.*

+2 Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{21.12.2001. u 18:57 - pre 276 meseci}

Svi prosti brojevi p se mogu napisati u obliku:
p=3k+1 ili p=3k+2 (p>3), jasno je da prvi od blizanaca ne moze biti 3k+1 jer broj (3k+1)+2 bio deljiv sa tri. Ono sto hocu da kazem da nema potrebe traziti sve proste brojeve pa od njih izdvajati koji ima blizanca vec treba traziti samo proste brojeve oblika p=3k+2.

poz.

Odgovor na temu

shaDy
Nikola J
-=BGD=-

Član broj: 1507
Poruke: 240
*.ppp-bg.sezampro.yu

Sajt: www.CikloBerza.com

Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{21.12.2001. u 19:14 - pre 276 meseci}

inc(i) ti je isto sto i i:=i+1, povecava 'i' za jedan.

while ti je naredba ciklusa sa preduslovom sto znaci
da se ono izmedju begin i end izvrsava sve dok je ispunjen
uslov koji se navodi posle while{u ovom slucaju ((i<=n div 2) and p)}.

ne znam tacno kako da ti pojednostavim jer ne znam sta ste ucili.

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Odgovor na temu

bokisan
Bojan Miljevic
Srbija

Član broj: 1038
Poruke: 56
*.InfoSky.Net

ICQ: 138726343
Sajt: ww1.infosky.net/~bokisan

Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{21.12.2001. u 19:19 - pre 276 meseci}

Citat:

shaDy:
inc(i) ti je isto sto i i:=i+1, povecava 'i' za jedan.

while ti je naredba ciklusa sa preduslovom sto znaci
da se ono izmedju begin i end izvrsava sve dok je ispunjen
uslov koji se navodi posle while{u ovom slucaju ((i<=n div 2) and p)}.

ne znam tacno kako da ti pojednostavim jer ne znam sta ste ucili.

jel moze to nekako sa for?

Odgovor na temu

shaDy
Nikola J
-=BGD=-

Član broj: 1507
Poruke: 240
*.drenik.net

Sajt: www.CikloBerza.com

Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{23.12.2001. u 00:03 - pre 276 meseci}

Citat:

bokisan:

jel moze to nekako sa for?

function prost( n:integer ):boolean;
var
i:integer; p:boolean;
begin
p:=n mod 2 <> 0;
for i:=3 to n div 2 do
if n mod i = 0 then p:=false;
prost:=p;
end;

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Odgovor na temu

MoHicAn

Član broj: 43
Poruke: 1893
*.yubc.net

Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{24.12.2001. u 23:48 - pre 276 meseci}

Citat:

bokisan:
Prvi zadatak ne radi, a drugi je O.K. Ako mozes malo jos da mi pojednostavis, jer nismo radili ovo while i inc. HVALA

A da da
fuck
sorry
nisam video da treba prosti brojevi da se gledaju !!!

Odgovor na temu

bokisan
Bojan Miljevic
Srbija

Član broj: 1038
Poruke: 56
*.InfoSky.Net

ICQ: 138726343
Sajt: ww1.infosky.net/~bokisan

Profil

Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

^{16.01.2002. u 19:27 - pre 275 meseci}

Citat:

shaDy:

Citat:

bokisan:

jel moze to nekako sa for?

function prost( n:integer ):boolean;
var
i:integer; p:boolean;
begin
p:=n mod 2 <> 0;
for i:=3 to n div 2 do
if n mod i = 0 then p:=false;
prost:=p;
end;

a sta znaci ovo function prost( n:integer ):boolean;
jel moze to nekako drugacije?

Odgovor na temu