[ zzzzeljko @ 17.11.2008. 20:02 ] @
Da li može neko da mi reši i objasni ovaj zadatak u VB?

Autobus broj 99 gradskog saobracajnog preduzeca Beograd ima N stanica na kojima izlaze i ulaze putnici. Da bi direktor imao uvid da li su autobusi dovoljno veliki, naredio je da beleze broj putnika u autobusu. Kako je vozacima naporno da posle svake stanice broje putnike, oni su odlucili da broje samo koliko je putnika izaslo i koliko uslo na svakoj stanici. Na prvoj stanici autobus je prazan (na njoj nijedan putnik nece izaci), na poslednjoj stanici svi putnici izlaze iz autobusa i nijedan putnik ne ulazi u autobus. Napisi program kojim se prvo unosi broj stanica N na relaciji autobusa broj 99, a zatim za svaku stanicu broj putnika koji su izasli i broj putnika koji su usli na toj stanici, a zatim ispisuje koliko se najvise putnika vozilo u nekom trenutku u autobusu.
[ Aleksandar Ružičić @ 17.11.2008. 22:45 ] @
probaj ovako:
Code:

Dim brojStanica As Integer
Dim brojPutnika As Integer
Dim maxPutnika As Integer
Dim i AS Integer

brojStanica = InputBox("Unesi broj stanica")

For i = 1 TO brojStanica
   brojPutnika = brojPutnika + InputBox("Broj putnika koji je usao na " & i & ". stanici")
   brojPutnika = brojPutnika - InputBox("Broj putnika koji je izasao na " & i & ". stanici")
   If brojPutnika > maxPutnika Then maxPutnika = brojPutnika
Next

MsgBox "U autobusu se najvise vozilo " & maxPutnika & " putnika..."

trebalo bi da radi :)
[ zzzzeljko @ 18.11.2008. 13:19 ] @
Hvala. Bice jos nekih zadacica - pripremam se za takmicenje....