Ponavljanje naredbi 4 zadatak INPUT n INPUT m

Ponavljanje naredbi

4. zadatak INPUT n INPUT m FOR X = n TO m PRINT x; NEXT X END

FOR… NEXT • Ponavlja određeni skup naredbi zadani broj puta: zadaje se prvi broj s kojim počinje i zadnji broj s kojim završava. • Iza zadnje naredbe koja se ponavlja obavezno se piše NEXT. CLS FOR x = 1 TO 15 FOR c = 0 TO 31 PRINT x COLOR c NEXT x PRINT c END NEXT c END

STEP • Određuje korak. CLS FOR x = 0 TO 100 STEP 2 FOR y = 10 TO 300 STEP -1 PRINT x PRINT y NEXT x NEXT y END

ZADATAK • Napiši program koji će ispisati sve brojeve od -20 do 20. CLS FOR x = -20 TO 20 PRINT x NEXT x END

ZADATAK • Napiši program koji će ispisati sve neparne brojeve od 1 do 50. • Napiši program koji će ispisati sve brojeve od 500 do 100.

CRTANJE POMOĆU FOR… NEXT (40, 0)-(40, 480) (80, 0)-(80, 480) (120, 0)-(120, 480) (160, 0)-(160, 480) ……… (x, 0)-(x, 480) x=40 TO 640

SCREEN 12 FOR x = 40 TO 640 STEP 40 COLOR 4 LINE (x, 0) - (x, 480) NEXT x END

ZADATAK • Nacrtaj 6 kružnica koje imaju zajedničko središte. Središte je u koordinati (320, 240). Prva kružnica ima polumjer 30, a svaka sljedeća za 20 veći. Koristimo naredbu FOR… TO… NEXT. SCREEN 12 FOR p = 30 TO 130 STEP 20 CIRCLE (320, 240), p NEXT p END

SCREEN 12 FOR x = 20 TO 620 COLOR 4 PSET (x, 320) NEXT x END

ZADATCI • Napiši program koji će nacrtati 20 vodoravnih, međusobno paralelnih crta. Crte spajaju lijevi i desni rub zaslona. Razmak između crta je 10. • Napiši program koji će nacrtati 14 uspravih, međusobno paralelnih crta. Razmak između susjednih crta je 30. Crte spajaju gornji i donji rub zaslona. • Napiši program koji će nacrtati okomite i vodoravne paralelne crte preko cijelog zaslona s razmakom 20. Okomite crte su žute (14) a vodoravne crvene (4).