Zadaci u qbasicu

Ovako, nisi bio posve jasan u dvije stvari:

1. kako se tocno unose brojevi i koliko ih treba biti, pa sam ja nasumicno generirao 10 brojeva

2. sto tocno znaci "izdvojiti negativne brojeve"? Zbrojiti ih i izracunati aritmeticku sredinu, ili ih doslovce prebaciti u posebno polje, pa potom zbrajati i racunati sredinu? Ja sam ih samo zbrojio i izracunao aritmeticku sredinu, ali ni ovo drugo nije tesko.

Ovako to nekako izgleda:

DIM brojevi(10)
DIM novibrojevi(10)

CLS
RANDOMIZE TIMER

FOR i% = 1 TO 10
        brojevi(i%) = INT(RND * 255) - 127
NEXT i%

n% = 0
zbroj% = 0
sredina# = 0

FOR i% = 1 TO 10
        IF brojevi(i%) < 0 THEN
                n% = n% + 1
                zbroj% = zbroj% + brojevi(i%)
        END IF
NEXT i%

sredina# = (zbroj% / n%)

OPEN "brojevi.txt" FOR OUTPUT AS 1

FOR i% = 1 TO 10
        PRINT #1, brojevi(i%)
NEXT i%

PRINT #1, sredina#
CLOSE #1

OPEN "brojevi.txt" FOR INPUT AS 1

FOR i% = 1 TO 10
        LINE INPUT #1, linija$
        novibrojevi(i%) = VAL(linija$)
NEXT i%

LINE INPUT #1, linija$
sredina2# = VAL(linija$)
CLOSE #1


FOR i% = 1 TO 10
        PRINT novibrojevi(i%)
NEXT i%
PRINT "Aritmeticka sredina neparnih brojeva je: ", sredina2#

kôd je katastrofalno ruzan, moglo bi ga se bolje formatirati, ali buduci da je kasno to cu prepustiti tebi...

1.zadatak:

Korisnik unosi prirodan broj n (4<n<11) nakon cega se generira niz od n*2 prirodnih brojeva gdje su svi elementi niza slucajno odabrani troznamenkasti brojevi.Ispisati sve razlicite proste elemente niza te koliko ih ima!!!

2.zadatak:

Korisnik unosi prirodne brojeve u datoteku (obavezna provjera uvjeta) ,korisnik nakon unosa svakog broja odlucuje zeli li nastaviti unos.ispisati iz datoteke za svaki broj njegov heksadekatski ekvivalent (ne koristit funkciju HEX$)

molim vas rijesite mi ovo hitno mi je !!! :)

CLS
pi! = 3.14159265#
INPUT "Unesi promjer kruga: ", promjer%
PRINT "Opseg kruga iznosi: ", promjer% * pi!

Pod uvjetom da sam dobro skuzio sto je obim, a sto precnik. :P

Pa valjda ste ucili Pi u skoli, ako imas zadatak u kojem se on treba koristiti da bi se doslo do rjesenja.

U slucaju mojeg rjesenja, 'pi' je varijabla koja u sebi sadrzi PI konstantu na 8 decimala. Njenom nazivu je dodan usklicnik koji oznacava da je varijabla tipa float jednostruke preciznosti. Sada vidim da sam zapravo napravio gresku, 'pi' sam trebao deklarirati kao float dvostruke preciznosti pa bi to onda izgledalo nekako ovako:

pi# = 3.14159265#

No kako to u konacnici nema nekakav znacajan utjecaj na zadatak, nije ni bitno previse.

Joj pa to je barem lako, imaš petlje, modolo operator, input, i to je to

Je li u QBasicu?
Inače, možeš po Ohmovom zakonu, I=U/R.

Da, za 50kn.

Al da ne budemo zločesti:

1.

DO

broj = 100

if broj mod 3 = 0

print broj

broj++

LOOP

2.

slično, samo provjeravaš jel input veći od 10. I ograniči broj unosa na 15.