Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 2 odgovora
  • 9.167 pregleda

Najnovija ↓

Neki zadaci u Visual basic 17.11.2008. u 21:02 · pre 218 meseci #1
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.
Re: Neki zadaci u Visual basic 17.11.2008. u 23:45 · pre 218 meseci #2
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 :)
Potpis
rafforum.rs - Forum Računarskog Fakulteta
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme