Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

[es] :: Pascal / Delphi / Kylix :: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

[ Pregleda: 5750 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

bokisan
Bojan Miljevic
Srbija

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

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


Profil

icon Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)17.12.2001. u 19:44 - pre 271 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

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)17.12.2001. u 23:28 - pre 271 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

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)18.12.2001. u 21:19 - pre 271 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
 
Odgovor na temu

bokisan
Bojan Miljevic
Srbija

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

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


Profil

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)20.12.2001. u 14:57 - pre 271 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

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)21.12.2001. u 18:57 - pre 271 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

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)21.12.2001. u 19:14 - pre 271 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.
 
Odgovor na temu

bokisan
Bojan Miljevic
Srbija

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

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


Profil

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)21.12.2001. u 19:19 - pre 271 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

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)23.12.2001. u 00:03 - pre 271 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;
 
Odgovor na temu

MoHicAn

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



Profil

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)24.12.2001. u 23:48 - pre 271 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

icon Re: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)16.01.2002. u 19:27 - pre 270 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

[es] :: Pascal / Delphi / Kylix :: Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

[ Pregleda: 5750 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.