Zadaci u qbasicu

Prvi bi se mogao jednostavnije riješiti, no sudeći po ostalim zadacima induktivno zaključujem kako ga treba riješiti upravo petljom.

Naputci:

1.

 za_kvadrat = 0

 ucitano = ucitaj

 dok (za_kvadrat * za_kvadrat) < ucitano:

   za_kvadrat uvecaj za 1

 ispisi: (za_kvadrat - 1) * (za_kvadrat - 1)

2.

 umnozak = 1

 petljom prolazi od 1 do 100, neka se brojač petlje zove "broj":

  ako je broj djeljiv s 2: umnozak = umnozak * broj

 ispisi umnozak

3.

 petljom prolazi od 1 do 20, neka se brojač petlje zove "broj":

  ako je broj različit od 13, ispisi broj

Imaš li nejasnoća, upitaj!

(nadam se da ne očekuješ potpuno riješene zadatke: u tom slučaju ti osnovna pravila nisu jasna, te si trebao pitati za njih, a ne zadatke)

Hvala na uputama. Uspio sam rijesiti sve osim prvog.

2.   umnozak=1

      for i=2 to 100 step 2

      umnozak=umnozak*i

      next i

      print umnozak

3.   for i=1 to 20

      if  i <> 13 then

      print i

      end if

      next i

Problem je sto se mora koristiti petlja for-next.

Bez ikakve iterativne petlje bi moglo ići ovako:

Kvazi-pseudokod

učitaj broj

Ako je broj >1 tada

    korijen = drugi korijen od broj

    cijeliBroj = cijeli dio od korijen

    ako je cijeliBroj^2<broj tada rezultat=cijeliBroj inače rezultat=cijeliBroj-1   

inače

   rezultat = "nema rješenja"

kraj ako

ispiši rezultat

primjer 1 - uneseš broj 50, korijen = 7.07, cijeliBroj=7, 7^2=49<50 pa je rezultat=7

primjer 2 - uneseš broj 64, korijen=8, cijeliBroj=8, 8^2=64 pa je rezultat=8-1=7 jer zadatak zahtijeva prirodni broj čiji je kvadrat manji od unesenog broja

primjer 3 - uneseš negativan broj ili broj manji od 1, rezultat="nema rješenja" jer kvadrat nijednog broja ne može biti negativan, a za brojeve između 0 i 1 nema takvog prirodnog broja jer rješenje bi bilo 0 koji nije element skupa prirodnih brojeva.

Mislim da bi ovaj kod bio učinkovitiji od onoga s petljom, ali petlja predstavlja elegantniji kod.

EDIT- sad vidim da je trebalo ići s for petljom, pa rješenje imaš u postu iznad ovog.

Rijesen je i prvi zadatak.

INPUT "Unesi broj"; n

for i=1 to n

if (i*i)<n THEN

s=i

end if

next i

print s

Hvala vam, majstori ste! Ako jos sta mi zatreba znam ko zna.

dakle, ako uneseš 8, rezultat je 2

ne treba sqrt

dovoljno je if((i*i)<n

u zadatku se naglasava da se ispise najveci prirodnibroj.

Mislim da to nije dobro. Po primjeru:

ucitani_broj=9

floor(sqrt(ucitani_broj))=3

a 3^2 nije manje od ucitani_broj

ok, ja sam mu naglasio da sam mu dao kod iz c++, to smo preveli u qbasic, ako nije sve ok, možemo i sqrt

Još jedna varijanta... hihihi :)

dim broj as double, rjesenje as integer, i as integer

input "unesi broj";broj

if broj<=1 then

   print "nema rješenja"

else

   for i=1 to n

     if (i*i)>=n  then

         rjesenje=i-1

        exit for

      end if

   next i

end if

print "rješenje je:";rjesenje

Evo jedan teži zadatak,pa ako netko zna zamolio bih ga za pomoć:

Napiši program(qbasic) koji traži da unesemo koliko neka zemlja ima kvadratnih kilometara i koliko stanovnika .Program neka iz toga izračuna gustoću naseljenosti i kategoriju gustoće:

<50-mala gustoća naseljenosti

  50-150-srednja gustoća naseljenosti

>150-velika gustoća naseljenosti.

Evo jedan zadatak iz QBasic-a pa ako netko moze pomoc.......

Napisati program koji trazi da unesemo koliko minuta nam treba do skole i zatim da upisemo u koji razred idemo i iz tog izracuna koliko

smo do sada potrosili minuta za put do skole i nazad i da nam kaze koliko je to ustvari dana.

Jel netko zna kako napraviti program u qbasic koji trazi da upisemo koliko sati dnevno spavamo i koliko imamo godina i iz toga izracunamo koliko smo do sada spavali sati i koliko je to dana,a koliko godina???

Zadatak glasi: izabrati niz od n brojeva da ima i pozitivnih i negativnih.Izdvojiti negativne brojeve i naci njihovu aritmeticku sredinu.Potom upisati u datoteku aritmeticku sredinu,pozitivne i negativne brojeve.Pomocu Qbasic koda iscitati te podatke.

Ako se netko razumije u ovo,neka se ne stidi.Slobodno pomozite!