QBASIC-pomoc

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Moze li mi iko pomoci oko rjesavanja zadataka iz QBASIC-a:

1.Unijeti N ocjena jednog ucenika,ispisati prosjek njegovih ocjenai s kojom ocjenom prolazi.Ako ne prolazi,ispisati da li ucenik ide na popravni ili pada razred.
2.Napisi program koji ce izracunati prosjecnu visinu ucenika skole sve dok se ne unese N-ta velicina ili visina manja od 150 cm.

Svaka pomoc bi mi dobro dosla...!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Mislim da niko nece da resi ceo zadatak umesto tebe. Ocekuj pomoc ako ovde postavis ono sto si vec uradio, pa da ti eventualno neko popravi greske.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ajde postavi neko resenje pa ces dobiti odgovor gde si konkretno pogresio, a ovako da ti uradimo ceo zadatak... tesko (ako bas prigusti).

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

qbasic ... zar se to jos uvek uci ? (salim se)

Ako se ne varam, zadatak je poprilicno jednostavan. Imas slicnih primera ili u svesci ili u knjizi.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

E zezaju me sa ti zadatkom kao budalu,pokusavao sam da ga uradim ali ne moze ga program prihvatiti nikako (ovaj sa prosjekom ocjena):

Dim prosjek As Double
Dim ojena As Integer
Dim jedinica As Integer
prosjek=0
jedinica=0
For i=1 to N
Input ocjena
Prosjek=prosjek+ocjena
If ocjena=1 then jedinica=jedinica+1
NEXT i
prosjek=prosjek/N
If prosjek>2 and prosjek<2.5 then
Print "Uspjeh Dovoljan"
end if
If....>2.5.......<3.5 then
Print.......
.
.
If prosjek>4.5 then
print "odlican"
End if
If jedinica<2 then
Print "ucenik ide na popravni"
else if PRINT "ponavlja razred"
End if
END

Gresku mi prijavljuje kod PROSJEK=PROSJEK/N (kao Owerflow)
zadatak izgleda skroz jednostavno ali nikako ga ne mogu uraditi da funkcionise.
Taj BASIC me puno izbija nevolim ga ocima gledati nikako,a profesor nece da mi upise ocjenu dok ga ne uradim da radi na racunaru.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Koliko sam primetio odma je greska jer nigde ne uneses vrednost za N tj. broj predmeta a petlja ti se vrti do N. Ima dosta gresaka... ajde danas sam nesto raspolozen. Evo zadatka..

PRINT "UNESI BROJ PREDMETA: "              INPUT N FOR I = 1 TO N INPUT OCENA IF OCENA = 1 THEN B = B + 1 P = P + OCENA NEXT PROSEK = P / N IF B<3 AND B>0 THEN PRINT "UCENIK IDE NA POPRAVNI!" IF B>=3 THEN PRINT "UCENIK PADA RAZRED!" IF B=0 THEN PRINT "PROSEK OCENA JE: ',PROSEK

Ako ti je neki deo nejasan pitaj.
Eh taj BASIC...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

upravo sam spremila da postujem odgovor, al' mi je NullCode uzeo reci iz tastature.

evo odgovor, masinac.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Svaka cast NuLLCoDe hvala ti puno na pomoci i sto si nasao vremena da mi to rjesis.
Hvala i Kaci sto je bila spremna da mi pomogne....!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

a meni hvala i ja sam bio spreman da ti pomognem
p.s.
dodaj posle input N
print "unesi ocene: "