1 / 9

Petlje-broj ponavljanja unaprijed nepoznat

Petlje-broj ponavljanja unaprijed nepoznat. II gimnazije. While petlje. sintaksa: while ( Uslov ) do [begin] naredbe ; [end;]. Dok god je ( Uslov tacan ) cini ( radi ) [ Pocetak ] naredbe ; [ Kraj ;].

aric
Download Presentation

Petlje-broj ponavljanja unaprijed nepoznat

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Petlje-brojponavljanjaunaprijednepoznat II gimnazije

  2. While petlje sintaksa:while (Uslov)do [begin] naredbe; [end;] Dok god je (Uslovtacan) cini(radi) [Pocetak] naredbe; [Kraj;] Uslov-logickiiskaz, i on imavrijednostistina (true) ililaz (false) //Ispis faktorijela brojeva do 7. 7!=7*6*5*4*3*2 ; 6!=6*5*4*3*2 ; ... program PrekoWhile; var i,fak:integer; begin fak:=1;i:=1; while i<=7 do begin fak:=fak*i; writeln ('!',i,'=',fak); i:=i+1;//brojac se uvecava end; readln;readln; end. Milenko Soldat

  3. While petlje //Entistepencijelogbroja a(n je iz N) program PrekoWhile; vara,n,i,rez:integer; begin rez:=1;i:=1; writeln('Unesitebazu a');readln(a); writeln('Unesiteeksponent n');readln(n); while (i<=n) do begin rez:=rez*a; i:=i+1;//brojac se uvecava end; writeln(a,' na ',n,' = ',rez); readln;readln; end. Milenko Soldat

  4. While petlje //Program za ispis prirodnog broja sa inverznim ciframa(123---321; ...) program PrekoWhile; var broj,cifra,novi:integer; begin writeln('Unesite prirodan broj');readln(broj); novi:=0; while (broj>0) do begin cifra:=broj mod 10; novi:=novi+cifra; novi:=novi*10; broj:=broj div 10; end; writeln('Uneseni broj unazad glasi:',novi div 10); readln;readln; end. Milenko Soldat

  5. While petlje {Napisati program kojim se medju brojevima 1+1/2; 1+1/2+1/3;...pronalazi prvi veci od zadatog broja x } program Untitled; var s,x:real; i:integer; begin s:=1;i:=2; writeln('Unesite neki broj x');readln(x); while (x>=s) do begin s:=s+1.0/i; i:=i+1; end; writeln('Prvi veci od ',x:7:3,' je broj ',s:7:3); readln;readln; end. Milenko Soldat

  6. Repeat petlje sintaksa:repeat naredbe; until(Uslov); Ponavljaj naredbe; Dok(Uslov)nijetacan Uslov-logickiiskaz, i on imavrijednostistina (true) ililaz (false) //Ispis faktorijela brojeva do 7. 7!=7*6*5*4*3*2 ; 6!=6*5*4*3*2 ; ... program PrekoRepeat; var i,fak:integer; begin fak:=1;i:=1; repeat fak:=fak*i; writeln ('!',i,'=',fak); i:=i+1;//brojac se uvecava until i>7; readln;readln; end. Milenko Soldat

  7. Repeat petlje //Enti stepen cijelog broja a(n je iz N) program PrekoRepeat; var a,n,i,rez:integer; begin rez:=1;i:=1; writeln('Unesite bazu a');readln(a); writeln('Unesite eksponent n');readln(n); repeat rez:=rez*a; i:=i+1;//brojac se uvecava until i>n; writeln(a,' na ',n,' = ',rez); readln;readln; end. Milenko Soldat

  8. Repeat petlje //Program za ispis prirodnog broja sa inverznim ciframa(123---321; ...) program PrekoRepeat; var broj,cifra,novi:integer; begin writeln('Unesite prirodan broj');readln(broj); novi:=0; repeat cifra:=broj mod 10; novi:=novi+cifra; novi:=novi*10; broj:=broj div 10; until (broj=0); writeln('Uneseni broj unazad glasi:',novi div 10); readln;readln; end. Milenko Soldat

  9. Repeat petlje //Program za odredjivanje zbira cifara prirodnog broja-123----s=6 program PrekoRipit; var broj,cifra,s:integer; begin writeln('Unesite prirodan broj ');readln(broj); s:=0; repeat cifra:=broj mod 10; s:=s+cifra; broj:=broj div 10; until (broj=0); writeln('Suma cifara unesenog broja je:',s); readln;readln; end. Milenko Soldat

More Related