zadatka u pascal-u

zadatka u pascal-u

offline
  • Pridružio: 24 Apr 2005
  • Poruke: 130
  • Gde živiš: Kosovo i Metohija

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!!!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

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 Wink
potrudi se... ultra lagan zadatak...



offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

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 Wink.

offline
  • Pridružio: 18 Apr 2005
  • Poruke: 42
  • Gde živiš: Nedeljica (odmah iza Subotice) zemlja Dembelija

Брате, имаш проблем:
Природни бројеви су цели бројеви (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 боље га узми као идеју, па напиши сам ....


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

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

offline
  • Pridružio: 24 Apr 2005
  • Poruke: 130
  • Gde živiš: Kosovo i Metohija

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.

offline
  • Strog  Male
  • Stručni saradnik
    Web programiranje
  • Bojan Kopanja
  • Web & Mobile developer @ ZeusSoftware
  • Pridružio: 26 Jul 2003
  • Poruke: 2597
  • Gde živiš: Stara Pazova

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


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

offline
  • Pridružio: 18 Apr 2005
  • Poruke: 42
  • Gde živiš: Nedeljica (odmah iza Subotice) zemlja Dembelija

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

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

offline
  • Pridružio: 24 Apr 2005
  • Poruke: 130
  • Gde živiš: Kosovo i Metohija

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

Ko je trenutno na forumu
 

Ukupno su 795 korisnika na forumu :: 39 registrovanih, 6 sakrivenih i 750 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: apostata, beowl, darkangel, dule10savic, Dzoni90, FOX, hyla, Igrutinovic, ikan, Insan, kalens021, kolateralnasteta, Konda, kovinacc, Marko Marković, Markoni29, mihajlot2013, mikrimaus, Milan Bagzi Stojanov, miljannis, Misirac, mnn2, moldway, nemkea71, nuke92, ostoja, panonski mornar, repac, ruger357, ruma, S-lash, Sale.S, shone34, slonic_tonic, vladas87, Vladko, Warhawk, x9, yufighter