Primjer 2.8. do primjera 2.15
Download as DOCX, PDF0 likes371 views
Dokument opisuje primjere korištenja if, then, else naredbi za usporedbu brojeva i određivanje vrsta trokuta. Također, navodi kako provjeriti je li godina prijestupna i kako koristiti naredbu za dobijanje trenutnog sata. Uključuje primjere s logičkim operatorima i razne strukture odluka u programiranju.
Primjer 2.8. do primjera 2.15
- 1. Primjer 2.8:<br />' Uspoređivanje brojeva. Upišite dva broja i saznajte koji je veći! <br />TextWindow.WriteLine(\" Upišite prvi broj: \" )<br />prvi = TextWindow.ReadNumber()<br />TextWindow.WriteLine(\" Upišite drugi broj: \" )<br />drugi = TextWindow.ReadNumber()<br />'Jednostavna If naredba<br />If (prvi>drugi) Then<br /> TextWindow.WriteLine( prvi +\" > \" +drugi)<br />EndIf<br />If (prvi < drugi) Then<br /> TextWindow.WriteLine(prvi +\" < \" +drugi)<br />EndIf<br />Primjer 2.9:<br />' U ovom programu uspoređuju se dva broja. Saznajte koji je od njih veći,<br />' manji ili jednak.<br />TextWindow.WriteLine(\" \" )<br />TextWindow.WriteLine(\" Upišite prvi broj: \" )<br />prvi = TextWindow.ReadNumber()<br />TextWindow.WriteLine(\" Upišite drugi broj: \" )<br />drugi = TextWindow.ReadNumber()<br />If (prvi>drugi) Then<br /> TextWindow.WriteLine( prvi +\" > \" +drugi)<br />EndIf<br />If (prvi < drugi) Then<br /> TextWindow.WriteLine(prvi +\" < \" +drugi)<br />EndIf<br />If (prvi = drugi) Then<br /> TextWindow.WriteLine(prvi +\" = \" +drugi)<br />EndIf<br />Primjer 2.10:<br />'Uspoređivanje brojeva uz upotrebu If...Then....Else naredbe.<br />' Saznajmo koji je od brojeva veći! \" )<br />TextWindow.WriteLine(\" \" )<br />TextWindow.WriteLine(\" Upišite prvi broj: \" )<br />prvi = TextWindow.ReadNumber()<br />TextWindow.WriteLine(\" Upišite drugi broj: \" )<br />drugi = TextWindow.ReadNumber()<br />' If...Then...Else nareda<br />If (prvi > drugi) Then<br /> TextWindow.WriteLine( prvi +\" > \" +drugi)<br />Else<br /> TextWindow.WriteLine(prvi +\" < \" +drugi)<br />EndIf<br />Primjer 2.11:<br />'Upotreba složene If...Then...Else naredbe<br />TextWindow.WriteLine(\" \" )<br />TextWindow.WriteLine(\" Upišite prvi broj: \" )<br />prvi = TextWindow.ReadNumber()<br />TextWindow.WriteLine(\" Upišite drugi broj: \" )<br />drugi = TextWindow.ReadNumber()<br />'prva If naredba<br />If (prvi > drugi) Then<br /> TextWindow.WriteLine( prvi +\" > \" +drugi)<br />Else<br /> ' druga If naredba nalazi se unutar prve If naredbe<br /> If (prvi < drugi) Then <br /> TextWindow.WriteLine(prvi +\" < \" +drugi)<br /> Else<br /> TextWindow.WriteLine(prvi +\" = \" +drugi)<br /> EndIf<br />EndIf<br />Primjer 2.12:<br />' Još jedan od problema s kojim se naši učenici često susreću :-)<br />' Program traži upis duljina stranica trokuta, te na temelju tih <br />' podataka određuje o kakvom je trokutu riječ.<br />TextWindow.WriteLine(\" O kakvom je trokutu riječ? \" )<br />TextWindow.WriteLine(\" \" )<br />TextWindow.WriteLine(\" Upišite stranicu a: \" )<br />a = TextWindow.ReadNumber()<br />TextWindow.WriteLine(\" Upišite stranicu b: \" )<br />b = TextWindow.ReadNumber()<br />TextWindow.WriteLine(\" Upišite stranicu c: \" )<br />c = TextWindow.ReadNumber()<br />'Složena If ...Then...Else naredba uspoređuje stranice trokuta. <br />'Kod ispitivanja uvijeta upotroijebljeni su logički operatori And i Or. <br />' Više o logičkim operatorima pogledajte ovaj blog. <br />If (a=b And a=c) Then<br /> TextWindow.WriteLine( \" Trokut je istostraničan.\" )<br />Else<br /> If (a=b Or b=c Or a=c) Then<br /> TextWindow.WriteLine(\" Trokut je jednakokračan.\" )<br /> Else<br /> TextWindow.WriteLine(\" Trokut je raznostraničan.\" )<br /> EndIf<br />EndIf<br />Primjer 2.13:<br />'U nastavku slijedi još jedan problem s kojim se ćesto susrećemo. Radi se o <br />' programu koji ispituje da li je upisana godina prijestupna ili ne.<br />'Za rješavanje ovog problema također ćemo upotrijebiti naredbu If , logičke operatore i <br />'jednu od često korištenih naredbi iz klase Math.<br />TextWindow.WriteLine(\" Kakva je godina?\" )<br />TextWindow.WriteLine(\" Napomena: Godina je prijestupna ako je dijeljiva s 4 i nije dijeljiva\" )<br />TextWindow.WriteLine(\" sa 100, ili je djeljiva s 400.\" )<br />TextWindow.WriteLine(\" \" )<br />TextWindow.WriteLine(\" Upišite jednu godinu u 21. stoljeću: \" )<br />godina = TextWindow.ReadNumber()<br />'Naredba Remainder dijeli prvi broj upisan unutar zagrade drugim te vraća ostatak dijeljenja.<br />'Primjerice Math.Remainder(godina,4)=0 dijeli upisanu godinu sa brojem 4 i uspoređuje<br />'ostatak dijeljenja sa 0.<br />If (Math.Remainder(godina,4)=0 And Math.Remainder(godina,100)<>0) Then<br /> TextWindow.WriteLine(\" Godina je prijestupna!\" )<br />Else<br /> If (Math.Remainder(godina,400)=0) Then<br /> TextWindow.WriteLine(\" Godina je prijestupna!\" )<br /> Else<br /> TextWindow.WriteLine(\" Godina nije prijestupna!\" )<br /> EndIf<br />EndIf<br />Primjer 2.14:<br />'U ovom primjeru upotrijebili smo naredbu Hour koja nam daje trenutni sat.<br />' Ovu naredbu možete pronaći u klasi Clock. Klasa Clock omogućava pristup <br />'satu sustava te u njoj uz naredbu Hour možete pronaći još desetak naredbi <br />If (Clock.Hour < 12) Then<br />TextWindow.WriteLine(\" Dobro jutro svima!\" )<br />EndIf<br />If (Clock.Hour >= 12 And Clock.Hour < 18) Then<br />TextWindow.WriteLine(\" Dobar dan svima!\" )<br />EndIf<br />If (Clock.Hour >= 18) Then<br />TextWindow.WriteLine(\" Dobra večer svima!\" )<br />EndIf<br />Primjer 2.15:<br />'Slijedeći primjer izradio je učenik sedmog razreda koji svaki dan s nestrpljenjem očekuje užinu<br />'za veliki odmor. <br />'Ovo je još jedan primjer u kojem su uz If naredbu kombinirani logički operatori<br />'i naredbe iz klase Clock.<br />TextWindow.WriteLine(\" Da li je vrijeme za veliki odmor?\" )<br />TextWindow.WriteLine(\" \" )<br />If (Clock.Hour >=9 And Clock.Minute >=35 And Clock.Minute <=50) Then<br /> TextWindow.WriteLine(\" Vrijeme je velikog odmora!\" )<br />Else<br /> TextWindow.WriteLine(\" Nije vrijeme velikog odmora!\" )<br /> <br />EndIf<br />