7.11.2008, 21:13 | #1 |
Član
Član od: 6.11.2008.
Poruke: 40
Zahvalnice: 9
Zahvaljeno 0 puta na 0 poruka
|
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. |
7.11.2008, 23:55 | #2 |
Član
Član od: 1.11.2006.
Poruke: 78
Zahvalnice: 0
Zahvaljeno 4 puta na 4 poruka
|
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! |
8.11.2008, 0:28 | #3 | |
Član
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
|
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$ = "" Citat:
Program u VisualBasic-u sa grafickim prikazivanjem. |
|
Sledeći korisnik se zahvaljuje korisniku KarloBasic na korisnoj poruci: | ||
forum@s (8.11.2008) |
8.11.2008, 0:37 | #4 |
Član
Član od: 6.11.2008.
Poruke: 40
Zahvalnice: 9
Zahvaljeno 0 puta na 0 poruka
|
Re: Q-Basic
E slusaj treba da bude u tjemenu jednog od kvadratica i ako moze neke jednostavnije komande jer nismo ucili tako komplikovane
|
8.11.2008, 0:54 | #5 |
Član
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
|
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$ = "" 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: |
Sledeći korisnik se zahvaljuje korisniku KarloBasic na korisnoj poruci: | ||
forum@s (8.11.2008) |
8.11.2008, 10:16 | #6 | |
Član
Član od: 1.11.2006.
Poruke: 78
Zahvalnice: 0
Zahvaljeno 4 puta na 4 poruka
|
Re: Q-Basic
Sve to moze krace ako mene pitas!
Citat:
|
|
8.11.2008, 10:41 | #7 |
Član
Član od: 6.11.2008.
Poruke: 40
Zahvalnice: 9
Zahvaljeno 0 puta na 0 poruka
|
Re: Q-Basic
Nemoze probao sam.Meni treba za cijeli broj da ispadne a ovdje nikako nemoze jer imas 3.14
|
8.11.2008, 13:02 | #8 |
Član
Član od: 1.11.2006.
Poruke: 78
Zahvalnice: 0
Zahvaljeno 4 puta na 4 poruka
|
Re: Q-Basic
Pa 3.14 je pi! Ispada ceo broj zato sto je INTEGER! Ucitaj ovo Kvadrat.bas u QBasic i proveri!
|
8.11.2008, 16:09 | #9 |
Novi član
Član od: 24.10.2008.
Lokacija: Sarajevo
Poruke: 26
Zahvalnice: 5
Zahvaljeno 3 puta na 3 poruka
|
Re: Q-Basic
|
8.11.2008, 16:27 | #10 |
Član
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
|
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.
|
8.11.2008, 17:08 | #11 |
Član
Član od: 6.11.2008.
Poruke: 40
Zahvalnice: 9
Zahvaljeno 0 puta na 0 poruka
|
Re: Q-Basic
TTako je i onaj tvoj program koji si mi dao radi samo do 9 nemogu unijeti nijedan veci broj
|
8.11.2008, 18:21 | #12 |
Član
Član od: 1.11.2006.
Poruke: 78
Zahvalnice: 0
Zahvaljeno 4 puta na 4 poruka
|
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!
|
Bookmarks sajtovi |
Alatke vezane za temu | |
Vrste prikaza | |
|
|
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 |