Primjer 3.9. do primjera 3.15
Download as DOCX, PDF0 likes1,856 views
Naslov: Primjeri programa napisanih u Small Basicu Autorica: Gordana Sokol
More Related Content
More from Pogled kroz prozor (20)
Primjer 3.9. do primjera 3.15
- 1. Primjer 3.9:<br />'Potprogram PrintTime daje trenutno vrijeme sustava izra転eno u <br />'obliku sat:minuta:sekunda.<br />TextWindow.Write(\" Sada je tono: \" )<br />PrintTime()<br />TextWindow.WriteLine(\" sati.\" )<br />Sub PrintTime<br /> TextWindow.Write(Clock.Time)<br />EndSub<br />Primjer 3.10:<br />'Potprogram PronadiMax vraa vei od dva upisana broja<br />TextWindow.Write(\" Upi邸i prvi broj: \" )<br />broj1 = TextWindow.ReadNumber()<br />TextWindow.Write(\" Upi邸i drugi broj: \" )<br />broj2 = TextWindow.ReadNumber()<br />PronadiMax()<br />TextWindow.WriteLine(\" Najvei broj je: \" + max)<br />Sub PronadiMax<br />If (broj1 > broj2) Then<br /> max = broj1<br /> Else<br /> max = broj2<br />EndIf<br />EndSub<br />Primjer 3.11:<br />'Potprogram Vrijeme pretvara vrijeme zadano u sekundama u vrijeme izra転eno <br />'u satima, minutama i sekundama. <br />TextWindow.WriteLine(\" Unesi vrijeme u sekundama:\" )<br />sec=TextWindow.ReadNumber()<br />'pozivanje potprograma Vrijeme<br />Vrijeme()<br />TextWindow.WriteLine(sec + \" sekundi iznosi \" + h + \" sati \" + m +\" minuta \" + s +\" sekundi.\" )<br />TextWindow.WriteLine(\" \" )<br />' potprogram Vrijeme<br />Sub Vrijeme<br /> sec1=sec<br /> h = Math.Round(sec1/3600)<br /> ' Naredba Round zaokru転uje zadani broj na najbli転i cijeli broj<br /> sec1= Math.Remainder(sec1,3600)<br /> 'Naredba Remainder ispisuje ostatak dijeljenja prvog broja drugim<br /> m = Math.Round(sec1/60)<br /> sec1= Math.Remainder(sec1,60)<br /> s=sec1<br />EndSub<br />Primjer 3.12:<br />'Program odreuje djeljitelje zadanog broja<br />TextWindow.Write(\" Unesi broj: \" )<br />n=TextWindow.ReadNumber()<br />Rastavi()<br />Sub Rastavi<br /> i=2<br /> While (n>1)<br /> If Math.Remainder(n,i)=0 Then<br /> TextWindow.Write(\" \" +i)<br /> n= Math.Round(n/i)<br /> Else<br /> i=i+1<br /> EndIf<br /> EndWhile<br /> TextWindow.WriteLine(\" \" )<br /> EndSub<br />Primjer 3.13:<br />'Program ispituje da li je zadani broj prim broj.<br />TextWindow.Write(\" Unesi broj : \" )<br />broj = TextWindow.ReadNumber()<br />jePrim = \" True\" <br />ProvjeriPrim()<br />If (jePrim = \" True\" ) Then<br /> TextWindow.WriteLine(broj + \" je prim broj.\" )<br />Else<br /> TextWindow.WriteLine(broj + \" nije prim broj\" )<br />EndIf<br />Sub ProvjeriPrim<br /> For j = 2 To Math.SquareRoot(broj)<br /> If (Math.Remainder(broj, j) = 0) Then<br /> jePrim = \" False\" <br /> Goto EndLoop<br /> EndIf<br /> EndFor<br />EndLoop:<br />EndSub<br />Primjer 3.14:<br />'Program ispisuje proste brojeve izmeu brojeva 3 i 100<br />For i = 3 To 100<br />jePrim = \" True\" <br />ProvjeriPrim()<br /> If (jePrim = \" True\" ) Then<br /> TextWindow.WriteLine(i)<br /> EndIf<br />EndFor<br />Sub ProvjeriPrim<br /> For j = 2 To Math.SquareRoot(i)<br /> If (Math.Remainder(i, j) = 0) Then<br /> jePrim = \" False\" <br /> Goto EndLoop<br /> EndIf<br /> EndFor<br />EndLoop:<br />EndSub<br />Primjer 3.15:<br />' Da vidimo koliko ste brzi u tipkanju<br />TextWindow.Write(\" Sada je tono: \" )<br />'Pozovimo potprogram<br />PrintTime()<br />TextWindow.Write(\" sati.\" )<br />'Zapamtimo poetno vrijeme <br />vrijemePocetno = Clock.Second<br />TextWindow.WriteLine(\" \" )<br />TextWindow.Write(\" Upi邸i svoje ime: \" )<br />ime = TextWindow.Read()<br />'Zapamtimo zavr邸no vrijeme <br />vrijemeZavrsno = Clock.Second<br />'Izraunamo koliko je sekundi pro邸lo<br />if (vrijemePocetno>vrijemeZavrsno) then<br /> vrijeme= (60-vrijemePocetno)+vrijemeZavrsno<br />else<br /> vrijeme = vrijemeZavrsno- vrijemePocetno<br />endif<br />TextWindow.WriteLine(\" \" )<br />TextWindow.Write(ime + \" , sada je tono: \" )<br />'Pozovimo potprogram<br />PrintTime()<br />TextWindow.Write(\" sati.\" )<br />TextWindow.WriteLine(\" \" )<br />TextWindow.WriteLine(\" Za upisivanje va邸eg imena trebalo vam je: \" + vrijeme + \" sekundi.\" )<br />'Sada slijedi potprogram<br />Sub PrintTime<br /> 'Promjenimo boju teksta i pozadine<br /> TextWindow.BackgroundColor=\" Blue\" <br /> TextWindow.ForegroundColor=\" Yellow\" <br /> 'Ispi邸imo trenutno sistemsko vrijeme<br /> TextWindow.Write(Clock.Time)<br /> 'Vratimo boju teksta i pozadine na njihove zadane vrijednosti (sivu i crnu)<br /> TextWindow.BackgroundColor=\" Black\" <br /> TextWindow.ForegroundColor=\" Gray\" <br /> EndSub<br /> <br />