While ciklus Free Pascal

While ciklus Free Pascal

offline
  • Pridružio: 11 Jan 2012
  • Poruke: 1153

Moze li neko da mi sastavi zadatak ili dva iz while ciklusa posto nemam odakle da vezbam? Od ostalog gradiva iz Pascal-a znam if, for, blok naredbe, mod i div. Ne znam nizove.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Napisano: 28 Maj 2012 14:29

Program Niz_While; uses crt; var niz: array [1..10] of integer;       a,b:integer; begin writeln('Popunite niz:'); a:=1; while (a<=10) do begin writeln ('clan niza [',a,']'); readln (niz[a]); a:=a+1; end; writeln('Uneti niz je:'); for a:=1 to 10 do begin writeln (niz[a]); end; readln; end.

Dopuna: 28 Maj 2012 14:37

Najbolje se uci na primeru ovde imas objedinjenu while petlju i nizove. Zadatak bi glasio ovako: popuiti niz od 10 celih brojeva koristeci while petlju. A zatim ga ispisati pomocu for petlje (ona je samo laksi nacin zapsivanja while petlje).
Nizovi se popunjavaju koristeci petlje, najcesce for, ali zbog potrebe objasnjenja while petlje koristimo while.
Za while petlju moramo da imamo deklarisanu promenljivu i dodeljenu vrednost (u ovom slucaju a:=1Wink. Dok kod for petlje se to lakse zapisuje for a:=1 to 10 do begin sav uslov se nalazi u petlji. Ako treba da se nesta objasni pitaj.

Dopuna: 28 Maj 2012 14:48

for petlja automatski povecava za 1 tako da ne moramo da pisemo a:=a+1; to pomaze u smanjivnaju koda



Ko je trenutno na forumu
 

Ukupno su 781 korisnika na forumu :: 32 registrovanih, 4 sakrivenih i 745 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 2967 - dana 31 Okt 2019 06:37

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 4channer, 8u47, aca022, aleksandar_tatic, aleksmajstor, aljosa7, AMCXXL, Atomski čoban, avtomoto, axa, brundo65, caesar, dule clio, Faki-Valjevo, ILGromovnik, Ivan Gajic2, Joja, kolateralnasteta, Kubovac, ljuba, Majki, mercedesamg, Metanoja, Nebo_M, olga3031944, powSrb, Regrut Boskica, ribar.ivan, rovac, Shomy, Vlada1389, 187