zadatka u pascal-u

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

moze li neko da mi pomogne oko resavanja zadatka u pascal-u. Veoma mi je bitno jer cu dobiti peticu u skoli ako ga resim. Zadatak glasi ovako:
Za svaki broj unet sa tastature odstampati da li je prirodan ili ne
napomena: prirodni brojevi su oni koji su deljivi samo sa sobom i sa jedinicom.
Unapred Hvala!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

jao... pa taj zadatak je boza...
imas uslov koji je potreban i veoma lako se da resiti... razmisli malo, potrudi se...
kreni da radis (pises code) pa gde ti zapne javi se ovde.
ja nisam sam odavno radio u Pascalu pa sam pozaboravljao syntaxu kako ide, ali ih ima ovde koji znaju
potrudi se... ultra lagan zadatak...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa pazi, svaki broj je deljiv sa samim sobom i sa jedinicom, tako da samo trebaš da proveriš deljivosta sa ostalim ( jednocifrenim ) brojevima i ako je ostatak posle deljenja sa svakim od njih <> 0 onda je to prost broj... Peace of cake... Ako baš zapneš negde javi, zadatak uopšte nije težak .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Брате, имаш проблем:
Природни бројеви су цели бројеви (0) ,1 ,2,3,4...
То што теби треба су ПРОСТИ БРОЈЕВИ...
"Прост број је онај који је дељив са 1 и са самим собом"
PROGRAM PROSTI; VAR   i,a,br:INTEGER;   prost:BOOLEAN;   BEGIN   WriteLn('unesite prirodan broj:);    Read(br);    prost:=TRUE;    i:=1;    WHILE ((prost) and (i<br)) DO     BEGIN       FOR a:=1 TO br DO (*pocevsi od 1 do tog broja proverava da li ima neki koji pri deljenju sa "a" daje u ostatku 0*)       BEGIN          IF (br MOD a)=0 THEN          BEGIN             prost:=FALSE; (*ispadamo iz WHILE petlje *)          END;        END;      i:=i+1;      END; (*While*)    IF prost THEN      WriteLn(' broj je prost ! ');    ELSE      Witeln('broj nije prost !');               END; END PROSTI.               
Ево ти задатак, ОТПРИЛИКЕ ИДЕ ОВАКО.....
Не сносим никакву одговорност за оцену којом нећеш бити задовољан...

Фора је у наредби "MOD"

7 МOD 2 =1 jer 7:2 =3 + 1 (sa tim da nas ono 3 ne interesuje nego SAMO ostatak, a tamo gde je ostatak = 0 to je deljivo...)

12 MOD 3 = 0 12/3 =4 + 0

....ваљда си скапирао... задатак вероварно није без грешкеa боље га узми као идеју, па напиши сам ....


поздрав ленчуго

јави како си прошао - обавезно !!!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala puno. Dugujem jedno malo objasnjenje. Ovo nije zadatak za mene nego za jednog drugara. Nisam imao vremena da objasnjavam a i nije ni bitno. Ali svejedno on je dobio peticu. Zadatak samo malo modifikovao. Jos jednom hvala!!! Ako zelis da proveris sebe mogu da ti posaljem neke teske zadatke sa takmicenja na kojima sam bio. Odgovori.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

pravi_trenutak ::Брате, имаш проблем:
Природни бројеви су цели бројеви (0) ,1 ,2,3,4...
То што теби треба су ПРОСТИ БРОЈЕВИ...
"Прост број је онај који је дељив са 1 и са самим собом"


Hehe, pa ja nisam ni provalio da je trazio prirodne brojeve . Vidis da sam i ja objasnjavao u globalu kako ide za proste brojeve .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

biske :: Ako zelis da proveris sebe mogu da ti posaljem neke teske zadatke sa takmicenja na kojima sam bio. Odgovori.

Хммм.... Апсолвент сам информатике, па нема разлога да се "проверавам".... , ваљда сам нешто и научио....
Но, нисам неки претерани геније... Немам времена, а пре свега немам воље да их радим, но можеш их послати, чисто информативно да видим какви су, ако те не мрзи да их куцаш... Евентуално да ти их прокоментаришем како бих ја покушао да их урадим, али сам сигуран да на овом форуму има гомила бољих од мене, који би то боље урадили...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo jednog zadatka:
U dalekoj zemlji Bajtoviji mladez odavno provodi svoje slobodno vreme u igraonicama, igrajuci veoma popularnu mreznu igru Protivudar. Za nas su nebitni detalji vezani za igru, vazo je da je potrban jedan server i vise klijentskih racunara, koji su umrezeni tako da od svakog klijenta vodi tacno jedan kabl do servera.
Lokalni biznismen Djura odlucio je da se upusti u ovaj unosan posao i otvori svoju sopstvenu igraonicu. Da bi se njegova igraonica razlikovala od mnostva drugih, resio je da posebnu paznju posveti sto postenijem igranju. Jedan od problema koji se nametnuo je taj sto podaci kroz kablove putuju velikom, mada ipak konacnom brzinom. Djura je odlucio da bude rigorozan i zahteva da svi kablovi koji vode od klijenta do servera budu potpuno iste duzine. Drugi zahtev je da duzine kablova budu sto vece, kako racunari ne bi bili previsee blizu jedan drugom.
Pomozite Djuri da reci problem. Djura ima n klijenskih racunara i k kablova razlicitih duzina. On treba da od tih k kablova isece n kablova potpuno iste, ali najvece moguce duzine. Vas program teba da odredi tu duzinu.
Ulazni podaci nalaze se se u tekstualnom fajlu ZAD3.DAT. U prvom redu nalaze se brojevi n i k (n,k<=5000). U sledecih k redova nalaze se duzine kablova u metrima, svaka u posebnom redu , i to na dvedecimale. Svaka od duzina je manja od 1000 metara.
U prvi i jedini red izlaznog fajla ZAD3.RES treba upisati trazenu najvecu mogucu duzinu pojedinacnog kabla, zaokruzenu na dve decimale.
Primer:
ZAD3.DAT ZAD3.RES
11 4 2.00
8.01
7.43
4.57
5.39
Ako budes uradio obavezno javi da bih uporedio sa mojim resenjem. Ja sam uradio na takmicenju samo za odredjene vrenosti. Priznali su mi 4/5 zadatka.
Ako nekom bude zanimljivo poslacu ostala tri zadatka sa ovog takmicenja.

Dopuna: 02 Maj 2005 0:44

Mala ispravka
ZAD3.DAT ZAD.RES
11 4 2.00
8.01
7.43
4.57
5.39