Primjer 3.1. do primjera 3.8
Download as DOCX, PDF0 likes2,049 views
Naslov: Primjeri programa napisanih u Small Basicu Autorica: Gordana Sokol
More Related Content
Similar to Primjer 3.1. do primjera 3.8 (8)
More from Pogled kroz prozor (20)
Primjer 3.1. do primjera 3.8
- 1. Primjer 3.1:<br />'U ovom primjeru za mijenjanje tijeka programa upotrijebili smo oznaku start:.<br />'Rije je oznaci koju raunalo razumije, a mo転emo joj dodijeliti bilo koji naziv.<br />i = 1<br />start:<br />TextWindow.WriteLine(i)<br />' i=i+1 je ustvari broja, iskaz koji zadaje raunalu da vrijednost varijable i povea<br />' za 1 i rezultat opet dodijeli varijabli i<br />i = i + 1<br />' naredba Goto start zadaje raunalu da pone izvr邸avati naredbe koje slijede <br />' nakon oznake start. Ova nareba e se izvr邸iti ukoliko je zadovoljen uvjet<br />' postavljen u If naredbi<br />If (i < 25) Then<br /> Goto start<br />EndIf<br />Primjer 3.2:<br />'Primjer jednostavne For naredbe<br />For i = 1 To 24<br /> TextWindow.WriteLine(i)<br />EndFor<br />Primjer 3.3:<br />'Program s beskonanom petljom. Program odreuje da li je upisani broj paran ili <br />'neparan te o tome ispisuje poruku.<br />TextWindow.WriteLine(\" Izvoenje programa prekinite klikom na gumb za zatvaranje (X). \" )<br />'Pomou oznake begin: stvorili smo beskonanu petlju. Kad program stigne do kraja <br />'izvoenje se ponovo 邸alje na ovu oznaku.<br />begin:<br />TextWindow.Write(\" Upi邸ite broj: \" )<br />num = TextWindow.ReadNumber()<br />remainder = Math.Remainder(num, 2)<br />If (remainder = 0) Then<br /> TextWindow.WriteLine(\" Broj je paran!\" )<br /> Else<br /> TextWindow.WriteLine(\" Broj je neparan!\" )<br />EndIf<br />Goto begin<br />Primjer 3.4:<br />'Primjer For petlje u kojoj se vrijednost varijable i pri svakom prolasku <br />'kroz petlju poveava za 2.<br />For i = 1 To 24 Step 2<br />TextWindow.WriteLine(i)<br />EndFor<br />Primjer 3.5:<br />'Primjer For petlje u kojoj se vrijednost varijable i pri svakom prolasku <br />'kroz petlju smanjuje za 1 (Step -1).<br />For i = 10 To 1 Step -1<br />TextWindow.WriteLine(i)<br />EndFor<br />Primjer 3.6:<br />'Primjer jednostavne While petlje<br />broj = 150<br />While (broj > 1)<br /> TextWindow.WriteLine(broj)<br /> broj = broj / 2<br />EndWhile<br />Primjer 3.7:<br />'Program ispisuje dijeljitelje zadanog broja. U programu imamo kombinaciju <br />'For petlje i If petlje koja se izvr邸ava unutar For petlje.<br />TextWindow.Write(\" Upi邸ite broj: \" )<br />broj = TextWindow.ReadNumber()<br />TextWindow.WriteLine(\" Dijeljitelji broja \" + broj +\" su: \" )<br />For i=1 To broj<br /> remainder = Math.Remainder(broj, i)<br /> If (remainder = 0) Then<br /> TextWindow.WriteLine(i)<br /> <br /> EndIf<br />EndFor<br />Primjer 3.8:<br />'Program ispisuje zbroj parnih i zbroj neparnih elemenata niza. Korisnik<br />'odreuje koliko elemenata niza se unosi, te unosi elemente.<br />TextWindow.Write(\" Upi邸ite broj elemenata: \" )<br />n = TextWindow.ReadNumber()<br />zbroj_parnih=0<br />zbroj_neparnih=0<br />For i=1 To n<br /> TextWindow.Write(\" Upi邸i broj: \" )<br /> x=TextWindow.ReadNumber()<br /> remainder = Math.Remainder(x, 2)<br /> If (remainder = 0) Then<br /> zbroj_parnih=zbroj_parnih+x<br /> Else<br /> zbroj_neparnih=zbroj_neparnih+x<br /> EndIf<br /> <br />EndFor<br />TextWindow.WriteLine(\" Zbroj parnih je \" +zbroj_parnih+ \" a neparnih je \" +zbroj_neparnih)<br />