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 1301 korisnika na forumu :: 130 registrovanih, 12 sakrivenih i 1159 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: 015, A.R.Chafee.Jr., alke12, ambra, ArchaBasha, Aristotle2002, atmel, avijacija, Baždaranac, bigfoot, blatruc82, bobo85, Bobrock1, Bodin86, bojank, bolimejoli, BOXRR, bpvl, Bubimir, CikaKURE, cyprus, darionis, darkkran, Darko Jovanovic, Dejan_vw, deLacy, desmeki, Dioniss, DJUNTA, Djuza, Doc, draganca, draganl, dunavzed, dushan, Electron, ElvisP, Fliper, fokac, FOX, Fulcrum-A, galerija, Goxy1, Great White, Herman Terrance Aubrey, HrcAk47, hrkaz, ILGromovnik, Jager715510, Jakonjveliki, Jaxupa, Jeremiah, Johny Sack, Kajzer Soze, kapela, king111, lanishtefm, Luke Pathfinder, M74AB3, MarijaC84, Marko1238, markolopin, mačković, Mikisha, Miletić Zoran, MiloradKomadic, Milos82, milutin134, Mirage 2000N, MiroslavD, misa2, mishkooo, moldway, nelezele, nenad81, nenooo, Niki2024, nobutado, Nomica, novator, opt1, Orlova, Paki, paladin71, Panter, PantR, Papadubi, picknick, PITT, Povratak1912, Prašinar, prle122, raf87, RajkoB, raso76, rebcooil, rebro1974, rodoljub, S2M, sap, Sevatar, Shadows1, shiro, Sone0883, Srle993, StepskiVuk, tachinni, tecataki, TripleMMM, Tristan_Bantam, Uros Cuore Sportivo, vathra, Veless, Velizar Laro, vensla, Visionary, vlada13874, vladetije, vlahale, Vrač, vzd1389, Wehicle, Zemunikola, Zgembo78, zixmix, zoran-ruma, Zoran1959, zoran77, Zrcalo, ZZZ