Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Verteilen.Bas(nur für Jojo interessant)

Uploader:Redakteurytwinky
Datum/Zeit:02.07.2007 20:13:05

'Hiermit kann nur Jojo was anfangen, wenn überhaupt..
  Const MaxWaren=4, AnzahlKuhlraum=4
  Dim As Double lVorrat(MaxWaren), Menge(MaxWaren), Platz = 75000 + AnzahlKuhlraum * 100000, Summe
  Dim As Long i
  lVorrat(0) = 10000 'Vorrat.Vegetarisch
  lVorrat(1) = 15000 'Vorrat.Fleisch
  lVorrat(2) = 20000 'Vorrat.Milchprodukte
  lVorrat(3) = 5000 'Vorrat.Trinken

Sub Verteilen(Platz As Double, lVorrat() As Double, Menge() As Double)
  Dim Mittel As Double
  Dim i As Integer
  For i=0 To MaxWaren-1
    Mittel=Mittel+lVorrat(i)
    Menge(i)=i
  Next
  Mittel=Mittel/MaxWaren
  ?"Mittel=" &Mittel
  For i=0 To MaxWaren-1
    Menge(i)=Platz/4+Mittel-lVorrat(i)
  Next
End Sub

?"Platz=" &Platz
Verteilen(Platz, lVorrat(), Menge())
Platz=0
For i=0 To MaxWaren-1
  ?"Vorrat(" &i &")=" &lVorrat(i) ," Menge(" &i &")=" &Menge(i)
  Summe=Summe+lVorrat(i)
  Platz=Platz+Menge(i)
Next
?"Summe=" &Summe
?"Platz=" &Platz
Sleep