[ bokisan @ 17.12.2001. 19:44 ] @
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]
[ MoHicAn @ 17.12.2001. 23:28 ] @
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.
[ shaDy @ 18.12.2001. 21:19 ] @
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
[ bokisan @ 20.12.2001. 14:57 ] @
Prvi zadatak ne radi, a drugi je O.K. Ako mozes malo jos da mi pojednostavis, jer nismo radili ovo while i inc. HVALA
[ kajla @ 21.12.2001. 18:57 ] @
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.
[ shaDy @ 21.12.2001. 19:14 ] @
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.
[ bokisan @ 21.12.2001. 19:19 ] @
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?
[ shaDy @ 23.12.2001. 00:03 ] @
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;
[ MoHicAn @ 24.12.2001. 23:48 ] @
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 !!!
[ bokisan @ 16.01.2002. 19:27 ] @
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?