Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Neki zadaci u Visual basic

[es] :: Visual Basic 6 :: Neki zadaci u Visual basic

[ Pregleda: 8103 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

zzzzeljko
ucenik

Član broj: 201755
Poruke: 20
*.147.eunet.yu.



Profil

icon Neki zadaci u Visual basic17.11.2008. u 20:02 - pre 187 meseci
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.
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Neki zadaci u Visual basic17.11.2008. u 22:45 - pre 187 meseci
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 :)
 
Odgovor na temu

zzzzeljko
ucenik

Član broj: 201755
Poruke: 20
*.42.eunet.yu.



Profil

icon Re: Neki zadaci u Visual basic18.11.2008. u 13:19 - pre 187 meseci
Hvala. Bice jos nekih zadacica - pripremam se za takmicenje....
 
Odgovor na temu

[es] :: Visual Basic 6 :: Neki zadaci u Visual basic

[ Pregleda: 8103 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.