MyCity » Pascal » Da li je ovo tacno?

Da li je ovo tacno?

Napisano na dan: 25.3.2009

Da li je ovo tacno?
Sledeća strana Pagination

Idi na vrh

Poslao: 25 Mar 2009 02:18
Idi na vrh
offline
  • Student informatike
  • Pridružio: 26 Mar 2008
  • Poruke: 293
  • Gde živiš: Novi Sad

Potrebno je napisati program koji za uneti niz brojeva odredjuje proizvod clanova koji su neparni i negativni.

var   i,n,b,p:integer; begin   write('Unesite n:');   readln(n);   s:=0; p:=1;   for i:=1 to n do     begin       write('Unesite clan ',i,':');       readln(b);       if (b<0) and (b mod 2 <> 0) then       p:=p*b;       end;   writeln(p);   readln end.

Ono sto mene zanima jeste da li je ovo tacno ?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 25 Mar 2009 10:07
Idi na vrh
offline
  • Pridružio: 16 Jun 2005
  • Poruke: 2392
  • Gde živiš: Beograd

jedino ne znam zasto stoji s:=0; jer se nigde ne koristi promenljiva s, a nije ni deklarisana... Ostatak koda je u redu i promenljiva p ce imati vrednost prozivoda negativnih neparnih brojeva.



Poslao: 25 Mar 2009 11:59
Idi na vrh
offline
  • Student informatike
  • Pridružio: 26 Mar 2008
  • Poruke: 293
  • Gde živiš: Novi Sad

s je visak to znam(to je trebalo da bude suma brojeva Very Happy),ono sto mene brine je pocetna vrednost p:=1; zbog koje izbacuje proizvod 1 cak i kada nije,da li je to pogresno?

Poslao: 25 Mar 2009 12:10
Idi na vrh
offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

U principu jeste pogresno, ali ako stavis na 0 onda neces moci da mnozis, jer 0*nesto je 0.
Mozes da stavis brojac neki da vidis koliko je bilo takvih brojeva, pa ako je bilo 0 da stampas 0, a ako je bilo vise od nula da stampas p.

MyCity » Pascal » Da li je ovo tacno?

Ko je trenutno na forumu
 

Ukupno su 1000 korisnika na forumu :: 148 registrovanih, 12 sakrivenih i 840 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 100jan, _stipa_, A.R.Chafee.Jr., acov34, Agape, AleksandarV, aleph_one, Antoni S, Ares12356, asdfjklc, Avalon015, Ba4e, Batko.VD.65, bbogdan, blankspace, Bojan198527, bojcistv, Boris BM, Boris.A, Bosnjo, bpvl, BrcakRS, BSD, Bubimir, burevesnik, Buzdovan, ceman, Cicumile, cifra, Czrweni, Dambi, darkkran, darkojbn, dejan1972, delrey, dexter77, Djevrek od kartona, DJUNTA, dnevnasoba, Dokon Pop, Dolinc, draganl, drimer, dule10savic, dunavzed, dushan, DuškoMraz, Electron, foksmolder, Fructo, Goxy1, GrobarPovratak, Gudza, Hans Gajger, Heavy Jerk, igorkozar83, jodzula, Jovan1983, K-1A, kaisarevic1, KimiMR, king111, kirucar, KizJ, kovacicbozo, Kuroje, kybonacci, laurusri, Leonov, Lep1na, ludvig 78, Magistar78, Manjane, Markobreee, mercedesamg, mercedez, Mi lao shu, mikrimaus, MIKULENCE, Milan1996, milanpb, MiljanXD, milos.cbr, milos1231, mino bosanac, mishkooo, Mldo, Mrav Obrad, MrNo, nebidrag, nerevar, Neutral, neutrino, Niki2024, Nikoletina Bursac, Nmr, novator, Ns1975, Otto Grunf, Papadubi, Pekman, Perudin_92, pisac12, PlayerOne, PMsnow, Povratak1912, Radoslava, repac, Sale0501, samocitam, sap, Savantije, Shinobi, Sledge Hammer, Sonic, SpaDej, spalev, stegonosa, Stoilkovic, tachinni, toni061, TRAVUNIJA, Tumansky, Tvrtko I, USSVoyager, VanZan, vathra, vazduh, VBoss, vdeki, vensla, vidra1, Vilhelmus, VJ, Vlad000, W123, Welky, xAlex2, Zandar, Zdilar, zdrebac, zexon, zivojin32, ZlatniRez, zmajognjeniivan, Zoran1959, zule2, zzapNDjuric99