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

Paskal zadatak I (hitno)

[es] :: Pascal / Delphi / Kylix :: Paskal zadatak I (hitno)

[ Pregleda: 5530 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Djuki
Djurdjevac Ivan
Pancevo

Član broj: 56
Poruke: 171
*.panet.co.yu

Jabber: djuki_mag@elitesecurity.org
ICQ: 66867882


Profil

icon Paskal zadatak I (hitno)06.12.2001. u 17:21 - pre 244 meseci
Napisati program koji ce da formira novi niz od prostih brojeva datog niza. Broj clanova se unosi sa tastature(0<n<201) kao i niz. Negativni brojevi se takodje uzimaju u obzir.
 
Odgovor na temu

random
Vladimir Vrzić
Beograd

Član broj: 85
Poruke: 3866
194.106.163.*

Sajt: www.last.fm/user/vrza


+4 Profil

icon Re: Paskal zadatak I (hitno)06.12.2001. u 18:58 - pre 244 meseci
Zadatak je dosta lak, osim možda ovog algoritma za određivanje da li je broj prost.

Mislim da je najefikasnije da u for petlji vrtiš neko i od 2 do [sqrt(n)] (kvadratni koren iz n, zaokružen celobrojno naniže) i proveravaš u svakoj iteraciji da li je ostatak pri deljenju n / i jednak nuli, ako jeste, broj nije prost, ako prođeš celu petlju i ne dobiješ ostatak 0, onda je broj prost i upisuješ n u drugi niz (prostih brojeva).

Iz pedagoških razloga lično mi ne pada na pamet da ti pišem gotov program, ali nadam se da to nisi ni očekivao. Sad sedi napiši, i javi šta si uradio.
int rand(void);

Those who do not understand Unix are condemned to reinvent it, poorly.

Upali lampicu — koristi Jabber!
 
Odgovor na temu

Makojdis
Stefanovic Milos
Kragujevac

Član broj: 78
Poruke: 302
*.ptt.yu



Profil

icon Re: Paskal zadatak I (hitno)06.12.2001. u 19:29 - pre 244 meseci
Mrzelo me da radim sve ali evo ti jedan deo
Ovo ti je za prost broj
Code:

i,n,koren:integer;

koren:=round(sqrt(n));
i:=3;
while (n mod i<>0) and (i<=koren) do
i:=i+2;
if i>koren then write(n)  <<n je prost

 
Odgovor na temu

Toni
Dorćol, Beograd

Član broj: 15
Poruke: 654
*.verat.net

Jabber: toni@elitesecurity.org
ICQ: 16451419
Sajt: egoideas.com


Profil

icon Re: Paskal zadatak I (hitno)07.12.2001. u 08:27 - pre 244 meseci
Code:

Program Prost_Broj;
  Var
    N,I:Integer;
    Prost:Boolean;
  Begin
    Write('Unesi neki broj :');readln(N);
    Prost:=TRUE;
    For I:=2 to TRUNC(SQRT(N)) do
      If N mod I=0 THEN Prost:=FALSE;
    If Prost THEN Writeln('Broj je prost')
             ELSE Writeln('Broj nije prost');
    Readln;
  END.


Napravi od ovoga proceduru koja vraca true or false i onda uradi jedan for sa IFom koji pita racimo prost(p) then trlalala :)
Jel potpis treba pisanim ili štampanim slovima?
_________________________________________
dizajnzona.com
netizenfaction.com
egoideas.com
levodesno.com
 
Odgovor na temu

Djuki
Djurdjevac Ivan
Pancevo

Član broj: 56
Poruke: 171
*.bozic.co.yu

Jabber: djuki_mag@elitesecurity.org
ICQ: 66867882


Profil

