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 1856 korisnika na forumu :: 89 registrovanih, 9 sakrivenih i 1758 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 13297 - dana 20 Jan 2026 17:42

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Abebe Bikila, Anunakiii, Apok, Asparagus, Asteker, bobomicek, bolenbgd, borya90, BSD, Bubimir, Chainsaw, Cigi, comi_pfc, Cvijo_ue, Despot Đurađ, djuradj, Dragacevac, Draganeli, dragoljub11987, Dugme1984, dunavzed, Dusko Nikolin, Dvogled, Dzuki, franina, gagidjuric, Gitzherai, Gligo01, ILGromovnik, Jablan, jeen yuhs, jodzula, Kalem, Kenanjoz, Kubovac, laki_bb, Leonov, marewfc, Marko Marković, MaschinenPistole, mačković, Miki 84, mikrimaus, Milometer, milutin134, mir, Mis uz pusku, moldway, Mzee, Ne doznajem se u oružje, nemkea71, nikolapetkovic, nsharambasa, Orc, otec_onufrij, Parker, pein, Perudin_92, ping15, proka89, Remarqe, repac, ruma, S-lash, sarma, sedan, Singidunumac, Sirius, Srle993, StalniPromatrač, stegonosa, stemark, Stoilkovic, Tandrkalo, taomaster, tomigun, tritonus, VanZan, VaRvArI 85, voja64, vrag81, wizzardone, wlaki, zdrebac, ZetaMan, Zoran1959, Zukov, 79693