Příklad – Visual Basic – Fórum – Programujte.com

Zasekl jsem se na tomto příkladu:

Z klávesnice se zadají výše platu zaměstnanců ukončené platem ředitele, který přesáhl jako jediný 50 000 Kč. Vypočítej průměrný plat ve fabrice a o kolik plat ředitele přesahuje průměrný plat.

#1 uzi
Hezký příklad. Díky.

V podstatě jednoduchý cyklus a trocha matematiky. Zkus něco stvořit.

Pokud očekáváš, že to někdo napíše za tebe, patří to do inzerce a měla by být u toho i výše odměny.

hu

#3 hlucheucho
stvořil jsem tohle. Dál nevím.

Sub main()

 Dim i As Byte, pocetVIntervalu As Byte, rozsah As Byte
  Dim nah As Single
  Dim s As String
  Dim vIntervalu As String
  Dim sum As String
    Dim prum As Single
  s = ""
  sum = 0
  pocetVIntervalu = 0
  s = "Padla tato náhodná čísla: "
  rozsah = 70 - (-30) + 1
  vIntervalu = "V intervalu od 0 do 70 byla tato čísla: "
  For i = 1 To 10
    nah = Int(Rnd() * rozsah) - 30
    sum = sum + nah
    If (nah >= 0) And (nah <= 70) Then
      vIntervalu = vIntervalu + Str(nah) + ", "
      pocetVIntervalu = pocetVIntervalu + 1
    End If
    s = s + Str(nah) + ", "
    prum = Int(pocetVIntervalu) / 35
  Next
  MsgBox s + Chr(10) + vIntervalu + Chr(10) + "Tedy v intervalu 0..70 bylo celkem " + Str(pocetVIntervalu) + " čísel"
  
  MsgBox s + Chr(10) + "jejich prumer je  " + Str(prum)
  
   
End Sub

#4 uzi
nahodilá čísla, jestli jsou v intervalu od 0 do 70... není to jiné zadání?

hu

Jestli mi to naprogramujes pošlu ti 50 Kč a když mi na programuješ ještě jeden příklad dám ti 100 kč.