MyCity » Pascal » Repeat petlja

Repeat petlja

Napisano na dan: 6.10.2012

Repeat petlja
Sledeća strana Pagination

Idi na vrh

Poslao: 06 Okt 2012 01:24
Idi na vrh
offline
  • Pridružio: 31 Dec 2011
  • Poruke: 109
  • Gde živiš: Novi Pazar

U zadatku se trazi da se ispisu 10 najvecih trocifrenih brojeva deljivih sa k. Broj k se unosi sa tastature. Koristiti Repeat petlju.

program prvi; var   i, br, k: Integer; begin   Write(' Unesi broj k: '); ReadLn(k);   i:=999;   br:=0;   repeat     if i mod k = 0 then     begin       WriteLn(i);       br := br + 1;     end;     i := i - 1;   until (br < 11) and (i > 99) end.

Program ne javlja gresku ali ni ne radi kako treba to jest ispisuje samo 999 na izlazu i to samo ako je deljiv sa k. Ja koristim Free Paskal IDE.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 06 Okt 2012 08:08
Idi na vrh
offline
  • dr_Bora  Male
  • Anti Malware Fighter
    Rank 2
  • Pridružio: 24 Jul 2007
  • Poruke: 12280
  • Gde živiš: Höganäs, SE

Imaš Repeat / Until sve dok i ne bude veće od 99, tako da ponavljanja uopšte nema (pošto je već u prvoj proveri i = 998).



Until (br=10) Or (i=99);



Poslao: 06 Okt 2012 11:56
Idi na vrh
offline
  • Pridružio: 31 Dec 2011
  • Poruke: 109
  • Gde živiš: Novi Pazar

Hvala ti, retko kad koristim repeat ali eto sad na ispitu mi je bio taj zadatak i bilo je naglaseno preko ove petlje da se uradi. Pogresno sam uradio na moju zalost GUZ - Glavom U Zid verovatno mi nece nista priznati jer je krupna greska...

MyCity » Pascal » Repeat petlja

Ko je trenutno na forumu
 

Ukupno su 1916 korisnika na forumu :: 104 registrovanih, 8 sakrivenih i 1804 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 5623 - dana 13 Dec 2025 19:56

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 9k38, A.R.Chafee.Jr., alternator, AndrejPetar, bakovaca, BaneM75, blue, boj.an, Bombarder, Boris BM, boskelazo, cuvarkuca, darkojbn, Desmond, dexteroza, Doc, draganl, Džekson, Ercomero, Feller, FOX, GeoM, GH69, Giskard, Goksi95, gomago, goxin, halkin gol, HrcAk47, Inner-Cell, jeen yuhs, Jeremiah, JimmyNapoli, Jonbonjovi, Jozo74, karjatid, Klass, Kruger, Kubovac, kunktator, Lester Freamon, ljuba, luja, M74AB3, MaCS, Marko Marković, markolopin, mačković, MB120mm, Metanoja, MGBRBG, milenko crazy north, miljannis, MiljanXD, Milometer, Milos ZA, Milun24, minmatar34957, Mzee, narandzasti, nebkv, nemkea71, Nepopravljivi, nevjerna beba, oganj123, OgnjenMitric, oldtimer, opt1, Pekman, pinci01, Povratak1912, procesor, proka89, raf87, Razdroid, repac, RiV, samo_srpski, sasics, SD izvidjac, sekretar, Sevetar, shadow, Shajlok, Simonsen23, Sinduk, Sir Budimir, skok, Srle993, Srpska zauvjek, ss10, stalja, Stojan Mrsavi, SympathyForTheDevil, Tandrkalo, tomigun, USSVoyager, veljko82, vukovi, XBMC, ziggga, ZlatniRez, Žoržo, Đurđevdan