icon Re: Paskal zadatak I (hitno)07.12.2001. u 08:40 - pre 244 meseci
Ovako:
hvala ti random na pomoci. Nisam ni ocekivao kompletno reshenje vec samo smernicu. Posle tvog posta sam napisao proram indentican tonijevom tao da je glupo da ga postujem. majdoksov kod nije dobar cini mi se jer za svaki broj kaze da je prost.
Hvala svima na pomoci ali cu najverovatnije fljujsnuti(pasti) na kolokvijumu :(
 
Odgovor na temu

B o j a n
eCTRL
EU

Član broj: 1178
Poruke: 2925
*.216.EUnet.yu

Jabber: bc@default.co.yu
Sajt: default.co.yu/~bc


+1 Profil

icon Re: Paskal zadatak I (hitno)07.12.2001. u 11:52 - pre 244 meseci
Djuki, kolokvijumi iz P1 su bezveze, gubi se poenta .... jer mislim kao da ce ti na krajnjem ispitu oprostiti gradivo sa f-jama, proc. i petljama ???

Dakle, opusteno ...

"It's okay, I'm just admiring to the shape of your skull!" -- Dr. Gonzo
 
Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.verat.net



+6455 Profil

icon Re: Paskal zadatak I (hitno)07.12.2001. u 18:09 - pre 244 meseci
Ma onaj kolokvijum je bio smesan...

2 i 3 zadatak sam resio, u trecem sam imao problema da provalim sta mu dodje ono deltaX ... ali sam ukapirao na kraju... i dodje mu da je increment 0011223344 itd... i to samo isppise kao tabelu na kraju...

a ja sam se zajebao jer sam onaj prvi zadatak samo napisao onako bezveze poslenji, jer stvarno nisam imao pojma sta je mantisa a sta one druge gluposti... i onda mi je mettallica reko da ce da racunaju dva najslabije uradjena... jebiga...
 
Odgovor na temu

PrivlaCnA
Montenegro

Član broj: 1385
Poruke: 1
*.beotel.net



Profil

icon Re: Paskal zadatak I (hitno)07.12.2001. u 22:47 - pre 244 meseci
Ventura, nisam znala da si i ti na Visoj.

i ja sam uradila drugi i treci.
u trecem je najbitnije da dobro uradis funkciju. Kod glavnog programa treba da uneses Xmax, Xmin i dX .
I onda ti treba ciklus u kome ces da mijenjas vrijednost promjenjive X od Xmin do Xmax tako sto ces je povecavati svaki put za dX. Najbolje ce se odraditi u while petlji.

Nego, ventura, ti imas dugu kosu ??
Life is simple !!!
 
Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.verat.net



+6455 Profil

icon Re: Paskal zadatak I (hitno)07.12.2001. u 23:52 - pre 244 meseci
Ma ja sam se zajebao... ja sam nalupao onaj prvi zadatak, mada midlim da sam ok odgovorio al uradio sam ga cisto smora radi... i nisam napisao koja dva da oceni.. tu sam se ujebao...

Nemam dugu kosu... boze svasta...
Poslacu ti na mail moju sliku...
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+163 Profil

icon Re: Paskal zadatak I (hitno)07.12.2001. u 23:55 - pre 244 meseci
Ventura, ti si ono prestao da se baviš kompjutorima, šta ćeš onda na NRT?

Čak bi ti i ekonomski bolje pasovao po tom pitanju..
 
Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.verat.net



+6455 Profil

icon Re: Paskal zadatak I (hitno)07.12.2001. u 23:58 - pre 244 meseci
nego.. za deltaX ... koliko sam ja ukapirao ta vrednost se ne unosi... vec se ona racuna...

deltaX mu dodje razlika sadasnjeg X-a i X-a iz predhodnog kruga for petlje...
 
Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.verat.net



+6455 Profil

icon Re: Paskal zadatak I (hitno)08.12.2001. u 00:02 - pre 244 meseci
Pa... vise razloga... Upisao sam FON (www.intelli.co.yu/skola.jpg)... ali nemam nameru da 6 godina provedem kao neki debil studirajuci... a da hocu da studiram i da zavrsim FON, moram svo svoje vreme da posevtim tome... A to nemam nameru..

NRT, traje 2.5 godine, nalazi se na 15min laganog pesacnja od moje kuce, gradivo je cista zajebancija, i sa minimalno truda zavrsicu ga u roku i imacu neki papir u dzepu...

sa kojim naravno mogu obrisati dupe, ali me zabole k****, jer FON, PMF ili ETF diplome nemogu ni za to da posluze.. jer su stampane na tvrdjem papiru...

 
Odgovor na temu

kajla
Milorad Janković
Beograd

Član broj: 445
Poruke: 909
195.252.103.*



+2 Profil

icon Re: Paskal zadatak I (hitno)21.12.2001. u 19:24 - pre 244 meseci
Citat:
ventura:
Pa... vise razloga... Upisao sam FON (www.intelli.co.yu/skola.jpg)... ali nemam nameru da 6 godina provedem kao neki debil studirajuci... a da hocu da studiram i da zavrsim FON, moram svo svoje vreme da posevtim tome... A to nemam nameru..

NRT, traje 2.5 godine, nalazi se na 15min laganog pesacnja od moje kuce, gradivo je cista zajebancija, i sa minimalno truda zavrsicu ga u roku i imacu neki papir u dzepu...

sa kojim naravno mogu obrisati dupe, ali me zabole k****, jer FON, PMF ili ETF diplome nemogu ni za to da posluze.. jer su stampane na tvrdjem papiru...


Aj ventura nemoj srati molim te.

poz.
 
Odgovor na temu

kajla
Milorad Janković
Beograd

Član broj: 445
Poruke: 909
195.252.103.*



+2 Profil

icon Re: Paskal zadatak I (hitno)21.12.2001. u 19:28 - pre 244 meseci
Ventura, čisto me zanima da li ti mogao da objasniš zašto je za prirodan broj n dovoljno proveravati da li je on deljiv sa brojevima od 2 do sqrt(n), da bi se videlo da li je broj prost ili ne?

poz.
 
Odgovor na temu

random
Vladimir Vrzić
Beograd

Član broj: 85
Poruke: 3866
194.106.163.*

Sajt: www.last.fm/user/vrza


+4 Profil

icon Re: Paskal zadatak I (hitno)24.12.2001. u 19:08 - pre 244 meseci
Obzirom da sam ja bio taj koji je predložio [sqrt(n)] (celobrojno zaokruženo naniže), moram da te pitam da li ti to samo hoćeš da proveriš venturino znanje ili zaista ne znaš/ne shvataš?
int rand(void);

Those who do not understand Unix are condemned to reinvent it, poorly.

Upali lampicu — koristi Jabber!
 
Odgovor na temu

matijs
Matija Tomanic
ucenik osnovne skole
Beograd

Član broj: 165321
Poruke: 1
*.adsl-1.sezampro.yu.

Jabber: sasasas
ICQ: 123444
Sajt: www.killerslord.piczo.com


Profil

icon Re: Paskal zadatak I (hitno)06.12.2007. u 14:59 - pre 171 meseci
using System;
using System.Collections.Generic;
using System.Text;

namespace ConsoleApplication1
{
class Program
{
static bool prostbroj(int n)
{
bool pom = true;
int i;
for (i = 2; i <= n; i++)
{
if (n % i == 0) pom = false;
}
return pom;
}
static void Main(string[] args)
{
int[] a = new int[100];
int n,i;
Console.Write("Unesi n:");
n = Convert.ToInt32(Console.ReadLine());
for (i = 1; i <= n; i++)
{
a = Convert.ToInt32(Console.ReadLine());
}
for (i = 1; i <=n; i++)
{
if (prostbroj(a))
{
Console.Write(a.ToString());
}
}
Console.ReadLine();
}
}
}
// Program je veoma jednostavan!!! Na pocetku napravis metodu ili funkciju. U njoj proveravas da li je neki broj pros i ako je prost funkcija treba da ti vraca povratnu vrednost. Posle generises niz od n clanova i ispitujes da li je a prost broj i ako jeste ispisi ga. Ovaj zadatak sam imao prosle godine na opstinskom takmicenju osnovnih skola za sedme razrede. Prosto!!! Prebaci ga samo u Paskal, a ako hoces mogu da ti ga otkucam i u C++.
Matke
 
Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
87.250.127.*



+19 Profil

icon Re: Paskal zadatak I (hitno)07.12.2007. u 10:45 - pre 171 meseci
Da dam i svoj doprinos.

Koliko sam video resenja bi bila spora da se radi o nizovima od 100 000 000 clanova. Zato cemo to uradi ovako:

napravimo booloean niz od 2..N i postavimo na true;

idemo od pocetka niza i na koji element naidjemo da ima vrijednost true on je prost broj x. Nakon sto naidjemo na prost broj zatim idemo drugom petljemo i izbacujemo iz niza sve x * k (gdje je k > 1).

ovako nesto

Code:

var
  i, j : integer;
  Niz : array[2..100000000] of boolean;

begin
   for i := 2 to 100000000 do Niz[i] := true;
   for i := 2 to 100000000 do
     if Niz[i] then
       begin
         Writeln(i);
         j := 2;
         while (i * j) > 100000000 do
            begin
              Niz[j * i] := false;
              j :+ j + 1;
            end;
       end;
end.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Paskal zadatak I (hitno)

[ Pregleda: 5530 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

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