Forum Sveta kompjutera

Nazad   Forum Sveta kompjutera > Test Run > Programiranje

Programiranje Programski jezici, tehnike, alatke...

Odgovor
 
Alatke vezane za temu Vrste prikaza
Stara 7.11.2008, 21:13   #1
forum@s
Član
 
Član od: 6.11.2008.
Poruke: 40
Zahvalnice: 9
Zahvaljeno 0 puta na 0 poruka
Određen forumom Q-Basic

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.
forum@s je offline   Odgovor sa citatom ove poruke
Stara 7.11.2008, 23:55   #2
corcrash
Član
 
Član od: 1.11.2006.
Poruke: 78
Zahvalnice: 0
Zahvaljeno 4 puta na 4 poruka
Wink Re: Q-Basic

Ja koliko znam domaci zadaci nesmeju da se resavaju na forumu!!! 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!
corcrash je offline   Odgovor sa citatom ove poruke
Stara 8.11.2008, 0:28   #3
KarloBasic
Član
 
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
Određen forumom Re: Q-Basic

QBasic kod:

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.



Citat:
corcrash kaže:
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.
Priloženi fajlovi
Tip fajla: zip Kvadratici.zip (4,4 KB, 15 puta viđeno)
KarloBasic je offline   Odgovor sa citatom ove poruke
Sledeći korisnik se zahvaljuje korisniku KarloBasic na korisnoj poruci:
forum@s (8.11.2008)
Stara 8.11.2008, 0:37   #4
forum@s
Član
 
Član od: 6.11.2008.
Poruke: 40
Zahvalnice: 9
Zahvaljeno 0 puta na 0 poruka
Određen forumom Re: Q-Basic

E slusaj treba da bude u tjemenu jednog od kvadratica i ako moze neke jednostavnije komande jer nismo ucili tako komplikovane
forum@s je offline   Odgovor sa citatom ove poruke
Stara 8.11.2008, 0:54   #5
KarloBasic
Član
 
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
Određen forumom Re: Q-Basic

Evo ga kod:

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)


Vb program:
Priloženi fajlovi
Tip fajla: zip Kvadratici.zip (4,3 KB, 10 puta viđeno)
KarloBasic je offline   Odgovor sa citatom ove poruke
Sledeći korisnik se zahvaljuje korisniku KarloBasic na korisnoj poruci:
forum@s (8.11.2008)
Stara 8.11.2008, 10:16   #6
corcrash
Član
 
Član od: 1.11.2006.
Poruke: 78
Zahvalnice: 0
Zahvaljeno 4 puta na 4 poruka
Određen forumom Re: Q-Basic

Sve to moze krace ako mene pitas!
Citat:
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!
corcrash je offline   Odgovor sa citatom ove poruke
Stara 8.11.2008, 10:41   #7
forum@s
Član
 
Član od: 6.11.2008.
Poruke: 40
Zahvalnice: 9
Zahvaljeno 0 puta na 0 poruka
Određen forumom Re: Q-Basic

Nemoze probao sam.Meni treba za cijeli broj da ispadne a ovdje nikako nemoze jer imas 3.14
forum@s je offline   Odgovor sa citatom ove poruke
Stara 8.11.2008, 13:02   #8
corcrash
Član
 
Član od: 1.11.2006.
Poruke: 78
Zahvalnice: 0
Zahvaljeno 4 puta na 4 poruka
Smile Re: Q-Basic

Pa 3.14 je pi! Ispada ceo broj zato sto je INTEGER! Ucitaj ovo Kvadrat.bas u QBasic i proveri!
corcrash je offline   Odgovor sa citatom ove poruke
Stara 8.11.2008, 16:09   #9
RuSkO_17
Novi član
 
Član od: 24.10.2008.
Lokacija: Sarajevo
Poruke: 26
Zahvalnice: 5
Zahvaljeno 3 puta na 3 poruka
Određen forumom Re: Q-Basic

Citat:
forum@s kaže: Pregled poruke
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..
RuSkO_17 je offline   Odgovor sa citatom ove poruke
Stara 8.11.2008, 16:27   #10
KarloBasic
Član
 
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
Određen forumom Re: Q-Basic

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.
KarloBasic je offline   Odgovor sa citatom ove poruke
Stara 8.11.2008, 17:08   #11
forum@s
Član
 
Član od: 6.11.2008.
Poruke: 40
Zahvalnice: 9
Zahvaljeno 0 puta na 0 poruka
Određen forumom Re: Q-Basic

T
Citat:
KarloBasic kaže: Pregled poruke
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.
Tako je i onaj tvoj program koji si mi dao radi samo do 9 nemogu unijeti nijedan veci broj
forum@s je offline   Odgovor sa citatom ove poruke
Stara 8.11.2008, 18:21   #12
corcrash
Član
 
Član od: 1.11.2006.
Poruke: 78
Zahvalnice: 0
Zahvaljeno 4 puta na 4 poruka
Smile Re: Q-Basic

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!
corcrash je offline   Odgovor sa citatom ove poruke
Odgovor

Bookmarks sajtovi

Alatke vezane za temu
Vrste prikaza

Vaš status
Ne možete postavljati teme
Ne možete odgovarati na poruke
Ne možete slati priloge uz poruke
Ne možete prepravljati svoje poruke

BB kod: uključeno
Smajliji: uključeno
[IMG] kod: uključeno
HTML kod: isključeno


Slične teme
tema temu započeo forum Odgovora Poslednja poruka
Liberty basic IGRACH Programiranje 0 7.10.2008 0:10
Visual Basic 6: Online Serveri Bojan Pravljenje igara 3 8.11.2007 21:15
Visual Basic 6.0 Tutorial DobroslaV Programiranje 10 4.8.2007 14:05
Microsoft Visual Basic vladix Pravljenje igara 5 17.11.2006 19:18
IT kviz B@NE Programiranje 28 5.6.2006 15:13


Sva vremena su po Griniču +2 h. Sada je 14:49.


Powered by vBulletin® verzija 3.8.7
Copyright ©2000–2020, vBulletin Solutions, Inc.
Hosted by Beograd.com