While ciklus Free Pascal

• 2Ovo se svidja korisnicima: vasa.93, mcrule
  
  Registruj se da bi pohvalio/la poruku!

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.

• 1Ovo se svidja korisniku: mcrule
  
  Registruj se da bi pohvalio/la poruku!

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:=1. 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