Q-Basic

[forum@s]

Znam da je q-basic prevazidjen programerski jezik ali ja ga moram u skoli uciti.
Treba mi pomoc oko jednog zadatka
Na papiru sa kvadraticima stranica 1cm,nacrtan je krug poluprecnika r cm sa centrom u tjemenu nekog kvadratica.Napisati program koji za cijeli broj r odredjuje broj cijelih kvadratica koji pripadaju krug.
Postavljen je uslov da x*x+y*y<=r*r tj. moramo zadatak rijesiti preko Pitagorine teoreme.
Treba napomenuti da smo do sada ucili samo par komandi kao sto su CLS,INPUT,IF,MOD,FOR.
Pomoc plz uradite ga ovdje jer u ponedjeljak ce me pitati a ja neznam da uradim ovaj zadatak.

[corcrash]

Ja koliko znam domaci zadaci nesmeju da se resavaju na forumu!!! :dedica: Razmisli malo sta treba program da uradi! Trebas da izracunas povrsinu kruga, pa onda da proracunas koliko kvadratica staje na taj prostor. Toliko od mene, nadam se da je dosta!

P.S. Veoma prosto! :cool:

[KarloBasic]

QBasic kod:


DIM r AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
DIM Broj AS INTEGER
CLS
INPUT "Unesite poluprecnik kruga:", r
Broj = 0
FOR x = -r TO r
FOR y = -r TO r
IF (ABS(x) + .5) * (ABS(x) + .5) + (ABS(y) + .5) * (ABS(y) + .5) <= r * r THEN Broj = Broj + 1
NEXT y
NEXT x
PRINT "Broj celih kvadratica je:", Broj
PRINT "PRITISNI TASTER ZA IZLAZAK IZ PROGRAMA"
DO: LOOP WHILE INKEY$ = ""

Evo kako izgleda ako ne verujes formuli.

http://img143.imagevenue.com/loc152/th_95963_Kvadratici_122_152lo.jpg (http://img143.imagevenue.com/img.php?image=95963_Kvadratici_122_152lo.jpg)

Ja koliko znam domaci zadaci nesmeju da se resavaju na forumu!!!


Postavio sam cisto u edukativne svrhe, mozda jos neko nesto nauci.


Program u VisualBasic-u sa grafickim prikazivanjem.

[forum@s]

E slusaj treba da bude u tjemenu jednog od kvadratica i ako moze neke jednostavnije komande jer nismo ucili tako komplikovane

[KarloBasic]

Evo ga kod:


DIM r AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
DIM Broj AS INTEGER
CLS
INPUT "Unesite poluprecnik kruga:", r
Broj = 0
FOR x = -r TO r
FOR y = -r TO r
IF x * x + y * y <= r * r AND (x + 1) * (x + 1) + (y + 1) * (y + 1) <= r * r AND (x + 1) * (x + 1) + y * y <= r * r AND x * x + (y + 1) * (y + 1) <= r * r THEN Broj = Broj + 1
NEXT y
NEXT x
PRINT "Broj celih kvadratica je:", Broj
PRINT "PRITISNI TASTER ZA IZLAZAK IZ PROGRAMA"
DO: LOOP WHILE INKEY$ = ""
Sve komande su jednostavne.
DIM sluzi da definisanje promenljivih. ( nije obavezno u Qb)
PRINT za ispis na ekran ( bez toga nema programa)
DO: LOOP WHILE INKEY$ = "" (ovo sluzi da saceka dok ne pritisnes neki taster, nije obavezno)

http://img242.imagevenue.com/loc423/th_98386_Kvadratici_122_423lo.jpg (http://img242.imagevenue.com/img.php?image=98386_Kvadratici_122_423lo.jpg)
Vb program:

[corcrash]

Sve to moze krace ako mene pitas!

DIM a AS INTEGER
DIM b AS INTEGER
DIM c AS INTEGER
DIM d AS INTEGER

INPUT b

a = 5

c = (b^2) * 3.14

d = c / a

PRINT d


Ako se ne varam mora da radi! Ali proveri! :dedica:

[forum@s]

Nemoze probao sam.Meni treba za cijeli broj da ispadne a ovdje nikako nemoze jer imas 3.14

[corcrash]

Pa 3.14 je pi! Ispada ceo broj zato sto je INTEGER! Ucitaj ovo Kvadrat.bas (http://www.mediafire.com/?mokktg2j55n) u QBasic i proveri!

[RuSkO_17]

Nemoze probao sam.Meni treba za cijeli broj da ispadne a ovdje nikako nemoze jer imas 3.14

pa d je definisan kao integer...

to bi valjda morao znati..

[KarloBasic]

Koliko sam ja razumeo zadatak, treba izbrojati samo one kvadratice koji se celi nalaze u krugu. Tako da deljenje povrsine kruga sa povrsinom kvadrata ne daje pravilan rezultat. A pri tom jos mora Pitagorina teorema.

[forum@s]

TKoliko sam ja razumeo zadatak, treba izbrojati samo one kvadratice koji se celi nalaze u krugu. Tako da deljenje povrsine kruga sa povrsinom kvadrata ne daje pravilan rezultat. A pri tom jos mora Pitagorina teorema.
Tako je i onaj tvoj program koji si mi dao radi samo do 9 nemogu unijeti nijedan veci broj

[corcrash]

Dobro KAPISKO! Znaci onaj tvoj je ipak tacan! a to sto mozes samo do 9 je zato sto je textbox postavljen tako, prenesi kod u QBasic i radice!